Mercurial > repo
view interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/gcd.i @ 9070:77f510ad2f14
<evilipse> ` chmod 777 / -R
author | HackBot |
---|---|
date | Sun, 25 Sep 2016 20:07:36 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
PLEASE NOTE: This program computes the GCD of two numbers. It is the example used in the operational semantics article. Copyright (c) 2006 Claudio Calvelli, all rights reserved. CLC-INTERCAL is copyrighted software. However, permission to use, modify, and distribute it is granted provided that the conditions set out in the licence agreement are met. See files README and COPYING in the distribution. PLEASE WRITE IN .1 + .2 DO COME FROM (3) (1) DO .3 <- '¥.1¢.2'~'¥.1¢.2'~#1 DO READ OUT .1 PLEASE GIVE UP PLEASE COME FROM .3 DO .3 <- #0 DO .4 <- #32768 DO COME FROM .6 DO .6 <- #0 DO .5 <- '¥!1~.4'¢!2~.4'' (2) PLEASE .5 <- .5¢#0 DO .4 <- .4~#65534 (8) DO .6 <- !4~.4~#1'¢#0¢#0 PLEASE COME FROM .7 DO .7 <- #0 (3) bit left as an exercise to the reader - subtracts .2 from .1 and leaves the result in .1 without modifying .2; the last statement executed must have label (three). Do not cheat by looking it up DO COME FROM .5 PLEASE .5 <- #0 (128) DO .7 <- "!1~.4'~!1~.4'"¢#0¢#0¢#0 DO .3 <- .2 DO .2 <- .1 DO .1 <- .3 DO .3 <- #0 (7) PLEASE .7 <- #7