omegatakuma/position-lst.scm

## position-lst.scm
(define (position key lst)
  (let loop ((lst lst)(n 0)(result '()))
	(cond
	  ((null? lst) (reverse result))
	  ((eq? key (car lst))(loop (cdr lst) (+ n 1) (cons n result)))
	  (else (loop (cdr lst) (+ n 1) result)))))
	(define (position key lst)
	(let loop ((lst lst)(n 0)(result '()))
	(cond
	((null? lst) (reverse result))
	((eq? key (car lst))(loop (cdr lst) (+ n 1) (cons n result)))
	(else (loop (cdr lst) (+ n 1) result)))))