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

ITT we conjure the spirits with our dog

Name: Anonymous 2008-10-11 10:39

mymap :: ( a -> b ) -> [a] -> [b]
mymap fn [] = []
mymap fn list = (fn (head list)) : (mymap fn (tail list))

qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)

Holy Sussman I can see FOREVER

Name: Anonymous 2008-10-11 16:30

Are you discussing basic HASKELL functions rewrites?

Name: Anonymous 2008-10-11 17:54

>>8
feels good man

next time we're going to to fibs

Name: Anonymous 2008-10-11 18:15

(define (fib n)
  (fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
  (cond ((= count 0) b)
        ((even? count)
         (fib-iter a
                   b
                   (+ (* p p) (* q q))
                   (+ (* 2 p q) (* q q))
                   (/ count 2)))
        (else (fib-iter (+ (* b q) (* a q) (* a p))
                        (+ (* b p) (* a q))
                        p
                        q
                        (- count 1)))))
Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -