trackler 2.1.0.24 → 2.1.0.25

data/tracks/r/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2014 Katrina Owen
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/r/README.md

@@ -134,11 +134,6 @@ Note however that at the moment only the following linting rules are strictly en
 
 To perform these specific checks locally, run `source("bin/run_lints.R")`.
 
-## License
-
-The MIT License (MIT)
-
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
 
 ## R icon
 The R logo was created by [Hadley Wickham](https://github.com/hadley) and others at [RStudio](https://www.rstudio.com/). The original file is licensed under version [4.0 of the Creative Commons Attribution-Share Alike license](https://creativecommons.org/licenses/by-sa/4.0/). We have adapted it, changing the colour scheme, for use on Exercism.

data/tracks/racket/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2015 Katrina Owen, _@kytrinyx.com
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/racket/README.md

@@ -73,11 +73,6 @@ Please do not add a README or README.md file to the problem directory. The READM
 
 Please see the [contributing guide](https://github.com/exercism/x-api/blob/master/CONTRIBUTING.md#the-exercise-data)
 
-## License
-
-The MIT License (MIT)
-
-Copyright (c) 2015 Katrina Owen, _@kytrinyx.com
 
 ## Racket icon
 The Racket logo was created by [Matthew Butterick](https://en.wikipedia.org/wiki/Matthew_Butterick) and released under the Creative Commons Attribution-Share Alike 3.0 Unported license.

data/tracks/racket/config.json

@@ -111,6 +111,11 @@
       "difficulty": 1,
       "slug": "list-ops",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "acronym",
+      "topics": []
     }
   ],
   "deprecated": [

data/tracks/racket/exercises/acronym/acronym-test.rkt

@@ -0,0 +1,40 @@
+#lang racket/base
+
+(require "acronym.rkt")
+
+(module+ test
+  (require rackunit rackunit/text-ui)
+
+  (define suite
+    (test-suite
+     "acronym tests"
+
+     (test-equal? "basic"
+                  (acronym "Portable Network Graphics")
+                  "PNG")
+
+     (test-equal? "lowercase words"
+                  (acronym "Ruby on Rails")
+                  "ROR")
+
+     (test-equal? "camelcase"
+                  (acronym "HyperText Markup Language")
+                  "HTML")
+
+     (test-equal? "punctuation"
+                  (acronym "First In, First Out")
+                  "FIFO")
+
+     (test-equal? "all caps words"
+                  (acronym "PHP: Hypertext Preprocessor")
+                  "PHP")
+
+     (test-equal? "non-acronym all caps word"
+                  (acronym "GNU Image Manipulation Program")
+                  "GIMP")
+
+     (test-equal? "hyphenated"
+                  (acronym "Complementary metal-oxide semiconductor")
+                  "CMOS")))
+
+  (run-tests suite))

data/tracks/racket/exercises/acronym/acronym.rkt

@@ -0,0 +1,3 @@
+#lang racket
+
+(provide acronym)

data/tracks/racket/exercises/acronym/example.rkt

@@ -0,0 +1,25 @@
+#lang racket
+
+(provide acronym)
+
+(define (all-upper-case? s)
+  (equal? s (string-upcase s)))
+
+(define (all-lower-case? s)
+  (equal? s (string-downcase s)))
+
+(define (process-word word)
+  (define (first-letter s)
+    (~a (char-upcase (string-ref s 0))))
+  (define (filter-caps s)
+    (list->string (filter char-upper-case? (string->list s))))
+  (cond
+    [(all-upper-case? word) (first-letter word)]
+    [(all-lower-case? word) (first-letter word)]
+    [else (filter-caps word)]))  ;; camelcase/mixed case
+
+(define (acronym str)
+  (let ([words (string-split str #px"(\\s+)|-")])
+    (apply string-append
+           (for/list ([w (in-list words)])
+             (process-word w)))))

data/tracks/racket/exercises/grep/example.rkt

@@ -1,28 +1,62 @@
 #lang racket
 
-(provide grep-file)
-
-(define (grep-file f pattern)
-  (with-input-from-file f
-    (lambda ()
-      (for/list ([line (in-lines)] ;; Iterate over lines in file, lazily
-                 [line-number (in-naturals 1)] ;; Iterate over natural numbers, lazily
-                 #:when (regexp-match? pattern line))
-        (cons line-number line)))))
-
-;; =============================================================================
-
-;; Code inside the "main" module is run in Dr.Racket or on the command-line,
-;;  but not when the file is included as a library.
-(module+ main
-  (require racket/cmdline)
-  (command-line
-   #:program "racket-grep"
-   #:args (pat-str . file*)
-   (begin
-     (define pattern (regexp pat-str))
-     (for ([f (in-list file*)])
-       (for ([num+str (in-list (grep-file f pattern))])
-         (printf "~a\n~a\n" f (make-string (string-length f) #\-))
-         (printf "~a : ~a\n" (car num+str) (cdr num+str))
-         (newline))))))
+(provide grep)
+
+(struct flags (lineno case-sensitive filename whole invert))
+
+(define (member? v lst)
+  (if (member v lst) #t #f))
+
+(define (process-flags fs)
+  (flags
+   (member? "-n" fs)
+   (not (member? "-i" fs))
+   (member? "-l" fs)
+   (member? "-x" fs)
+   (member? "-v" fs)))
+
+(define (add-line-numbers lines)
+  (for/list ([n (in-naturals 1)]
+             [line (in-list lines)])
+    (cons line n)))
+
+(define (process-pattern pat flags)
+  (define cpat (regexp-quote pat (flags-case-sensitive flags)))
+  (if (flags-whole flags)
+      (string-append "^" cpat "$")
+      cpat))
+
+(define (grep-file f pat flags mod print-filename?)
+  (define lines (add-line-numbers (file->lines f)))
+  (define line-filter
+    (lambda (line) (mod (regexp-match? pat (car line)))))
+  (define res (filter line-filter lines))
+  (define (add-lines matches)
+    (if (flags-lineno flags)
+        (map (lambda (m) (format "~a:~a" (cdr m) (car m))) matches)
+        (map (lambda (m) (car m)) matches)))
+  (define (add-filenames result)
+    (if print-filename?
+        (map (lambda (s) (format "~a:~a" f s)) result)
+        result))
+  (add-filenames (add-lines res)))
+
+(define (file-contains? f pat)
+  (regexp-match? pat (file->string f)))
+
+(define (grep fls pat files)
+  (define flags (process-flags fls))
+  (define repat (process-pattern pat flags))
+  (define filter-mod
+    (if (flags-invert flags)
+        not
+        identity))
+  (define file-filter
+    (lambda (f) (filter-mod (file-contains? f repat))))
+  (define print-filename? (> (length files) 1))
+  (if (flags-filename flags)
+      (filter file-filter files)
+      (apply append
+             (map (lambda (f)
+                    (grep-file f repat flags filter-mod print-filename?))
+                  files))))

data/tracks/racket/exercises/grep/grep-test.rkt

@@ -5,28 +5,165 @@
 (module+ test
   (require rackunit rackunit/text-ui)
 
-  (define-syntax-rule (grep-this-file pat-str)
-    (grep-file "./grep-test.rkt" (regexp pat-str)))
-
   (define suite
-    (test-suite "grep tests"
+    (test-suite
+     "grep tests"
+
+     (test-equal? "Test grepping a single file"
+                  (grep '()              ; flags
+                        "Agamemnon"      ; pattern
+                        '("iliad.txt"))  ; files
+                  '("Of Atreus, Agamemnon, King of men."))
+
+     (test-equal? "One file, one match, print line numbers flag"
+                  (grep '("-n")
+                        "Forbidden"
+                        '("paradise-lost.txt"))
+                  '("2:Of that Forbidden Tree, whose mortal tast"))
+
+     (test-equal? "One file, one match, case-insensitive flag"
+                  (grep '("-i")
+                        "FORBIDDEN"
+                        '("paradise-lost.txt"))
+                  '("Of that Forbidden Tree, whose mortal tast"))
+
+     (test-equal? "One file, one match, print file names flag"
+                  (grep '("-l")
+                        "Forbidden"
+                        '("paradise-lost.txt"))
+                  '("paradise-lost.txt"))
+
+     (test-equal? "One file, one match, match entire lines flag"
+                  (grep '("-x")
+                        "With loss of Eden, till one greater Man"
+                        '("paradise-lost.txt"))
+                  '("With loss of Eden, till one greater Man"))
+
+     (test-equal? "One file, match entire lines flag, no match"
+                  (grep '("-x")
+                        "Eden"
+                        '("paradise-lost.txt"))
+                  '())
+
+     (test-equal? "One file, one match, multiple flags"
+                  (grep '("-n" "-i" "-x")
+                        "OF ATREUS, Agamemnon, KIng of MEN."
+                        '("iliad.txt"))
+                  '("9:Of Atreus, Agamemnon, King of men."))
+
+     (test-equal? "One file, several matches, no flags"
+                  (grep '()
+                        "may"
+                        '("midsummer-night.txt"))
+                  '("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,"))
 
-     (test-equal? "no-matches"
-                  (grep-this-file "^#!/usr/bin/env perl")
+     (test-equal? "One file, several matches, print line numbers flag"
+                  (grep '("-n")
+                        "may"
+                        '("midsummer-night.txt"))
+                  '("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,"))
+
+     (test-equal? "One file, several matches, match entire lines flag"
+                  (grep '("-x")
+                        "may"
+                        '("midsummer-night.txt"))
+                  '())
+
+     (test-equal? "One file, several matches, case-insensitive flag"
+                  (grep '("-i")
+                        "ACHILLES"
+                        '("iliad.txt"))
+                  '("Achilles sing, O Goddess! Peleus' son;"
+                    "The noble Chief Achilles from the son"))
+
+     (test-equal? "One file, several matches, inverted flag"
+                  (grep '("-v")
+                        "Of"
+                        '("paradise-lost.txt"))
+                  '("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"))
+
+     (test-equal? "One file, no matches, various flags"
+                  (grep '("-n" "-l" "-x" "-i")
+                        "Gandalf"
+                        '("iliad.txt"))
                   '())
 
-     (test-equal? "one match"
-                  (grep-this-file "^#lang racket$")
-                  '((1 . "#lang racket")))
+     (test-equal? "Test grepping multiples files at once"
+                  (grep '()
+                        "Agamemnon"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("iliad.txt:Of Atreus, Agamemnon, King of men."))
+
+     (test-equal? "Multiple files, several matches, no flags"
+                  (grep '()
+                        "may"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("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,"))
+
+     (test-equal? "Multiple files, several matches, print line numbers flag"
+                  (grep '("-n")
+                        "that"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("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"))
+
+     (test-equal? "Multiple files, one match, print file names flag"
+                  (grep '("-l")
+                        "who"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("iliad.txt"
+                    "paradise-lost.txt"))
+
+     (test-equal? "Multiple files, several matches, case-insensitive flag"
+                  (grep '("-i")
+                        "TO"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("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"))
+
+     (test-equal? "Multiple files, several matches, inverted flag"
+                  (grep '("-v")
+                        "a"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("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."))
 
-     (test-equal? "a few matches"
-                  (map car (grep-this-file "require .*"))
-                  '(3 6 23))
+     (test-equal? "Multiple files, one match, match entire lines flag"
+                  (grep '("-x")
+                        "But I beseech your grace that I may know"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("midsummer-night.txt:But I beseech your grace that I may know"))
 
-     (test-equal? "many matches"
-                  (+ 1
-                     (length (grep-this-file "\\("))
-                     (length (grep-this-file "^$")))
-                  (length (file->lines "grep-test.rkt")))))
+     (test-equal? "Multiple files, one match, multiple flags"
+                  (grep '("-n" "-i" "-x")
+                        "WITH LOSS OF EDEN, TILL ONE GREATER MAN"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '("paradise-lost.txt:4:With loss of Eden, till one greater Man"))
 
+     (test-equal? "Multiple files, no matches, various flags"
+                  (grep '("-n" "-l" "-x" "-i")
+                        "Frodo"
+                        '("iliad.txt" "midsummer-night.txt" "paradise-lost.txt"))
+                  '())))
   (run-tests suite))

data/tracks/racket/exercises/grep/grep.rkt

@@ -1,20 +1,3 @@
 #lang racket
 
-(provide
-  grep-file
-  ;; (-> Path-String Regexp (Listof (Pairof Natural String)))
-  ;; Find lines in a file matching a regular expression pattern.
-  ;; Output is a list of pairs containing the number and contents of
-  ;;  each matching line.
-)
-
-
-;; =============================================================================
-
-(module+ main
-  ;; Extra challenge: fill in this submodule so that running
-  ;;  `racket grep.rkt PATTERN FILE ...`
-  ;; runs grep on each FILE searching for PATTERN, and prints the results
-  ;; to stdout.
-  (printf "Not implemented!\n")
-)
+(provide grep)

data/tracks/racket/exercises/grep/iliad.txt

@@ -0,0 +1,9 @@
+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.

data/tracks/racket/exercises/grep/midsummer-night.txt

@@ -0,0 +1,7 @@
+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.