Skip to content

Instantly share code, notes, and snippets.

/gist:486811

Created July 22, 2010 23:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/486811 to your computer and use it in GitHub Desktop.
Save anonymous/486811 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
pmichaud@orange:~/parrot/trunk$ cat x.pir
.sub 'main'
$N0 = -3
$N1 = 4
$N2 = fdiv $N0, $N1
say $N2
$I0 = -3
$I1 = 4
$I2 = fdiv $I0, $I1
say $I2
.end
pmichaud@orange:~/parrot/trunk$ ./parrot x.pir
-1
0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment