Magic squares of doubly even order: Difference between revisions

Content added Content deleted
(→‎{{header|AppleScript}}: (Updated primitive – |until| ))
Line 226: Line 226:
on |until|(p, f, x)
on |until|(p, f, x)
set mp to mReturn(p)
set mp to mReturn(p)
set mf to mReturn(f)
set v to x
script iterate
tell mReturn(f)
property p : mp's lambda
repeat until mp's lambda(v)
property f : mf's lambda
set v to lambda(v)
end repeat
on lambda(v)
end tell
return v
repeat until p(v)
set v to f(v)
end repeat
return v
end lambda
end script
iterate's lambda(x)
end |until|
end |until|