Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
(Added Prolog Solution) |
|||
Line 873: | Line 873: | ||
</pre> |
</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}}== |
=={{header|Prolog}}== |
||
{{works with|SWI Prolog}} |
{{works with|SWI Prolog}} |