|
996
|
1
|
|
|
2 Newsgroups: alt.folklore.computers,alt.lang.intercal
|
|
|
3 From: clmeier@lili6.lili.uni-bielefeld.de (Clemens Meier)
|
|
|
4 Subject: Re: Duplicated programming language names?
|
|
|
5 Message-ID: <q991k5451s.fsf@lili6.lili.uni-bielefeld.de>
|
|
|
6 Date: Fri, 22 Dec 1995 13:11:11 GMT
|
|
|
7 Organization: Universitaet Bielefeld, Linguistik und Literaturwissenschaft, Germany
|
|
|
8
|
|
|
9 > Mahlzeit
|
|
|
10
|
|
|
11 Wohl bekomm's!
|
|
|
12
|
|
|
13 > > Programming Language (someone wrote an INTERCAL ROT-13 program which
|
|
|
14 > > takes about 4 pages of completely indecipherable code).
|
|
|
15 >
|
|
|
16 > Where can I get it???!!!
|
|
|
17
|
|
|
18 What?
|
|
|
19
|
|
|
20 INTERCAL? At the Retrocomputing Museum:
|
|
|
21 http://www.ccil.org/retro/retromuseum.html
|
|
|
22
|
|
|
23 The ROT-13 program? Exercise is left to the reader.
|
|
|
24
|
|
|
25 My solution is only slightly bigger than one page
|
|
|
26 and could be further shortened. It is, of course,
|
|
|
27 ROT-13 encoded and has a kind of Welsh touch, IMHO.
|
|
|
28
|
|
|
29 Happy Chrismas and New Year, or, for
|
|
|
30 Kenneth: Chrismas Year New and Happy!
|
|
|
31
|
|
|
32 Clemens
|
|
|
33
|
|
|
34 ---------------------------------------------------------->8---------
|
|
|
35 QB ,1 <- #1
|
|
|
36 QB .4 <- #0
|
|
|
37 QB .5 <- #0
|
|
|
38 QB PBZR SEBZ (30)
|
|
|
39 QB JEVGR VA ,1
|
|
|
40 QB .1 <- ,1FHO#1
|
|
|
41 QB (10) ARKG
|
|
|
42 CYRNFR TVIR HC
|
|
|
43 (20) CYRNFR ERFHZR '?.1$#256'~'#256$#256'
|
|
|
44 (10) QB (20) ARKG
|
|
|
45 QB SBETRG #1
|
|
|
46 QB .2 <- .4
|
|
|
47 QB (1000) ARKG
|
|
|
48 QB .4 <- .3~#255
|
|
|
49 QB (50) ARKG
|
|
|
50 QB .3 <- !3~#15'$!3~#240'
|
|
|
51 QB .3 <- !3~#15'$!3~#240'
|
|
|
52 QB .2 <- !3~#15'$!3~#240'
|
|
|
53 QB .1 <- .5
|
|
|
54 QB (1010) ARKG
|
|
|
55 QB .5 <- .2
|
|
|
56 CYRNFR QB ,1FHO#1 <- .3
|
|
|
57 (30) CYRNFR ERNQ BHG ,1
|
|
|
58
|
|
|
59 (50) CYRNFR FGNFU .1 + .2 + .4 + .5 + .11+.12+.13+.14+.15+.16+.17+.18
|
|
|
60 CYRNFR QB .5 <- .4
|
|
|
61 CYRNFR QB .1 <- .5
|
|
|
62 QB .2 <- #65
|
|
|
63 QB (500) ARKG
|
|
|
64 QB .11 <- .3~#2
|
|
|
65 QB .2 <- #78
|
|
|
66 QB (500) ARKG
|
|
|
67 QB .12 <- .3~#2
|
|
|
68 QB .2 <- #97
|
|
|
69 QB (500) ARKG
|
|
|
70 QB .13 <- .3~#2
|
|
|
71 QB .2 <- #110
|
|
|
72 QB (500) ARKG
|
|
|
73 QB .14 <- .3~#2
|
|
|
74 CYRNFR QB .2 <- .5
|
|
|
75 QB .1 <- #77
|
|
|
76 QB (500) ARKG
|
|
|
77 QB .15 <- .3~#2
|
|
|
78 QB .1 <- #90
|
|
|
79 QB (500) ARKG
|
|
|
80 QB .16 <- .3~#2
|
|
|
81 QB .1 <- #109
|
|
|
82 QB (500) ARKG
|
|
|
83 QB .17 <- .3~#2
|
|
|
84 QB .1 <- #122
|
|
|
85 QB (500) ARKG
|
|
|
86 QB .18 <- .3~#2
|
|
|
87 CYRNFR QB .1 <- ' "'"!12$.11'~#3"$"!14$.13'~#3"'~#15"
|
|
|
88 $"'"!16$.15'~#3"$"!18$.17'~#3"'~#15" '~#255
|
|
|
89 CYRNFR QB .1 <- 'I"!&1'~#85"'~#5
|
|
|
90 QB .2 <- "!1~#2'$!1~#2'"~#3
|
|
|
91 QB .1 <- !2$.1'~#15
|
|
|
92 QB .2 <- !2$.2'~#15
|
|
|
93 QB .2 <- "!1$.2'$!1$"'"I!2$.1'"~#15'"'"~#65535
|
|
|
94 QB .1 <- .5
|
|
|
95 CYRNFR QB (1009) ARKG
|
|
|
96 CYRNFR ERGEVRIR .1 + .2 + .4 + .5 + .11+.12+.13+.14+.15+.16+.17+.18
|
|
|
97 CYRNFR ERFHZR #1
|
|
|
98
|
|
|
99 (500) CYRNFR FGNFU .4
|
|
|
100 QB .3 <- "?!1$.2'"~"#0$#65535"
|
|
|
101 QB .4 <- .3~.3
|
|
|
102 QB .4 <- '&"!?4'$.4"'~'#0$#65535'
|
|
|
103 QB .3 <- '"'&"!1~.3'$.4"'~'#0$#65535'"~.4'
|
|
|
104 $'"'&"!2~.3'$.4"'~'#0$#65535'"~.4'
|
|
|
105 QB .3 <- "?'"!3~#1'$!3~#2'"$"#1$!3~#1'"'"~#5
|
|
|
106 CYRNFR ERGEVRIR .4
|
|
|
107 QB ERFHZR #1
|
|
|
108 ---------------------------------------------------------->8---------
|
|
|
109
|
|
|
110 > I LOVE MY PDP-11/34A!
|
|
|
111
|
|
|
112 Then you'll be right at home in this group.
|
|
|
113 --
|
|
|
114 ----------------------------------------------------------------------------
|
|
|
115 > Wo ist denn der Objoke ??? Clemens Meier
|
|
|
116 Bei Clemens? Nie!! Ok, ok, aber fast nie. clmeier@lili.uni-bielefeld.de
|
|
|
117 GO C+ UL P- L+>++>+++ 3$ E++>+++ N++ R+>+++ G'''' !tv b++ D f? TWERPS+++
|
