(define (my-length lst)

  (fold-left (lambda (x) (+ x 1)) 0 lst))

(my-length '(1 0 1 0))


이 코드가 실행되는 인터프리터도 있더라

fold-left 가 구현체마다 다른 방식으로 정의되어있는듯..