diff options
| -rw-r--r-- | ack.kpl | 6 | ||||
| -rw-r--r-- | fib.kpl | 6 |
2 files changed, 6 insertions, 6 deletions
@@ -1,7 +1,7 @@ // Ackermann function -`export ack : Fn[m; n] $ ( +`export ack : ([m; n] t : `type m; ? t != `type n { `panic "m and n must be the same type" @@ -16,11 +16,11 @@ } ) -`export ack_string : Fn[m; n] $ ( +`export ack_string : ([m; n] "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `sync (m; n)) ) -`is_main Fn $ ( +`is_main ([] `use "sys" [args] ? 4 != `length args { `return `error String $ ( @@ -4,7 +4,7 @@ n can be any numeric type */ -`export fib : Fn[n] $ ( +`export fib : ([x] t : `type n ? { |(t = Int_signed; t = Float) { @@ -21,11 +21,11 @@ } ) -`export fib_string Fn[n] $ ( +`export fib_string : ([n] "#MAGENTA#fib#(#CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (n; fib `sync n) ) -`is_main Fn $ ( +`is_main ([] `use "sys" [args] ? 3 != `length args { `return `error String $ ( |
