On Thu, 2008-07-10 at 22:43 +0100, Elliott Hird wrote:
> (Watch as ais523 posts an INTERCAL version.)
This is CLC-INTERCAL (there is no standard way of doing text-based IO in
INTERCAL, so I had to pick some version of doing it):
DO ,1 <- #37
PLEASE DO ,1 SUB #37 <- #28
DO ,1 SUB #36 <- #27
DO ,1 SUB #35 <- #9
DO ,1 SUB #34 <- #19
PLEASE DO ,1 SUB #33 <- #24
DO ,1 SUB #32 <- #20
DO ,1 SUB #31 <- #4
DO ,1 SUB #30 <- #13
PLEASE DO ,1 SUB #29 <- #13
DO ,1 SUB #28 <- #24
DO ,1 SUB #27 <- #4
DO ,1 SUB #26 <- #1
PLEASE DO ,1 SUB #25 <- #28
DO ,1 SUB #24 <- #24
DO ,1 SUB #23 <- #14
DO ,1 SUB #22 <- #31
PLEASE DO ,1 SUB #21 <- #4
DO ,1 SUB #20 <- #6
DO ,1 SUB #19 <- #31
DO ,1 SUB #18 <- #4
PLEASE DO ,1 SUB #17 <- #28
DO ,1 SUB #16 <- #27
DO ,1 SUB #15 <- #9
DO ,1 SUB #14 <- #19
PLEASE DO ,1 SUB #13 <- #24
DO ,1 SUB #12 <- #20
DO ,1 SUB #11 <- #4
DO ,1 SUB #10 <- #12
PLEASE DO ,1 SUB #9 <- #24
DO ,1 SUB #8 <- #4
DO ,1 SUB #7 <- #24
DO ,1 SUB #6 <- #26
PLEASE DO ,1 SUB #5 <- #31
DO ,1 SUB #4 <- #4
DO ,1 SUB #3 <- #6
DO ,1 SUB #2 <- #31
PLEASE DO ,1 SUB #1 <- #27
DO .3 <- #1023
DO COME FROM '"'.3~.3'~#1"c/#0'
DO .2 <- #1023
DO COME FROM '"'.2~.2'~#1"c/#2'
DO .1 <- #1023
DO COME FROM '"'.1~.1'~#1"c/#3'
PLEASE DO READ OUT ,1
(7) DO .1 <- .&1
(6) DO .2 <- .&2
(2) DO .3 <- .&3
PLEASE GIVE UP
Those are literal backspaces between the c and the /, by the way. (No
idea if my mailer will handle those.)
--
ais523
