This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: JAGH

Maciej Stachowiak <mstachow@mit.edu> writes:

> guile -c '(define call/cc call-with-current-continuation)(define(p s)(lambda(o)(
> let((n(call/cc(lambda(x)(o x)x))))(let loop((n n)(l(string->list s)))(if(not(
> null? l))(begin(display(car l))(loop(call/cc n)(cdr l))))))))((p "Js nte ul akr"
> )(p "utAohrGieHce "))'

Geez, isn't Scwm keeping you busy enough! :-)

Greg