ipl/gpacks/weaving/hypo.icn


1
2
3
4
5
6
7
8
9
10
11
12
13

procedure main()

   every m := 2 to 5 do
      every k := 2 to 5 do
         write("m=", m, " k=", k, " n=",  compute(m, k))

end

procedure compute(m, k)

   return (2 ^ ((m ^ 2) - 3)) * (k ^ 3)

end