20 lines
337 B
AppleScript
20 lines
337 B
AppleScript
-- recursionDepth :: () -> IO String
|
|
on recursionDepth()
|
|
script go
|
|
on |λ|(i)
|
|
try
|
|
|λ|(1 + i)
|
|
on error
|
|
"Recursion limit encountered at " & i
|
|
end try
|
|
end |λ|
|
|
end script
|
|
|
|
go's |λ|(0)
|
|
end recursionDepth
|
|
|
|
on run
|
|
|
|
recursionDepth()
|
|
|
|
end run
|