Convert a phrase to its acronym.
Techies love their TLA (Three Letter Acronyms)!
Help generate some jargon by writing a program that converts a long name like Portable Network Graphics to its acronym (PNG).
For installation and learning resources, refer to the exercism Racket page.
You can run the provided tests through DrRacket, or via the command line.
To run the test through DrRacket, simply open the test file and click the 'Run' button in the upper right.
To run the test from the command line, run the test from the exercise directory with the following command:
raco test acronym-test.rkt
which will display the following:
raco test: (submod "acronym-test.rkt" test) 2 success(es) 0 failure(s) 0 error(s) 2 test(s) run 0 2 tests passed
Julien Vanier https://github.com/monkbroc
It's possible to submit an incomplete solution so you can see how others have completed the exercise.
#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))
#lang racket (provide (contract-out [acronym (string? . -> . string?)])) ; Walk through the string a character at a time, peeking at the next character. ; If the head character is lower case and the next character is upper case, ; then put a space between them, and skip past the next (thus, cddr). Otherwise ; cons the head character on to the output list. (define (space-camel-case s) (let ([as-chars (string->list s)]) (define (space-inserter lst) (cond [(< (length lst) 2) lst] [(and (char-lower-case? (car lst)) (char-upper-case? (cadr lst))) (cons (car lst) (cons #\space (cons (cadr lst) (space-inserter (cddr lst)))))] [else (cons (car lst) (space-inserter (cdr lst)))])) (list->string (space-inserter as-chars)))) (define (acronym s) (let ([camel-safe (space-camel-case s)]) (string-join (map (λ(u) (string-upcase (substring u 0 1))) (string-split (string-replace camel-safe "-" " "))) ""))) ; the empty string here is used by join
I liked the camel-case twist.