Kernighans large earthquake problem: Difference between revisions
→{{header|Prolog}}
(Added Prolog Solution) |
|||
Line 873:
</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>
(load "@lib/misc.l")
(in "kernighan.txt"
(until (eof)
(let (Date (read) Quake (read) Mag (read))
(when (> Mag 6)
(prinl (align -10 Date) " " (align -15 Quake) " " Mag)))))
(bye)
</lang>
{{Out}}
<pre>
$ ./kernighan.l
8/27/1883 Krakatoa 9
5/18/1980 MountStHelens 8
</pre>
=={{header|Prolog}}==
{{works with|SWI Prolog}}
| |||