#:g1: pfcでL-99 (P03 K番目の要素)

Posted 2008-04-21 17:48:00 GMT

-(http://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.html)
pfcには、condがないようなので、ifの組み合わせで書いてみました。

;(element-at '(a b c d e) 100)
;=> c

(def (element-at lst k) (if (null lst) () (if (>= 1 k) (hd lst) (element-at (tl lst) (1- k)))))

comments powered by Disqus