https://mojopuzzler.org/mediawiki/index.php?action=history&feed=atom&title=Length
Length - Revision history
2026-06-06T03:40:21Z
Revision history for this page on the wiki
MediaWiki 1.40.1
https://mojopuzzler.org/mediawiki/index.php?title=Length&diff=2261&oldid=prev
Gneale: Created page with "===== Return to: Chialisp ===== ===== Return to: Recursive Functions ===== (mod (lst) (defun length (lst) (if (l lst) (+ 1 (length (r lst))) lst) ) (length lst) ) ==Usage Example 1:== brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13 ())))) (q . 5)) 1) 1))' '((10 20))' 2 ==Usage Example 2:== brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13..."
2023-11-17T15:52:47Z
<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> ===== (mod (lst) (defun length (lst) (if (l lst) (+ 1 (length (r lst))) lst) ) (length lst) ) ==Usage Example 1:== brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13 ())))) (q . 5)) 1) 1))' '((10 20))' 2 ==Usage Example 2:== brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13..."</p>
<p><b>New page</b></p><div>===== Return to: [[Chialisp|Chialisp]] =====<br />
===== Return to: [[Recursive Functions]] =====<br />
<br />
(mod (lst)<br />
(defun length (lst)<br />
(if (l lst)<br />
(+ 1 (length (r lst)))<br />
lst)<br />
)<br />
(length lst)<br />
)<br />
<br />
==Usage Example 1:==<br />
brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13 ())))) (q . 5)) 1) 1))' '((10 20))'<br />
<br />
2<br />
==Usage Example 2:==<br />
brun '(a (q 2 2 (c 2 (c 5 ()))) (c (q 2 (i (l 5) (q 16 (q . 1) (a 2 (c 2 (c 13 ())))) (q . 5)) 1) 1))' '((10 20 30))'<br />
<br />
3</div>
Gneale