diff --git a/config.json b/config.json index aeb7acc..f3e2122 100644 --- a/config.json +++ b/config.json @@ -754,6 +754,14 @@ "prerequisites": [], "difficulty": 5 }, + { + "slug": "grep", + "name": "Grep", + "uuid": "2f095d81-2d74-4d75-9f37-55020d225ba2", + "practices": [], + "prerequisites": [], + "difficulty": 5 + }, { "slug": "killer-sudoku-helper", "name": "Killer Sudoku Helper", diff --git a/exercises/practice/grep/.busted b/exercises/practice/grep/.busted new file mode 100644 index 0000000..86b84e7 --- /dev/null +++ b/exercises/practice/grep/.busted @@ -0,0 +1,5 @@ +return { + default = { + ROOT = { '.' } + } +} diff --git a/exercises/practice/grep/.docs/instructions.md b/exercises/practice/grep/.docs/instructions.md new file mode 100644 index 0000000..004f28a --- /dev/null +++ b/exercises/practice/grep/.docs/instructions.md @@ -0,0 +1,27 @@ +# Instructions + +Search files for lines matching a search string and return all matching lines. + +The Unix [`grep`][grep] command searches files for lines that match a regular expression. +Your task is to implement a simplified `grep` command, which supports searching for fixed strings. + +The `grep` command takes three arguments: + +1. The string to search for. +2. Zero or more flags for customizing the command's behavior. +3. One or more files to search in. + +It then reads the contents of the specified files (in the order specified), finds the lines that contain the search string, and finally returns those lines in the order in which they were found. +When searching in multiple files, each matching line is prepended by the file name and a colon (':'). + +## Flags + +The `grep` command supports the following flags: + +- `-n` Prepend the line number and a colon (':') to each line in the output, placing the number after the filename (if present). +- `-l` Output only the names of the files that contain at least one matching line. +- `-i` Match using a case-insensitive comparison. +- `-v` Invert the program -- collect all lines that fail to match. +- `-x` Search only for lines where the search string matches the entire line. + +[grep]: https://pubs.opengroup.org/onlinepubs/9699919799/utilities/grep.html diff --git a/exercises/practice/grep/.docs/introduction.md b/exercises/practice/grep/.docs/introduction.md new file mode 100644 index 0000000..4041290 --- /dev/null +++ b/exercises/practice/grep/.docs/introduction.md @@ -0,0 +1,5 @@ +# Introduction + +You have taken a job at a local library helping organize their collection of old books. +The student patrons are often hunting for half-remembered quotes to cite in their term papers. +Rather than manually read every book from cover to cover, you decide to build a small tool to scan them, looking for these partial quotes. diff --git a/exercises/practice/grep/.meta/config.json b/exercises/practice/grep/.meta/config.json new file mode 100644 index 0000000..87e37bd --- /dev/null +++ b/exercises/practice/grep/.meta/config.json @@ -0,0 +1,19 @@ +{ + "authors": [ + "glennj" + ], + "files": { + "solution": [ + "grep.moon" + ], + "test": [ + "grep_spec.moon" + ], + "example": [ + ".meta/example.moon" + ] + }, + "blurb": "Search a file for lines matching a regular expression pattern.", + "source": "Conversation with Nate Foster.", + "source_url": "https://www.cs.cornell.edu/courses/cs3110/2014sp/hw/0/ps0.pdf" +} diff --git a/exercises/practice/grep/.meta/example.moon b/exercises/practice/grep/.meta/example.moon new file mode 100644 index 0000000..0f793d4 --- /dev/null +++ b/exercises/practice/grep/.meta/example.moon @@ -0,0 +1,51 @@ +List = require 'pl.List' + +matches = (line, pattern, opts) -> + line = line\lower! if opts.nocase + match = line\match pattern + (match and not opts.invert) or (opts.invert and not match) + + +grep_file = (filename, pattern, opts) -> + result = {} + file = io.open filename, "r" + assert file, "can't open #{filename}" + lineno = 0 + for line in file\lines! + lineno += 1 + if matches line, pattern, opts + if opts.filename_only + file\close! + return {filename} + match = {line} + table.insert match, 1, lineno if opts.lineno + table.insert match, 1, filename if opts.multifile + table.insert result, table.concat(match, ":") + file\close! + result + + +handle_options = (options, pattern, numfiles) -> + opts_list = List options + opts = { + lineno: opts_list\contains '-n' + filename_only: opts_list\contains '-l' + nocase: opts_list\contains '-i' + invert: opts_list\contains '-v' + whole_line: opts_list\contains '-x' + multifile: numfiles > 1 + } + pattern = pattern\lower! if opts.nocase + pattern = "^#{pattern}$" if opts.whole_line + opts, pattern + + +grep = (options, pattern, ...) -> + filenames = {...} + opts, pattern = handle_options options, pattern, #filenames + result = List! + for filename in *filenames + result\extend grep_file filename, pattern, opts + result + +{ :grep } diff --git a/exercises/practice/grep/.meta/generator.tmpl b/exercises/practice/grep/.meta/generator.tmpl new file mode 100644 index 0000000..ecbc829 --- /dev/null +++ b/exercises/practice/grep/.meta/generator.tmpl @@ -0,0 +1,53 @@ +import grep from require <%- h.quote(slug.snake) %> +file_util = require 'pl.file' + + +contents = { + "iliad.txt": [[ +Achilles sing, O Goddess! Peleus' son; +His wrath pernicious, who ten thousand woes +Caused to Achaia's host, sent many a soul +Illustrious into Ades premature, +And Heroes gave (so stood the will of Jove) +To dogs and to all ravening fowls a prey, +When fierce dispute had separated once +The noble Chief Achilles from the son +Of Atreus, Agamemnon, King of men.]], + + "midsummer-night.txt": [[ +I do entreat your grace to pardon me. +I know not by what power I am made bold, +Nor how it may concern my modesty, +In such a presence here to plead my thoughts; +But I beseech your grace that I may know +The worst that may befall me in this case, +If I refuse to wed Demetrius.]], + + "paradise-lost.txt": [[ +Of Mans First Disobedience, and the Fruit +Of that Forbidden Tree, whose mortal tast +Brought Death into the World, and all our woe, +With loss of Eden, till one greater Man +Restore us, and regain the blissful Seat, +Sing Heav'nly Muse, that on the secret top +Of Oreb, or of Sinai, didst inspire +That Shepherd, who first taught the chosen Seed]] +} + +before_each -> file_util.write f, g for f, g in pairs contents +after_each -> file_util.delete f for f, _ in pairs contents + + +describe <%- h.quote(slug.kebab .. ':') %>, -> +<% for i, group in ipairs(data.cases) do -%> + describe <%- h.quote(group.description .. ':') %>, -> + +<% for j, case in ipairs(group.cases) do -%> +<% files = h.word_list(case.input.files) -%> + <%= test_cmd(i == 1 and j == 1) %> <%- h.quote(case.description) %>, -> + result = <%= case.property %> <%- h.word_list(case.input.flags) %>, <%- h.quote(case.input.pattern) %>, <%- files:sub(2, -2) %> + expected = <%- h.string_list(case.expected, 3, {inline=0}) %> + assert.are.same expected, result + +<% end -%> +<% end -%> diff --git a/exercises/practice/grep/.meta/tests.toml b/exercises/practice/grep/.meta/tests.toml new file mode 100644 index 0000000..04c51e7 --- /dev/null +++ b/exercises/practice/grep/.meta/tests.toml @@ -0,0 +1,85 @@ +# This is an auto-generated file. +# +# Regenerating this file via `configlet sync` will: +# - Recreate every `description` key/value pair +# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications +# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion) +# - Preserve any other key/value pair +# +# As user-added comments (using the # character) will be removed when this file +# is regenerated, comments can be added via a `comment` key. + +[9049fdfd-53a7-4480-a390-375203837d09] +description = "Test grepping a single file -> One file, one match, no flags" + +[76519cce-98e3-46cd-b287-aac31b1d77d6] +description = "Test grepping a single file -> One file, one match, print line numbers flag" + +[af0b6d3c-e0e8-475e-a112-c0fc10a1eb30] +description = "Test grepping a single file -> One file, one match, case-insensitive flag" + +[ff7af839-d1b8-4856-a53e-99283579b672] +description = "Test grepping a single file -> One file, one match, print file names flag" + +[8625238a-720c-4a16-81f2-924ec8e222cb] +description = "Test grepping a single file -> One file, one match, match entire lines flag" + +[2a6266b3-a60f-475c-a5f5-f5008a717d3e] +description = "Test grepping a single file -> One file, one match, multiple flags" + +[842222da-32e8-4646-89df-0d38220f77a1] +description = "Test grepping a single file -> One file, several matches, no flags" + +[4d84f45f-a1d8-4c2e-a00e-0b292233828c] +description = "Test grepping a single file -> One file, several matches, print line numbers flag" + +[0a483b66-315b-45f5-bc85-3ce353a22539] +description = "Test grepping a single file -> One file, several matches, match entire lines flag" + +[3d2ca86a-edd7-494c-8938-8eeed1c61cfa] +description = "Test grepping a single file -> One file, several matches, case-insensitive flag" + +[1f52001f-f224-4521-9456-11120cad4432] +description = "Test grepping a single file -> One file, several matches, inverted flag" + +[7a6ede7f-7dd5-4364-8bf8-0697c53a09fe] +description = "Test grepping a single file -> One file, no matches, various flags" + +[3d3dfc23-8f2a-4e34-abd6-7b7d140291dc] +description = "Test grepping a single file -> One file, one match, file flag takes precedence over line flag" + +[87b21b24-b788-4d6e-a68b-7afe9ca141fe] +description = "Test grepping a single file -> One file, several matches, inverted and match entire lines flags" + +[ba496a23-6149-41c6-a027-28064ed533e5] +description = "Test grepping multiples files at once -> Multiple files, one match, no flags" + +[4539bd36-6daa-4bc3-8e45-051f69f5aa95] +description = "Test grepping multiples files at once -> Multiple files, several matches, no flags" + +[9fb4cc67-78e2-4761-8e6b-a4b57aba1938] +description = "Test grepping multiples files at once -> Multiple files, several matches, print line numbers flag" + +[aeee1ef3-93c7-4cd5-af10-876f8c9ccc73] +description = "Test grepping multiples files at once -> Multiple files, one match, print file names flag" + +[d69f3606-7d15-4ddf-89ae-01df198e6b6c] +description = "Test grepping multiples files at once -> Multiple files, several matches, case-insensitive flag" + +[82ef739d-6701-4086-b911-007d1a3deb21] +description = "Test grepping multiples files at once -> Multiple files, several matches, inverted flag" + +[77b2eb07-2921-4ea0-8971-7636b44f5d29] +description = "Test grepping multiples files at once -> Multiple files, one match, match entire lines flag" + +[e53a2842-55bb-4078-9bb5-04ac38929989] +description = "Test grepping multiples files at once -> Multiple files, one match, multiple flags" + +[9c4f7f9a-a555-4e32-bb06-4b8f8869b2cb] +description = "Test grepping multiples files at once -> Multiple files, no matches, various flags" + +[ba5a540d-bffd-481b-bd0c-d9a30f225e01] +description = "Test grepping multiples files at once -> Multiple files, several matches, file flag takes precedence over line number flag" + +[ff406330-2f0b-4b17-9ee4-4b71c31dd6d2] +description = "Test grepping multiples files at once -> Multiple files, several matches, inverted and match entire lines flags" diff --git a/exercises/practice/grep/grep.moon b/exercises/practice/grep/grep.moon new file mode 100644 index 0000000..0763556 --- /dev/null +++ b/exercises/practice/grep/grep.moon @@ -0,0 +1,4 @@ +grep = (options, pattern, ...) -> + error 'Implement me!' + +{ :grep } diff --git a/exercises/practice/grep/grep_spec.moon b/exercises/practice/grep/grep_spec.moon new file mode 100644 index 0000000..010151f --- /dev/null +++ b/exercises/practice/grep/grep_spec.moon @@ -0,0 +1,270 @@ +import grep from require 'grep' +file_util = require 'pl.file' + + +contents = { + "iliad.txt": [[ +Achilles sing, O Goddess! Peleus' son; +His wrath pernicious, who ten thousand woes +Caused to Achaia's host, sent many a soul +Illustrious into Ades premature, +And Heroes gave (so stood the will of Jove) +To dogs and to all ravening fowls a prey, +When fierce dispute had separated once +The noble Chief Achilles from the son +Of Atreus, Agamemnon, King of men.]], + + "midsummer-night.txt": [[ +I do entreat your grace to pardon me. +I know not by what power I am made bold, +Nor how it may concern my modesty, +In such a presence here to plead my thoughts; +But I beseech your grace that I may know +The worst that may befall me in this case, +If I refuse to wed Demetrius.]], + + "paradise-lost.txt": [[ +Of Mans First Disobedience, and the Fruit +Of that Forbidden Tree, whose mortal tast +Brought Death into the World, and all our woe, +With loss of Eden, till one greater Man +Restore us, and regain the blissful Seat, +Sing Heav'nly Muse, that on the secret top +Of Oreb, or of Sinai, didst inspire +That Shepherd, who first taught the chosen Seed]] +} + +before_each -> file_util.write f, g for f, g in pairs contents +after_each -> file_util.delete f for f, _ in pairs contents + + +describe 'grep:', -> + describe 'Test grepping a single file:', -> + + it 'One file, one match, no flags', -> + result = grep {}, 'Agamemnon', 'iliad.txt' + expected = { + 'Of Atreus, Agamemnon, King of men.', + } + assert.are.same expected, result + + pending 'One file, one match, print line numbers flag', -> + result = grep {'-n'}, 'Forbidden', 'paradise-lost.txt' + expected = { + '2:Of that Forbidden Tree, whose mortal tast', + } + assert.are.same expected, result + + pending 'One file, one match, case-insensitive flag', -> + result = grep {'-i'}, 'FORBIDDEN', 'paradise-lost.txt' + expected = { + 'Of that Forbidden Tree, whose mortal tast', + } + assert.are.same expected, result + + pending 'One file, one match, print file names flag', -> + result = grep {'-l'}, 'Forbidden', 'paradise-lost.txt' + expected = { + 'paradise-lost.txt', + } + assert.are.same expected, result + + pending 'One file, one match, match entire lines flag', -> + result = grep {'-x'}, 'With loss of Eden, till one greater Man', 'paradise-lost.txt' + expected = { + 'With loss of Eden, till one greater Man', + } + assert.are.same expected, result + + pending 'One file, one match, multiple flags', -> + result = grep {'-n', '-i', '-x'}, 'OF ATREUS, Agamemnon, KIng of MEN.', 'iliad.txt' + expected = { + '9:Of Atreus, Agamemnon, King of men.', + } + assert.are.same expected, result + + pending 'One file, several matches, no flags', -> + result = grep {}, 'may', 'midsummer-night.txt' + expected = { + 'Nor how it may concern my modesty,', + 'But I beseech your grace that I may know', + 'The worst that may befall me in this case,', + } + assert.are.same expected, result + + pending 'One file, several matches, print line numbers flag', -> + result = grep {'-n'}, 'may', 'midsummer-night.txt' + expected = { + '3:Nor how it may concern my modesty,', + '5:But I beseech your grace that I may know', + '6:The worst that may befall me in this case,', + } + assert.are.same expected, result + + pending 'One file, several matches, match entire lines flag', -> + result = grep {'-x'}, 'may', 'midsummer-night.txt' + expected = {} + assert.are.same expected, result + + pending 'One file, several matches, case-insensitive flag', -> + result = grep {'-i'}, 'ACHILLES', 'iliad.txt' + expected = { + "Achilles sing, O Goddess! Peleus' son;", + 'The noble Chief Achilles from the son', + } + assert.are.same expected, result + + pending 'One file, several matches, inverted flag', -> + result = grep {'-v'}, 'Of', 'paradise-lost.txt' + expected = { + 'Brought Death into the World, and all our woe,', + 'With loss of Eden, till one greater Man', + 'Restore us, and regain the blissful Seat,', + "Sing Heav'nly Muse, that on the secret top", + 'That Shepherd, who first taught the chosen Seed', + } + assert.are.same expected, result + + pending 'One file, no matches, various flags', -> + result = grep {'-n', '-l', '-x', '-i'}, 'Gandalf', 'iliad.txt' + expected = {} + assert.are.same expected, result + + pending 'One file, one match, file flag takes precedence over line flag', -> + result = grep {'-n', '-l'}, 'ten', 'iliad.txt' + expected = { + 'iliad.txt', + } + assert.are.same expected, result + + pending 'One file, several matches, inverted and match entire lines flags', -> + result = grep {'-x', '-v'}, 'Illustrious into Ades premature,', 'iliad.txt' + expected = { + "Achilles sing, O Goddess! Peleus' son;", + 'His wrath pernicious, who ten thousand woes', + "Caused to Achaia's host, sent many a soul", + 'And Heroes gave (so stood the will of Jove)', + 'To dogs and to all ravening fowls a prey,', + 'When fierce dispute had separated once', + 'The noble Chief Achilles from the son', + 'Of Atreus, Agamemnon, King of men.', + } + assert.are.same expected, result + + describe 'Test grepping multiples files at once:', -> + + pending 'Multiple files, one match, no flags', -> + result = grep {}, 'Agamemnon', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'iliad.txt:Of Atreus, Agamemnon, King of men.', + } + assert.are.same expected, result + + pending 'Multiple files, several matches, no flags', -> + result = grep {}, 'may', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'midsummer-night.txt:Nor how it may concern my modesty,', + 'midsummer-night.txt:But I beseech your grace that I may know', + 'midsummer-night.txt:The worst that may befall me in this case,', + } + assert.are.same expected, result + + pending 'Multiple files, several matches, print line numbers flag', -> + result = grep {'-n'}, 'that', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'midsummer-night.txt:5:But I beseech your grace that I may know', + 'midsummer-night.txt:6:The worst that may befall me in this case,', + 'paradise-lost.txt:2:Of that Forbidden Tree, whose mortal tast', + "paradise-lost.txt:6:Sing Heav'nly Muse, that on the secret top", + } + assert.are.same expected, result + + pending 'Multiple files, one match, print file names flag', -> + result = grep {'-l'}, 'who', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'iliad.txt', + 'paradise-lost.txt', + } + assert.are.same expected, result + + pending 'Multiple files, several matches, case-insensitive flag', -> + result = grep {'-i'}, 'TO', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + "iliad.txt:Caused to Achaia's host, sent many a soul", + 'iliad.txt:Illustrious into Ades premature,', + 'iliad.txt:And Heroes gave (so stood the will of Jove)', + 'iliad.txt:To dogs and to all ravening fowls a prey,', + 'midsummer-night.txt:I do entreat your grace to pardon me.', + 'midsummer-night.txt:In such a presence here to plead my thoughts;', + 'midsummer-night.txt:If I refuse to wed Demetrius.', + 'paradise-lost.txt:Brought Death into the World, and all our woe,', + 'paradise-lost.txt:Restore us, and regain the blissful Seat,', + "paradise-lost.txt:Sing Heav'nly Muse, that on the secret top", + } + assert.are.same expected, result + + pending 'Multiple files, several matches, inverted flag', -> + result = grep {'-v'}, 'a', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + "iliad.txt:Achilles sing, O Goddess! Peleus' son;", + 'iliad.txt:The noble Chief Achilles from the son', + 'midsummer-night.txt:If I refuse to wed Demetrius.', + } + assert.are.same expected, result + + pending 'Multiple files, one match, match entire lines flag', -> + result = grep {'-x'}, 'But I beseech your grace that I may know', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'midsummer-night.txt:But I beseech your grace that I may know', + } + assert.are.same expected, result + + pending 'Multiple files, one match, multiple flags', -> + result = grep {'-n', '-i', '-x'}, 'WITH LOSS OF EDEN, TILL ONE GREATER MAN', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'paradise-lost.txt:4:With loss of Eden, till one greater Man', + } + assert.are.same expected, result + + pending 'Multiple files, no matches, various flags', -> + result = grep {'-n', '-l', '-x', '-i'}, 'Frodo', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = {} + assert.are.same expected, result + + pending 'Multiple files, several matches, file flag takes precedence over line number flag', -> + result = grep {'-n', '-l'}, 'who', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + 'iliad.txt', + 'paradise-lost.txt', + } + assert.are.same expected, result + + pending 'Multiple files, several matches, inverted and match entire lines flags', -> + result = grep {'-x', '-v'}, 'Illustrious into Ades premature,', 'iliad.txt', 'midsummer-night.txt', 'paradise-lost.txt' + expected = { + "iliad.txt:Achilles sing, O Goddess! Peleus' son;", + 'iliad.txt:His wrath pernicious, who ten thousand woes', + "iliad.txt:Caused to Achaia's host, sent many a soul", + 'iliad.txt:And Heroes gave (so stood the will of Jove)', + 'iliad.txt:To dogs and to all ravening fowls a prey,', + 'iliad.txt:When fierce dispute had separated once', + 'iliad.txt:The noble Chief Achilles from the son', + 'iliad.txt:Of Atreus, Agamemnon, King of men.', + 'midsummer-night.txt:I do entreat your grace to pardon me.', + 'midsummer-night.txt:I know not by what power I am made bold,', + 'midsummer-night.txt:Nor how it may concern my modesty,', + 'midsummer-night.txt:In such a presence here to plead my thoughts;', + 'midsummer-night.txt:But I beseech your grace that I may know', + 'midsummer-night.txt:The worst that may befall me in this case,', + 'midsummer-night.txt:If I refuse to wed Demetrius.', + 'paradise-lost.txt:Of Mans First Disobedience, and the Fruit', + 'paradise-lost.txt:Of that Forbidden Tree, whose mortal tast', + 'paradise-lost.txt:Brought Death into the World, and all our woe,', + 'paradise-lost.txt:With loss of Eden, till one greater Man', + 'paradise-lost.txt:Restore us, and regain the blissful Seat,', + "paradise-lost.txt:Sing Heav'nly Muse, that on the secret top", + 'paradise-lost.txt:Of Oreb, or of Sinai, didst inspire', + 'paradise-lost.txt:That Shepherd, who first taught the chosen Seed', + } + assert.are.same expected, result +