added examples (fib,69420/fizzbuzz)
This commit is contained in:
25
examples/69420.zorth
Normal file
25
examples/69420.zorth
Normal file
@@ -0,0 +1,25 @@
|
||||
: over swap dup rot rot ;
|
||||
: mod over over / * - ;
|
||||
|
||||
1
|
||||
|
||||
begin
|
||||
dup 50<
|
||||
while
|
||||
dup 15 mod 0 = if
|
||||
69420 .
|
||||
else
|
||||
dup 3 mod 0 = if
|
||||
69 .
|
||||
else
|
||||
dup 3 mod 0 = if
|
||||
420 .
|
||||
else
|
||||
dup .
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
1+
|
||||
repeat
|
||||
|
||||
ret
|
||||
18
examples/fib.zorth
Normal file
18
examples/fib.zorth
Normal file
@@ -0,0 +1,18 @@
|
||||
: fib
|
||||
0 1
|
||||
begin
|
||||
rot
|
||||
dup 0>
|
||||
while
|
||||
1-
|
||||
rot rot
|
||||
dup
|
||||
dup .
|
||||
rot
|
||||
+
|
||||
repeat
|
||||
;
|
||||
|
||||
15 fib
|
||||
|
||||
ret
|
||||
Reference in New Issue
Block a user