diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/function/memo.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/control/function/memo.lux b/stdlib/source/test/lux/control/function/memo.lux index 90a2064af..a19b9e6f9 100644 --- a/stdlib/source/test/lux/control/function/memo.lux +++ b/stdlib/source/test/lux/control/function/memo.lux @@ -5,7 +5,7 @@ [monad (#+ do)]] [control ["." io (#+ IO)] - ["." state (#+ State) ("#@." monad)]] + ["." state (#+ State) ("#\." monad)]] [math ["." random]] [data @@ -14,7 +14,7 @@ ["n" nat]] [collection ["." dictionary (#+ Dictionary)] - ["." list ("#@." functor fold)]]] + ["." list ("#\." functor fold)]]] [time ["." instant] ["." duration (#+ Duration)]]] @@ -26,8 +26,8 @@ (def: (fibonacci recur input) (/.Memo Nat Nat) (case input - 0 (state@wrap 0) - 1 (state@wrap 1) + 0 (state\wrap 0) + 1 (state\wrap 1) _ (do state.monad [output-1 (recur (n.- 1 input)) output-2 (recur (n.- 2 input))] @@ -90,8 +90,8 @@ [output' (recur (dec input))] (wrap (n.* input output'))))))) expected (|> (list.indices input) - (list@map inc) - (list@fold n.* 1)) + (list\map inc) + (list\fold n.* 1)) actual (|> (memo input) (state.run (dictionary.new n.hash)) product.right)] |