7 lines
145 B
Text
7 lines
145 B
Text
[ "R" file.open
|
|
dup 0 <> [ dup file.size . file.close ] ifTrue
|
|
drop
|
|
] is display-size
|
|
|
|
" input.txt" display-size
|
|
" /input.txt" display-size
|