Move test scripts into test-scripts
This commit is contained in:
42
test-scripts/slicer
Executable file
42
test-scripts/slicer
Executable file
@ -0,0 +1,42 @@
|
||||
#!/usr/bin/env curly
|
||||
>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
|
||||
out
|
||||
end
|
Reference in New Issue
Block a user