sATURDAY NIGHT SPECIAL


(defun mkstr (&rest args)
  (format nil "~:@(~{~A~}~)" args))

(defun symb (&rest args)                
  (values (intern (apply #'mkstr args))))
                           
(defun curry (fn &rest args)
  (lambda (&rest rest)            
    (apply fn (append args rest))))

(defun |#[-reader| (stream c n)
  (declare (ignore c n))
  (let* (chars                                     
         (result (do ((prev (read-char stream) curr)              
                      (curr (read-char stream) (read-char stream)))
                     ((and (char= prev #\]) (char= curr #\#))
                      (coerce (nreverse chars) 'string))
                   (push prev chars))))
    (reduce (lambda (x y)               
              (append y (if x (list x))))                
            (nreverse (mapcar (curry #'cl-ppcre:split " ")
                              (cl-ppcre:split ":" result)))
            :key (curry #'mapcar #'read-from-string))))

cHECK THIS SHIT OUT

((LAMBDA (X) #[IDENTITY X]#) 'FOO) ==> 'FOO
((LAMBDA (X) #[+ X:1+:IDENTITY X]#) 1) ==> 2
pIPELINING STUFF

MONADS LOL
HASKELL LOL
FUCK OFF HASKELLS! uSELESS LANGUAGE FEATURE BLOAT NEEDS TO GO!

anusrib

This thread has over 1000 replies.
You can't reply anymore.

youve just been HURT FEELINGS AND BUTT RANGED go drink ur moms bredt milk u fart commander i bet u hav a fetish FOR MEN LMAO ur just so made all the time its 2 easy 23 own u "i like to drnikj sperm from my spermbottle while waring my sperm necklace" - u

This thread has over 1000 replies.
You can't reply anymore.

1010 Name: Over 1000 Thread 2010-09-09 15:04 Over 1000

This thread has over 1000 replies.
You can't reply anymore.