27 lines
793 B
Haskell
27 lines
793 B
Haskell
procedure main()
|
|
prod := 1
|
|
sum := 0
|
|
x := +5
|
|
y := -5
|
|
z := -2
|
|
one := 1
|
|
three := 3
|
|
seven := 7
|
|
|
|
i_to_h_by_k := proc("...",3) # i_to_h_by_k(i,h,k)
|
|
# same as "i to h by k"
|
|
every j := i_to_h_by_k ! ![
|
|
[ -three , 3^3 , three ] ,
|
|
[ -seven , +seven , x ] ,
|
|
[ 555 , 550 - y , one ] , # list of argument lists
|
|
[ 22 , -28 , -three ] , # (i,h,k)
|
|
[ 1927 , 1939 , one ] ,
|
|
[ x , y , z ] ,
|
|
[ 11^x , 11^x + one , one ]
|
|
] do {
|
|
sum := sum + abs(j)
|
|
if abs(prod) < 2^27 & j ~= 0 then prod := prod*j
|
|
}
|
|
write(" sum = ", sum)
|
|
write("prod = ", prod)
|
|
end
|