Kernighans large earthquake problem: Difference between revisions

dup "r" fopen >f

<f 0 less ( [drop "Could not open '" print print "' for reading" print -1 end ] [drop] ) if

[dup split 3 get tonum 6 great ( [drop print nl] [drop drop] ) if]

[<f fgets dup -1 nequal]

<f fclose