Length

From Mojo Puzzler Wiki
Jump to: navigation, search
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 ())))) (q . 5)) 1) 1))' '((10 20 30))'

3