Skip to content
This repository
tag: v24
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 15 lines (13 sloc) 0.211 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14
.sub '' :main
    $P0 = box 10000000
    print $P0
    say " iterations"

    $P1 = box 0
    goto check
  again:
    $P1 = $P1 + 1
  check:
    $I0 = $P1 == $P0
    $P2 = box $I0
    unless $P2 goto again
.end
Something went wrong with that request. Please try again.