From: Nick Hilliard (nick at domain iol.ie)
Date: Fri 29 Oct 1999 - 19:10:41 IST
> > Now all we need is an APL version, and perhaps one or
> > two obscure assembler versions. VAX assembler anyone?
> > Cray assembler maybe?
>
> Dammit, but I tried to stop myself...
Here's the INTERCAL version. Someone just had to do it.
It's a little long because I don't have the time at the moment to make it
shorter -- the pub beckons. The casual reader will also notice that I've
cheated a little and used the INTERCAL standard library.
However, the program does work (for suitably small input values).
If you're using it, please remember that INTERCAL doesn't like decimal, but
only understands upper-case typed digits in English or a couple of other
rather obscure languages, including Sanskrit and Basque. It also returns
the values in roman numerals.
Nick
----
PLEASE WRITE IN .5
DO .2 <- #1
DO .6 <- #1
PLEASE COME FROM (4)
DO (1) NEXT
PLEASE STASH .2
DO .1 <- .5
DO .2 <- .6
DO (1039) NEXT
DO .6 <- .3
DO RETRIEVE .2
DO (1010) NEXT
DO .5 <- .3
(4) DON'T GIVE UP
(1) DO (2) NEXT
PLEASE FORGET #1
(3) DO READ OUT .6
(2) PLEASE DON'T GIVE UP
PLEASE STASH .2
DO .2 <- #1
DO .1 <- .5
DO (1000) NEXT
DO RETRIEVE .2
DO .1 <- '.1~.1'~#1
DO (1020) NEXT
DO RESUME .1
DO COME FROM (3)
DO GIVE UP
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:04:48 GMT