Welcome to the CHICKEN Scheme pasting service

strange loop added by c-keen on Tue Jan 31 23:19:51 2012

(define (kmapl ls)
  (loop ((for i (up-from 0 (to (length ls))))
         (for lst (appending ((lambda (i)
                                 (let ((h (list-ref ls i))
                                       (p (if (= i 0) '() (list-ref ls (- i 1))))
                                       (n (if (= i (- (length ls) 1)) '() (list-ref ls (+ i 1)))))
				;;; XXX tut noch nicht, weils keine liste zurueckgibt
                                   (values (take ls i) p h n))) i))))
        => lst))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the cdr of a car?
Visually impaired? Let me spell it for you (wav file) download WAV