added slicer.txt with slice function
This commit is contained in:
parent
a5c8ddae35
commit
bd026a21d5
40
code/slicer.txt
Normal file
40
code/slicer.txt
Normal file
@ -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
|
Loading…
x
Reference in New Issue
Block a user