Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring, made p2js compatible) |
(Emacs Lisp: Avoid need non-portable shebang) |
||
Line 1,025:
=={{header|Emacs Lisp}}==
<lang lisp>
(insert-file-contents "data.txt")
(goto-char (point-min))
(while (not (eobp))
(let* ((line (buffer-substring (line-beginning-position)
Line 1,035 ⟶ 1,034:
(when (> (string-to-number magn) 6.0)
(message line)))
(forward-line 1
=={{header|Factor}}==
|