Newsgroups: alt.folklore.computers,alt.lang.intercal From: clmeier@lili6.lili.uni-bielefeld.de (Clemens Meier) Subject: Re: Duplicated programming language names? Message-ID: Date: Fri, 22 Dec 1995 13:11:11 GMT Organization: Universitaet Bielefeld, Linguistik und Literaturwissenschaft, Germany > Mahlzeit Wohl bekomm's! > > Programming Language (someone wrote an INTERCAL ROT-13 program which > > takes about 4 pages of completely indecipherable code). > > Where can I get it???!!! What? INTERCAL? At the Retrocomputing Museum: http://www.ccil.org/retro/retromuseum.html The ROT-13 program? Exercise is left to the reader. My solution is only slightly bigger than one page and could be further shortened. It is, of course, ROT-13 encoded and has a kind of Welsh touch, IMHO. Happy Chrismas and New Year, or, for Kenneth: Chrismas Year New and Happy! Clemens ---------------------------------------------------------->8--------- QB ,1 <- #1 QB .4 <- #0 QB .5 <- #0 QB PBZR SEBZ (30) QB JEVGR VA ,1 QB .1 <- ,1FHO#1 QB (10) ARKG CYRNFR TVIR HC (20) CYRNFR ERFHZR '?.1$#256'~'#256$#256' (10) QB (20) ARKG QB SBETRG #1 QB .2 <- .4 QB (1000) ARKG QB .4 <- .3~#255 QB (50) ARKG QB .3 <- !3~#15'$!3~#240' QB .3 <- !3~#15'$!3~#240' QB .2 <- !3~#15'$!3~#240' QB .1 <- .5 QB (1010) ARKG QB .5 <- .2 CYRNFR QB ,1FHO#1 <- .3 (30) CYRNFR ERNQ BHG ,1 (50) CYRNFR FGNFU .1 + .2 + .4 + .5 + .11+.12+.13+.14+.15+.16+.17+.18 CYRNFR QB .5 <- .4 CYRNFR QB .1 <- .5 QB .2 <- #65 QB (500) ARKG QB .11 <- .3~#2 QB .2 <- #78 QB (500) ARKG QB .12 <- .3~#2 QB .2 <- #97 QB (500) ARKG QB .13 <- .3~#2 QB .2 <- #110 QB (500) ARKG QB .14 <- .3~#2 CYRNFR QB .2 <- .5 QB .1 <- #77 QB (500) ARKG QB .15 <- .3~#2 QB .1 <- #90 QB (500) ARKG QB .16 <- .3~#2 QB .1 <- #109 QB (500) ARKG QB .17 <- .3~#2 QB .1 <- #122 QB (500) ARKG QB .18 <- .3~#2 CYRNFR QB .1 <- ' "'"!12$.11'~#3"$"!14$.13'~#3"'~#15" $"'"!16$.15'~#3"$"!18$.17'~#3"'~#15" '~#255 CYRNFR QB .1 <- 'I"!&1'~#85"'~#5 QB .2 <- "!1~#2'$!1~#2'"~#3 QB .1 <- !2$.1'~#15 QB .2 <- !2$.2'~#15 QB .2 <- "!1$.2'$!1$"'"I!2$.1'"~#15'"'"~#65535 QB .1 <- .5 CYRNFR QB (1009) ARKG CYRNFR ERGEVRIR .1 + .2 + .4 + .5 + .11+.12+.13+.14+.15+.16+.17+.18 CYRNFR ERFHZR #1 (500) CYRNFR FGNFU .4 QB .3 <- "?!1$.2'"~"#0$#65535" QB .4 <- .3~.3 QB .4 <- '&"!?4'$.4"'~'#0$#65535' QB .3 <- '"'&"!1~.3'$.4"'~'#0$#65535'"~.4' $'"'&"!2~.3'$.4"'~'#0$#65535'"~.4' QB .3 <- "?'"!3~#1'$!3~#2'"$"#1$!3~#1'"'"~#5 CYRNFR ERGEVRIR .4 QB ERFHZR #1 ---------------------------------------------------------->8--------- > I LOVE MY PDP-11/34A! Then you'll be right at home in this group. -- ---------------------------------------------------------------------------- > Wo ist denn der Objoke ??? Clemens Meier Bei Clemens? Nie!! Ok, ok, aber fast nie. clmeier@lili.uni-bielefeld.de GO C+ UL P- L+>++>+++ 3$ E++>+++ N++ R+>+++ G'''' !tv b++ D f? TWERPS+++