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

Damn it /prog/

Name: Anonymous 2009-07-27 14:50

I wrote some actual programmes when you were down. Please don't leave me again.

Name: Anonymous 2009-07-27 19:30

>>11
I would use a Haskell-ish version:



(define (takeh n xs)

  (if (or (null? xs) (<= n 0)) '()

    (cons (car xs) (take (- n 1) xs))))



(define (droph n xs)

  (if (or (null? xs) (<= n 0)) xs

    (drop (- n 1) xs)))



(define (split-at n xs)

  (cons (takeh n xs) (droph n xs)))

Newer Posts