Kernighans large earthquake problem: Difference between revisions

=={{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>