artur-zawlocki
10 years ago
13 changed files with 86 additions and 0 deletions
@ -0,0 +1,7 @@ |
|||||
|
let A m n = |
||||
|
if m == 0 then n+1 |
||||
|
else if n == 0 then A (m-1) 1 |
||||
|
else A (m-1) (A (m) (n-1)) |
||||
|
|
||||
|
return A 3 8 |
||||
|
|
@ -0,0 +1 @@ |
|||||
|
6009600360086012585d60005460206000f26000820e6047596000810e603859603460018303603084600185036012585d6012585d60445860436001830360016012585d604b5860018101905090509058 |
@ -0,0 +1,5 @@ |
|||||
|
let fac n = |
||||
|
if n == 0 then 1 |
||||
|
else n * fac (n-1) |
||||
|
|
||||
|
return fac 60 |
@ -0,0 +1 @@ |
|||||
|
6007603c6010585d60005460206000f26000810e6026596020600182036010585d8102602858600190509058 |
@ -0,0 +1,5 @@ |
|||||
|
let fac a n = |
||||
|
if n == 0 then a |
||||
|
else fac (a*n) (n-1) |
||||
|
|
||||
|
return fac 1 60 |
@ -0,0 +1 @@ |
|||||
|
60096001603c6012585d60005460206000f26000810e6029596025818302600183036012585d602a5881905090509058 |
@ -0,0 +1 @@ |
|||||
|
60018194505050509150 |
@ -0,0 +1,11 @@ |
|||||
|
(asm ;; x . v y z |
||||
|
1 ;; 1 x . v y z |
||||
|
DUP2 ;; x 1 x . v y z |
||||
|
SWAP5 ;; y 1 x . v x z |
||||
|
POP ;; 1 x . v x z |
||||
|
POP ;; x . v x z |
||||
|
POP ;; . v x z |
||||
|
POP ;; v x z |
||||
|
SWAP2 ;; z x v |
||||
|
POP ;; x v |
||||
|
) |
@ -0,0 +1 @@ |
|||||
|
600160026001600a590090600160115900016000546001601ff2 |
@ -0,0 +1,25 @@ |
|||||
|
(asm |
||||
|
1 ;; 0 |
||||
|
2 ;; 2 |
||||
|
1 ;; 4 |
||||
|
10 ;; 6 |
||||
|
JUMPI ;; 8 |
||||
|
STOP ;; 9 |
||||
|
|
||||
|
;; stack = 2,1 |
||||
|
SWAP1 ;; 10 |
||||
|
1 ;; 11 |
||||
|
17 ;; 13 |
||||
|
JUMPI ;; 15 |
||||
|
STOP ;; 16 |
||||
|
|
||||
|
;; stack = 1,2 |
||||
|
ADD ;; 17 |
||||
|
0 |
||||
|
MSTORE |
||||
|
1 |
||||
|
31 |
||||
|
RETURN ;; returns 03 |
||||
|
) |
||||
|
|
||||
|
|
@ -0,0 +1 @@ |
|||||
|
600160026001600a59009090600160125900016000546001601ff2 |
@ -0,0 +1,26 @@ |
|||||
|
(asm |
||||
|
1 ;; 0 |
||||
|
2 ;; 2 |
||||
|
1 ;; 4 |
||||
|
10 ;; 6 |
||||
|
JUMPI ;; 8 |
||||
|
STOP ;; 9 |
||||
|
|
||||
|
;; stack = 2,1 |
||||
|
SWAP1 ;; 10 |
||||
|
SWAP1 ;; 11 |
||||
|
1 ;; 12 |
||||
|
18 ;; 14 |
||||
|
JUMPI ;; 16 |
||||
|
STOP ;; 17 |
||||
|
|
||||
|
;; stack = 2,1 |
||||
|
ADD ;; 18 |
||||
|
0 |
||||
|
MSTORE |
||||
|
1 |
||||
|
31 |
||||
|
RETURN ;; returns 03 |
||||
|
) |
||||
|
|
||||
|
|
@ -0,0 +1 @@ |
|||||
|
60018194505050509150 |
Loading…
Reference in new issue