diff lab1/loop.p @ 0:bfdcc3820b32

Basis
author Mike Spivey <mike@cs.ox.ac.uk>
date Thu, 05 Oct 2017 08:04:15 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lab1/loop.p	Thu Oct 05 08:04:15 2017 +0100
@@ -0,0 +1,29 @@
+(* lab1/loop.p *)
+
+begin
+  x := 12345;
+  i := 1;
+  loop
+    print i; newline;
+    j := 2 * i; 
+    if j > x then exit end;
+    i := j
+  end
+end.
+
+(*<<
+ 1
+ 2
+ 4
+ 8
+ 16
+ 32
+ 64
+ 128
+ 256
+ 512
+ 1024
+ 2048
+ 4096
+ 8192
+>>*)