Iterate
Return to: Chialisp
Return to: Recursive Functions
Example 1
(mod (n) (defun iterate (n) (if (= n 0) n (list n (iterate (- n 1))) ) ) (iterate n) )
Example 1 usage:
brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (= 5 ()) (q . 5) (q 4 5 (c (a 2 (c 2 (c (- 5 (q . 1)) ()))) ()))) 1) 1))' '(50)'
(50 (49 (48 (47 (46 (45 (44 (43 (42 (41 (40 (39 (38 (37 (softfork (35 (all (any (not (31 (pubkey_for_exp (point_add (28 (lognot (logxor (logior (logand (lsh (ash (> (divmod (/ (* (- (+ (15 (concat (strlen (substr (sha256 (>s (= (x (l (r (f (c (i (a (q ())))))))))))))))))))))))))))))))))))))))))))))))))
Example 2
(mod (index) (defun iterate (index) (if (= index 0) (1) (list (list 51 0xdeadbeef index) (iterate (- index 1))) ) ) (iterate index) )
Example 2 usage:
brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (= 5 ()) () (q 4 (c (q . 51) (c (q . 0xdeadbeef) (c 5 ()))) (c (a 2 (c 2 (c (- 5 (q . 1)) ()))) ()))) 1) 1))' '(10)'
((51 0xdeadbeef 10) ((51 0xdeadbeef 9) ((51 0xdeadbeef 8) ((51 0xdeadbeef 7) ((51 0xdeadbeef 6) ((51 0xdeadbeef 5) ((51 0xdeadbeef 4) ((51 0xdeadbeef 3) ((51 0xdeadbeef 2) ((51 0xdeadbeef 1) ()))))))))))