30 lines
479 B
Plaintext
30 lines
479 B
Plaintext
void local fn DoIt
|
|
long a, b, c, d, e, f, g, h, x = 0, y, z
|
|
do
|
|
x++
|
|
e = x + 11
|
|
f = 40 - e
|
|
y = f - 11
|
|
g = y + 4
|
|
c = f + g
|
|
a = c + 40
|
|
b = 151 - a
|
|
d = b - c
|
|
h = d - g
|
|
z = h - 4
|
|
until ( y == (x + z) )
|
|
|
|
text ,,,, NSTextAlignmentCenter
|
|
print
|
|
print 151
|
|
print a, b
|
|
print 40, c, d
|
|
print e, f, g, h
|
|
print x, 11, y, 4, z
|
|
end fn
|
|
|
|
window 1, @"Pascal triangle/Puzzle", (0,0,250,100), NSWindowStyleMaskTitled
|
|
fn DoIt
|
|
|
|
HandleEvents
|