▦▦
▦▦

   Hyperberon



Module foo {
  Import Fmt;

  Type {
    S = Shape 2,32768;
  }

  Var {
    P1,P2,P3: int / S;
    sum: int;
  }

  Proc main [] {
    sum := 0;
    Over S {
      P1 := 1;
      P2 := 2;
      P3 := P1 + P2;
      Fmt.Printf("The sum in one element is %d.\n", [0][1]p3);
      sum += p3;
      Fmt.Printf("The sum of all elements is %d.\n", sum);
    }
  }

}

Language

Operating System

Machine