https://mojopuzzler.org/mediawiki/index.php?action=history&feed=atom&title=Iterate
Iterate - Revision history
2026-05-06T01:36:40Z
Revision history for this page on the wiki
MediaWiki 1.40.1
https://mojopuzzler.org/mediawiki/index.php?title=Iterate&diff=2260&oldid=prev
Gneale: Created page with "===== 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_..."
2023-11-17T15:52:17Z
<p>Created page with "===== Return to: <a href="/mediawiki/index.php/Chialisp" title="Chialisp">Chialisp</a> ===== ===== Return to: <a href="/mediawiki/index.php/Recursive_Functions" title="Recursive Functions">Recursive Functions</a> ===== ==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_..."</p>
<p><b>New page</b></p><div>===== Return to: [[Chialisp|Chialisp]] =====<br />
===== Return to: [[Recursive Functions]] =====<br />
==Example 1==<br />
(mod (n)<br />
(defun iterate (n)<br />
(if (= n 0)<br />
n<br />
(list n (iterate (- n 1)))<br />
)<br />
)<br />
(iterate n)<br />
)<br />
<br />
==Example 1 usage:==<br />
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)'<br />
<br />
(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 <br />
(sha256 (>s (= (x (l (r (f (c (i (a (q ())))))))))))))))))))))))))))))))))))))))))))))))))<br />
<br />
==Example 2==<br />
<br />
(mod (index)<br />
(defun iterate (index)<br />
(if (= index 0)<br />
(1)<br />
(list (list 51 0xdeadbeef index) (iterate (- index 1)))<br />
)<br />
)<br />
(iterate index)<br />
)<br />
<br />
==Example 2 usage:==<br />
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)'<br />
<br />
((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) ()))))))))))</div>
Gneale