*
This commit is contained in:
parent
b98af7bdde
commit
5991d9fef3
6 changed files with 52 additions and 2 deletions
11
examples/cat.grr
Normal file
11
examples/cat.grr
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
#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