Is this Satori or Zen?

CPS in 3 lines of code

(define (apply# f . args) (shift k (let ((g (gensym "g"))) (reset `(,f ,@args (lambda (,g) ,(k g)))))))
(define-syntax if# (syntax-rules () ((if# <cond> <then> <else>) (shift k `(if ,<cond> ,(reset (k <then>)) ,(reset (k <else>)))))))
(define-syntax define# (syntax-rules () ((define# (name/args ...) body) `(define (name/args ... k-->) ,(reset `(k--> ,body))))))


(define# (fact-iter--> n acc)
;;     (if# (apply# 'zero?--> 'n)
;;          'acc
;;          (apply# 'fact-iter--> (apply# '---> 'n 1) (apply# '*--> 'acc 'n))))
(define (fact-iter--> n acc k-->)
  (zero?--> n (lambda (g875)
   (if g875
       (k--> acc)
       (---> n 1 (lambda (g876)
        (*--> acc n (lambda (g877)
         (fact-iter--> g876 g877 (lambda (g878) (k--> g878)))))))))))

Is this Satori or Zen?

)))))))
)))))))
))))))
)))))))))))
This... IS... MADNEEEEEEEEEEEEEEEESSSSSSSSSSSSSSSSSS!!

I'M SRFI 72
SON OF A BITCH GENSYM
GENSYM IS PIG
DO YOU WANT DYNAMIC SCOPE?
DO YOU WANT NO SHADOWING?
GENSYM IS PIG DISGUSTING
X3J13 IS A MURDERER
FUCKING GENSYM

what is SRFI 72?

http://en.wikipedia.org/wiki/SR_language

SP Functional Interface

>>5
thank you

>>5
YOU HELPED HIM!

what are reset and shift?

>>5-7
loled

>>8
continuations witchcraft, don't even try to understand them until you've reached satori.

>>8
goto

>>10
people who think continuations are like gotos don't understand continuations

lol

people who think gotos are like continuations don't understand gotos

people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand people who think gotos are like gotos don't understand

(Post truncated.)

>>14
Was anyone else retarded enough to try and click on the "Post truncated"?

>>15
No.

>>16
¡¡¡I was!!!

>>11
You can use shift/reset to create a mess of such complexity and inscrutability that it will make even best spaghetti experts of goto look dull.

>>18
This is why Lisp programmers love continuations and sneer at C.

>>19
no you

>>18 A normal Goto btw is block oriented, its the goto line X and computed gotos that are bad.



______________________________________
http://xs135.xs.to/xs135/09042/av922.jpg
orbis terrarum delenda est

>>21
Don't post

Don't change these.

Name:		Email:
Entire Thread Thread List