This commit is contained in:
Lobo 2026-02-09 14:44:00 -03:00
parent e18681b309
commit 20da6dd16d
14 changed files with 279 additions and 183 deletions

View file

@ -1,4 +0,0 @@
#load("std.grr")
while: [stdin fgetline]
[print];

View file

@ -1,4 +1,4 @@
#load("std.grr")
load "../std.grr"
def fib {
0 1 dig [dup [+] dip swap] times drop

View file

@ -1,13 +1,4 @@
def print { file/stdout file/write }
def when { [] if }
def keep { over [call] dip }
def bi { [keep] dip call }
def times {
if: over 0 =
[drop drop]
[swap over >r >r call r> 1 - r> times];
}
load "../std.grr"
def fizzbuzz? { [3 % 0 =] [5 % 0 =] bi or }
def fizz { when: 3 % 0 = ["Fizz" print]; }