8 lines
180 B
Text
8 lines
180 B
Text
with files'
|
|
: getFileSize ( $-n )
|
|
:R open 0 over =
|
|
[ "File does Not Exist\n" puts ]
|
|
[ &size sip close drop ] if ;
|
|
|
|
"input.txt" getFileSize putn
|
|
"/input.txt" getFileSize putn
|