Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
14
Task/Input-loop/Icon/input-loop.icon
Normal file
14
Task/Input-loop/Icon/input-loop.icon
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
link str2toks
|
||||
# call either words or lines depending on what you want to do.
|
||||
procedure main()
|
||||
words()
|
||||
end
|
||||
|
||||
procedure lines()
|
||||
while write(read())
|
||||
end
|
||||
|
||||
procedure words()
|
||||
local line
|
||||
while line := read() do line ? every write(str2toks())
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue