9 lines
180 B
Text
9 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
|