*
This commit is contained in:
parent
f40fd7eaa1
commit
30ff72b3ae
10 changed files with 103 additions and 43 deletions
|
|
@ -1,11 +1,4 @@
|
|||
#load("std.grr")
|
||||
|
||||
def while {
|
||||
swap dup bury >r >r
|
||||
if: call dup
|
||||
[r> dup >r call r> r> swap while]
|
||||
[drop r> drop r> drop];
|
||||
}
|
||||
|
||||
while: [stdin fgetline]
|
||||
[print];
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue