diff options
| -rw-r--r-- | fib.kpl | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/fib.kpl b/fib.kpl deleted file mode 100644 index d8a2140..0000000 --- a/fib.kpl +++ /dev/null @@ -1,39 +0,0 @@ - -// Fibonacci sequence - -`export fib_recursive : {[I64.n] - ? { - n < 0 { %.error ~ "#BOLD#RED#Invalid n Got %#" `format n } - n = 0 { 0 } - n < 2 { 1 } - { + (fib `sync n - 1; fib `sync n - 2) } - } -} - -`export fib_iterative : {[I64.n] - ? n < 0 { - `return.error ~ "#BOLD#RED#Invalid n Got %#" `format n - } - a : 0 - b : 1 - @ 0 .. n { - c : b - b : a + b - a : c - } - a -} - -`export fib_array : {[I64.n] - ? { - n < 0 { - `return.error ~ "#BOLD#RED#Invalid n Got %#" `format n - } - n > 0 { n :- 1 } - } - arr : Array $ (0; 1) - @ 0 .. n { - arr `push + (arr `get -2; arr `get -1) - } - arr -} |
