https://mojopuzzler.org/mediawiki/index.php?action=history&feed=atom&title=Even
Even - Revision history
2026-05-18T08:49:17Z
Revision history for this page on the wiki
MediaWiki 1.40.1
https://mojopuzzler.org/mediawiki/index.php?title=Even&diff=2265&oldid=prev
Gneale: Created page with "===== Return to: Chialisp ===== ===== Return to: Additional Functions ===== (mod (num) (defun remainder (x y) (r (divmod x y))) (defun even (num) (if (= (remainder num 2) 0) (q . even) (x))) (even num) ) ==Example Usage== brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (= (a 6 (c 2 (c 5 (q 2)))) ()) (q 1 . "even") (q 8)) 1) 6 (divmod 5 11)) 1))' '(10)' "even" brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (..."
2023-11-17T15:55:08Z
<p>Created page with "===== Return to: <a href="/mediawiki/index.php/Chialisp" title="Chialisp">Chialisp</a> ===== ===== Return to: <a href="/mediawiki/index.php/Additional_Functions" title="Additional Functions">Additional Functions</a> ===== (mod (num) (defun remainder (x y) (r (divmod x y))) (defun even (num) (if (= (remainder num 2) 0) (q . even) (x))) (even num) ) ==Example Usage== brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (= (a 6 (c 2 (c 5 (q 2)))) ()) (q 1 . "even") (q 8)) 1) 6 (divmod 5 11)) 1))' '(10)' "even" brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (..."</p>
<p><b>New page</b></p><div>===== Return to: [[Chialisp|Chialisp]] =====<br />
===== Return to: [[Additional Functions]] =====<br />
<br />
(mod (num)<br />
(defun remainder (x y)<br />
(r (divmod x y)))<br />
(defun even (num)<br />
(if (= (remainder num 2) 0)<br />
(q . even)<br />
(x)))<br />
(even num)<br />
)<br />
<br />
==Example Usage==<br />
brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (= (a 6 (c 2 (c 5 (q 2)))) ()) (q 1 . "even") (q 8)) 1) 6 (divmod 5 11)) 1))' '(10)'<br />
<br />
"even"<br />
<br />
brun '(a (q 2 4 (c 2 (c 5 ()))) (c (q (a (i (= (a 6 (c 2 (c 5 (q 2)))) ()) (q 1 . "even") (q 8)) 1) 6 (divmod 5 11)) 1))' '(11)'<br />
<br />
FAIL: clvm raise ()</div>
Gneale