Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Haskell Homework Project

Name: Anonymous 2008-11-08 13:21

I has it!

That is all.

Name: Anonymous 2008-11-11 11:40

Use the Algorithmic Language Scheme.

(define (exercise src maxl)

  (define (iter current dst src maxl orimaxl)

    (cond

      ((null? src)

        (cons current dst))

      ((> (string-length (car src)) maxl)

        (iter () (cons (reverse current) dst) src orimaxl orimaxl))

      (#t

        (iter (cons (car src) current) dst (cdr src) (- maxl (string-length (car src))) orimaxl))))

  (reverse (iter () () src maxl maxl)))

Newer Posts