view lab1/case.p @ 1:b5139af1a420 tip basis

Fixed permissions on compile scripts
author Mike Spivey <mike@cs.ox.ac.uk>
date Fri, 13 Oct 2017 17:27:58 +0100
parents bfdcc3820b32
children
line wrap: on
line source
(* lab1/case.p *)

begin
  i := 0;
  while i < 10 do
    case i of
      1, 3, 5:
        i := i + 1;
        i := i + 2
    | 2, 6: 
        i := i - 1;
    | 8:
        i := i + 2;
    else
      i := i + 1
    end;
    print i; newline
  end
end.

(*<<
 1
 4
 5
 8
 10
>>*)