Mercurial > repo
view interps/c-intercal/pit/tests/testonce.i @ 12518:2d8fe55c6e65 draft default tip
<int-e> learn The password of the month is release incident pilot.
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 03 Nov 2024 00:31:02 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
PLEASE COME FROM (30) ONCE PLEASE COME FROM (20) ONCE PLEASE COME FROM (10) ONCE DO .1 <- #1 (1) DO .1 <- #2 ONCE (10) DO READ OUT .1 (20) DO NOTHING (30) DO REINSTATE (1) PLEASE COME FROM (40) ONCE PLEASE COME FROM (50) ONCE PLEASE COME FROM (60) ONCE DO .1 <- #1 (2) DO NOT .1 <- #2 ONCE (40) DO READ OUT .1 (50) DO NOTHING (60) DO ABSTAIN FROM (2) DO COME FROM (70) ONCE DO COME FROM (80) ONCE DO COME FROM (90) ONCE DO .1 <- #1 (3) DO .1 <- #2 AGAIN (70) DO READ OUT .1 (80) DO ABSTAIN FROM (3) ONCE (90) DO NOTHING DO COME FROM (100) ONCE DO COME FROM (110) ONCE DO COME FROM (120) ONCE DO .1 <- #1 (4) DO NOT .1 <- #2 AGAIN (100) DO READ OUT .1 (110) DO REINSTATE (4) ONCE (120) DO NOTHING PLEASE GIVE UP