added slicer.txt with slice function

2020-09-13 16:54:10 +02:00 · 2020-09-13 16:54:10 +02:00 · bd026a21d5
commit bd026a21d5
parent a5c8ddae35
1 changed files with 40 additions and 0 deletions
--- a/code/slicer.txt
+++ b/code/slicer.txt
@ -0,0 +1,40 @@
 >main
 gto
 :slicer
 =step
 =to
 =from
 =str
 $from
 =i
 \
 =result
 :loop
 $result
 $str
 $i
 idx
 cat
 =result
 $i
 $step
 add
 =i
 $i
 $str
 len
 >loop
 glt
 $result
 ret
 :main
 \Avans Hogeschool
 =text
 $text
 0
 $text
 len
 2
 >slicer
 fun
 end