Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
7
Task/File-input-output/Smalltalk/file-input-output.st
Normal file
7
Task/File-input-output/Smalltalk/file-input-output.st
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
| in out |
|
||||
in := FileStream open: 'input.txt' mode: FileStream read.
|
||||
out := FileStream open: 'output.txt' mode: FileStream write.
|
||||
[ in atEnd ]
|
||||
whileFalse: [
|
||||
out nextPut: (in next)
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue