1 changed files with 19 additions and 0 deletions
@ -0,0 +1,19 @@ |
|||
def square |
|||
(lambda a -> (a * a)) |
|||
|
|||
def pow |
|||
(lambda base exp -> |
|||
(base ^ exp)) |
|||
|
|||
def powed (pow (2 + 3 * 5) 2) |
|||
|
|||
def squared (square powed) |
|||
|
|||
def fact |
|||
(lambda n -> |
|||
if (n == 0) |
|||
then 1 |
|||
else |
|||
(n * (fact (n - 1)))) |
|||
|
|||
def main (print (fact 15)) |
Loading…
Reference in new issue