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

I wrote something for you.

Name: Anonymous 2007-04-23 14:57 ID:qqJh/wtq



#include <stdio.h>

int main(int c,char**v) {

        char *s="B+p:ubYBGG0,|M3B=1*0N\n"

                "it's touring complete\n",*k[]={s+21,--s};

        return c?({while(main(!k,k))putchar(**k^*k[1]-10);0;}):(v[1]++,*++*v);

}

Build with GCC.

Name: >>37 2009-11-29 5:53

Surprisingly, for some things, the C version is easier to read than the Lisp one:



(loop

  for c1 across "B+p:ubYBGG0,|M3B=1*0N"

  for c2 across "it's touring complete"

  do (princ (code-char (logxor (- (char-code c1) 10) (char-code c2)))))



;;; or a more lispy

(defun dec-str (s1 s2)

  (map 'string #'(lambda (c1 c2)

           (code-char (logxor (- (char-code c1) 10)

                      (char-code c2))))

       s1 s2))



(princ (dec-str "B+p:ubYBGG0,|M3B=1*0N" "it's touring complete"))

Newer Posts

I wrote something for you.

1 Name: Anonymous 2007-04-23 14:57 ID:qqJh/wtq

40 Name: >>37 2009-11-29 5:53

Name: Anonymous 2007-04-23 14:57 ID:qqJh/wtq

Name: >>37 2009-11-29 5:53