fork(13) download
copy 
  1. (DEFUN ONLEVEL(L S)
  2.  (COND ((null S) 0)
  3.        ((AND (> L '0) (ATOM (CAR S))) (ONLEVEL L (CDR S)))
  4.        ((> L '0) (+ (ONLEVEL (- L 1) (CAR S)) (ONLEVEL L (CDR S))))
  5.        (1 (COUNT_S S))
  6.  )
  7. )
  8.  
  9. (DEFUN COUNT_S(S)
  10.  (COND ((null S) 0)
  11.        ((ATOM (CAR S)) (COUNT_S (CDR S)))
  12.        (1 (+ 1 (COUNT_S (CDR S))))
  13.  )
  14. )
  15.  
  16.  
  17. (PRINT (ONLEVEL '2 '(1 (2 (4 (5 6))) 3 5 (6) (7 (8 (10) (11))))))
  18.  
Success #stdin #stdout 0.02s 10592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
https://ideone.com/Z92JgV
language:
Common Lisp (clisp 2.49.92)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!