view paste/paste.11710 @ 5129:7d19c0f4d970

<b_jonas> echo $\'#!/usr/bin/perl\\n\'\'$_=shift;sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$$t=$_;$t}k for s""\\$"..4e3;print eval(),$/\' > bin/fromroman && chmod a+x bin/fromroman
author HackBot
date Fri, 14 Nov 2014 21:22:56 +0000
parents e037173e0012
children
line wrap: on
line source

2007-07-08.txt:23:22:20: <ehird> GregorR, the only way i can think of is a big gigantic loop with lots of nested ifs to check for an "address", then splitting functions into multiple parts at function calls to work around no continuations/gotos
2007-07-08.txt:23:46:53: <ehird> GregorR, oh -- so actually the function code is duplicated for each call?
2007-10-31.txt:15:12:55: <ehird`> GregorR: that try/catch idea for thick functions is good but it doesn't help you vanquish thick/thin functions
2008-04-28.txt:22:24:38: <ehird_> <GregorR> My 'if' is actually a function, your 'if' is a language intrinsic. Language intrinsics suck. QED.
2008-04-28.txt:22:34:54: <pikhq> ehird_: You know, Gregor's if(x, y, else, z) is just the natural result of doing C-esque syntax with everything as a function. ;)
2008-10-31.txt:15:45:03: <ehird> GregorR: Perhaps you should just make a really basic scheme making function so I could just hack up something with it without actually recoding the entire thing. :-P
2008-10-31.txt:22:41:25: <ehird> GregorR: c1.concat is not a function