Skip to content

Instantly share code, notes, and snippets.

@ELLIOTTCABLE
Forked from atg/gist:303501
Created February 13, 2010 15:35
Show Gist options
  • Save ELLIOTTCABLE/303502 to your computer and use it in GitHub Desktop.
Save ELLIOTTCABLE/303502 to your computer and use it in GitHub Desktop.
mathematics
I/O STDIN
“Trabb-Pardo Knuth”
r ↼ routine
mathematics √(mathematics absolute.value(argument last)) + 5 × argument last ³
11 times { I/O STDIN get.string } reverse each
n ↼ r(argument)
if(~| argument ≥ 400, routine, routine)
I/O STDIN put.string(“argument is too large”)
I/O STDIN put.string(“argument: n”)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment