Kernighans large earthquake problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,025: / Line 1,025: @@
 =={{header|Emacs Lisp}}==
-<lang lisp>#!/usr/bin/env emacs --script
+<lang lisp>(with-temp-buffer
+  (insert-file-contents "data.txt")
+  (goto-char (point-min))
-(dolist (arg command-line-args-left)
-  (find-file arg)
   (while (not (eobp))
     (let* ((line (buffer-substring (line-beginning-position)
@@ Line 1,035: / Line 1,034: @@
       (when (> (string-to-number magn) 6.0)
         (message line)))
-    (forward-line 1))))</lang>
+    (forward-line 1)))</lang>
 =={{header|Factor}}==