5 lines
92 B
Text
5 lines
92 B
Text
|
procedure main(args)
|
||
|
|
every (s := 0) +:= !args
|
||
|
|
write((real(s)/(0 ~= *args)) | 0)
|
||
|
|
end
|