chrisdone/duet
1
1
Fork 0
mirror of https://github.com/chrisdone/duet.git synced 2025-01-08 06:53:22 +03:00
Code Issues Projects Releases Wiki Activity

Fixed fac

Browse Source
This commit is contained in:
Chris Done 2019-11-15 16:38:24 +01:00
parent 6f23223717
commit a8c3bab394
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/fac.hs
View File

@ -7,8 +7,8 @@ factorial = \n -> case n of
go =
\n acc ->
case n of
0 -> 1
1 -> 1
0 -> acc
1 -> acc
_ -> go (n - 1) (n * acc)
it = go 5 1
it = go 3 1