Programming challenge
by Volker Weber
Who can do this in COBOL?
Comments
rem "there's probably an easier way";
x:=4:1:2:6:2:1:3:1:3:1:6:1:1:1:2:3:1:1:1:3:1:1:2:3:3:2:1:1:1:2:1:4:1:2:4:1:5:1:1:1:1:1:1:2:1:2:3:1:1:1:1:2:3:2:1:1:1:1:1:2:1:1:3:1:3:2:6;
t:="0":"1";
b:="0000":"0001":"0010":"0011":"0100":"0101":"0110":"0111":"1000":"1001":"1010":"1011":"1100":"1101":"1110":"1111";
h:="0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"A":"B":"C":"D":"E":"F";
@For(i:=1;i
Your comment system doesn't like the syntax -- thinks it contains HTML tags, I guess. So I'll post on my own blog.
Here it is.
I was going to say, that doesn't look anything like the COBOL I used to write back in the 70's and 80's. But having looked at Richard's blog, it's obvious that COBOL has not moved on as much as I feared ;-)
I had the same thought as John. :-)
Post a comment
Recent comments
sunny gerscky
on Pwnage 2.0 released at 16:00
Tobias Lange
on Remember, it's always the cable at 13:16
Volker Weber
on Remember, it's always the cable at 12:21
Ian White
on Remember, it's always the cable at 11:56
Andy Brunner
on Remember, it's always the cable at 11:37
Ben Rose
on Remember, it's always the cable at 11:33
Ben Poole
on It has only been less than two hours at 09:44
Frank L. Quednau
on It has only been less than two hours at 09:29
Martin Hiegl
on It has only been less than two hours at 08:27
Stephan H. Wissel
on Notes.ini parameter RunFaster=1 is finally here at 05:24
Volker Weber
on It has only been less than two hours at 01:33
Thomas "Duffbert" Duff
on It has only been less than two hours at 01:26
Chris Linfoot
on Planet Lotus not picking up Christopher's feed at 21:56
Yancy Lent
on Planet Lotus not picking up Christopher's feed at 19:48
Bruce Elgort
on Robin Bloor: Why Google Chrome Will Dominate at 18:51
Mac Guidera
on Planet Lotus not picking up Christopher's feed at 16:04
Kevan Emmott
on 824 Chrome users so far today at 15:56
Chris Linfoot
on Planet Lotus not picking up Christopher's feed at 14:54
Lars Berntrop-Bos
on Planet Lotus not picking up Christopher's feed at 13:12
Andreas Braukmann
on 824 Chrome users so far today at 11:33
Nick Daisley
on Robin Bloor: Why Google Chrome Will Dominate at 10:14
Chris Linfoot
on Planet Lotus not picking up Christopher's feed at 09:42
Alper Iseri
on 824 Chrome users so far today at 09:38
Jean Pierre Wenzel
on 824 Chrome users so far today at 08:37
Jan-Piet Mens
on Robin Bloor: Why Google Chrome Will Dominate at 08:26
Click here to subscribe
