Kernighans large earthquake problem: Difference between revisions
Added Wren
(Added Wren) |
|||
Line 1,263:
End Module</lang>
=={{header|Wren}}==
{{libheader|Wren-pattern}}
<lang ecmascript>import "io" for File
import "os" for Process
import "/pattern" for Pattern
var args = Process.arguments
if (args.count != 1) Fiber.abort("Please pass just the name of the date file.")
var fileName = args[0]
var lines = File.read(fileName).split("\n").map { |l| l.trim() }.where { |l| l != "" }
var p = Pattern.new("+1/s")
System.print("The earthquakes from '%(fileName)' with a magnitude of greater than 6 are:\n")
for (line in lines) {
var data = p.splitAll(line)
if (data.count != 3) Fiber.abort("Invalid line : %(line)")
var mag = Num.fromString(data[2])
if (mag > 6) System.print(line)
}</lang>
{{out}}
<pre>
The earthquakes from 'data.txt' with a magnitude of greater than 6 are:
8/27/1883 Krakatoa 8.8
5/18/1980 MountStHelens 7.6
</pre>
=={{header|Yabasic}}==
| |||