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

Added generated Keiko files
author Mike Spivey <mike@cs.ox.ac.uk>
date Mon, 10 Sep 2018 20:34:00 +0100
parents 5dd13b8deb54
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
>>*)