Add proverb exercise (#168)
This commit is contained in:
Erik Schierboom
@@ -388,6 +388,14 @@
|
||||
"practices": [],
|
||||
"prerequisites": [],
|
||||
"difficulty": 3
|
||||
},
|
||||
{
|
||||
"slug": "proverb",
|
||||
"name": "Proverb",
|
||||
"uuid": "b176315f-5f9b-438a-8fe1-2c32303b58be",
|
||||
"practices": [],
|
||||
"prerequisites": [],
|
||||
"difficulty": 3
|
||||
}
|
||||
]
|
||||
},
|
||||
|
||||
19
exercises/practice/proverb/.docs/instructions.md
Normal file
19
exercises/practice/proverb/.docs/instructions.md
Normal file
@@ -0,0 +1,19 @@
|
||||
# Instructions
|
||||
|
||||
For want of a horseshoe nail, a kingdom was lost, or so the saying goes.
|
||||
|
||||
Given a list of inputs, generate the relevant proverb.
|
||||
For example, given the list `["nail", "shoe", "horse", "rider", "message", "battle", "kingdom"]`, you will output the full text of this proverbial rhyme:
|
||||
|
||||
```text
|
||||
For want of a nail the shoe was lost.
|
||||
For want of a shoe the horse was lost.
|
||||
For want of a horse the rider was lost.
|
||||
For want of a rider the message was lost.
|
||||
For want of a message the battle was lost.
|
||||
For want of a battle the kingdom was lost.
|
||||
And all for the want of a nail.
|
||||
```
|
||||
|
||||
Note that the list of inputs may vary; your solution should be able to handle lists of arbitrary length and content.
|
||||
No line of the output text should be a static, unchanging string; all should vary according to the input given.
|
||||
19
exercises/practice/proverb/.meta/config.json
Normal file
19
exercises/practice/proverb/.meta/config.json
Normal file
@@ -0,0 +1,19 @@
|
||||
{
|
||||
"authors": [
|
||||
"erikschierboom"
|
||||
],
|
||||
"files": {
|
||||
"solution": [
|
||||
"proverb.8th"
|
||||
],
|
||||
"test": [
|
||||
"test.8th"
|
||||
],
|
||||
"example": [
|
||||
".meta/example.8th"
|
||||
]
|
||||
},
|
||||
"blurb": "For want of a horseshoe nail, a kingdom was lost, or so the saying goes. Output the full text of this proverbial rhyme.",
|
||||
"source": "Wikipedia",
|
||||
"source_url": "https://en.wikipedia.org/wiki/For_Want_of_a_Nail"
|
||||
}
|
||||
12
exercises/practice/proverb/.meta/example.8th
Normal file
12
exercises/practice/proverb/.meta/example.8th
Normal file
@@ -0,0 +1,12 @@
|
||||
: losses \ a -- a
|
||||
( a:open swap "For want of a %s the %s was lost." s:strfmt ) 2 1 a:map+
|
||||
;
|
||||
|
||||
: reason \ a -- s
|
||||
0 a:_@ null? if ;then
|
||||
"And all for the want of a %s." s:strfmt
|
||||
;
|
||||
|
||||
: recite \ a -- a
|
||||
dup losses swap reason null; a:push
|
||||
;
|
||||
28
exercises/practice/proverb/.meta/tests.toml
Normal file
28
exercises/practice/proverb/.meta/tests.toml
Normal file
@@ -0,0 +1,28 @@
|
||||
# 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.
|
||||
|
||||
[e974b73e-7851-484f-8d6d-92e07fe742fc]
|
||||
description = "zero pieces"
|
||||
|
||||
[2fcd5f5e-8b82-4e74-b51d-df28a5e0faa4]
|
||||
description = "one piece"
|
||||
|
||||
[d9d0a8a1-d933-46e2-aa94-eecf679f4b0e]
|
||||
description = "two pieces"
|
||||
|
||||
[c95ef757-5e94-4f0d-a6cb-d2083f5e5a83]
|
||||
description = "three pieces"
|
||||
|
||||
[433fb91c-35a2-4d41-aeab-4de1e82b2126]
|
||||
description = "full proverb"
|
||||
|
||||
[c1eefa5a-e8d9-41c7-91d4-99fab6d6b9f7]
|
||||
description = "four pieces modernized"
|
||||
173
exercises/practice/proverb/libs/exercism/test
Normal file
173
exercises/practice/proverb/libs/exercism/test
Normal file
@@ -0,0 +1,173 @@
|
||||
needs console/loaded
|
||||
|
||||
\ -----------------------------------------------------------------
|
||||
|
||||
ns: test
|
||||
|
||||
-1 var, test-count
|
||||
var tests-passed
|
||||
var tests-failed
|
||||
var tests-skipped
|
||||
true var, run-test
|
||||
|
||||
\ Some utility words
|
||||
|
||||
|
||||
: test-passed \ s x x -- \\ test name, expected value, actual value
|
||||
2drop
|
||||
1 tests-passed n:+!
|
||||
con:green con:onBlack . space " ... OK" . con:white con:onBlack cr
|
||||
;
|
||||
|
||||
: test-skipped \ s --
|
||||
1 tests-skipped n:+!
|
||||
con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr
|
||||
;
|
||||
|
||||
: test-failed \ s x x -- \\ test name, expected value, actual value
|
||||
1 tests-failed n:+!
|
||||
rot
|
||||
con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
|
||||
" Actual: «" . . "»" . cr
|
||||
" Expected: «" . . "»" . cr cr
|
||||
;
|
||||
|
||||
: isword? \ x -- x f
|
||||
dup >kind ns:w n:=
|
||||
;
|
||||
|
||||
: run-test? \ -- T
|
||||
run-test @ if true else "RUN_ALL_TESTS" getenv n:>bool then
|
||||
;
|
||||
|
||||
\ Num passed + num skipped + num failed should == num tests
|
||||
: all-tests-run? \ -- T
|
||||
tests-passed @ tests-skipped @ tests-failed @ n:+ n:+
|
||||
test-count @ n:=
|
||||
;
|
||||
|
||||
\ returns true if x is a date, false otherwise
|
||||
: date? \ x -- x T
|
||||
dup >kind ns:d n:=
|
||||
;
|
||||
|
||||
\ adapted from 8th forum -- https://8th-dev.com/forum/index.php/topic,2745.0.html
|
||||
: eq? \ x x -- T
|
||||
\ are the items the same kind?
|
||||
2dup >kind swap >kind n:=
|
||||
!if 2drop false ;then
|
||||
|
||||
\ same kind: try different comparators
|
||||
number? if n:= ;then
|
||||
string? if s:= ;then
|
||||
array? if ' eq? a:= 2nip ;then
|
||||
map? if ' eq? m:= 2nip ;then
|
||||
date? if d:= ;then
|
||||
|
||||
\ otherwise fall back to 'lazy evaluation'
|
||||
l: =
|
||||
;
|
||||
|
||||
: eps_eq? \ n x x -- T
|
||||
\ are the items the same kind?
|
||||
2dup >kind swap >kind n:=
|
||||
!if 2drop false ;then
|
||||
number? !if 2drop false ;then
|
||||
rot n:~=
|
||||
;
|
||||
|
||||
: check-depth \ ... n -- ...
|
||||
dup>r
|
||||
n:1+ depth n:=
|
||||
!if
|
||||
con:red con:onBlack
|
||||
"PANIC: expected stack depth to be " . r> . cr
|
||||
"Stack is:" . cr
|
||||
.s cr
|
||||
255 die
|
||||
then
|
||||
rdrop
|
||||
;
|
||||
|
||||
\ -----------------------------------------------------------------
|
||||
|
||||
\ status report at end of run
|
||||
( all-tests-run?
|
||||
!if con:red con:onBlack "... FAIL - not all tests completed" . con:white con:onBlack cr then
|
||||
) onexit
|
||||
|
||||
\ Print a summary of the tests run
|
||||
( con:white con:onBlack
|
||||
test-count @ . space "tests planned - " .
|
||||
tests-passed @ . space "passed - " .
|
||||
tests-skipped @ . space "skipped - " .
|
||||
tests-failed @ . space "failed" . cr
|
||||
) onexit
|
||||
|
||||
\ -----------------------------------------------------------------
|
||||
\ The public-facing words
|
||||
\ -----------------------------------------------------------------
|
||||
|
||||
: equal? \ s x w -- | s w x --
|
||||
run-test? !if 2drop test-skipped ;; then
|
||||
isword? !if swap then
|
||||
w:exec
|
||||
3 check-depth
|
||||
2dup \ so test-failed can show actual and expected
|
||||
eq? if test-passed else test-failed then
|
||||
;
|
||||
|
||||
: approx_equal? \ s x w n -- | s w x n --
|
||||
run-test? !if 3drop test-skipped ;; then
|
||||
-rot isword? !if swap then
|
||||
w:exec
|
||||
4 check-depth
|
||||
3dup \ so test-failed can show actual and expected
|
||||
eps_eq?
|
||||
if rot drop test-passed else rot drop test-failed then
|
||||
;
|
||||
|
||||
: true? \ s w --
|
||||
run-test? !if drop test-skipped ;; then
|
||||
w:exec
|
||||
2 check-depth
|
||||
true swap dup \ so test-failed can show actual and expected
|
||||
if test-passed else test-failed then
|
||||
;
|
||||
|
||||
: false? \ s w --
|
||||
run-test? !if drop test-skipped ;; then
|
||||
w:exec
|
||||
2 check-depth
|
||||
false swap dup \ so test-failed can show actual and expected
|
||||
!if test-passed else test-failed then
|
||||
;
|
||||
|
||||
: null? \ s w --
|
||||
run-test? !if drop test-skipped ;; then
|
||||
w:exec
|
||||
2 check-depth
|
||||
null swap dup \ so test-failed can show actual and expected
|
||||
G:null? nip if test-passed else test-failed then
|
||||
;
|
||||
|
||||
: SKIP-REST-OF-TESTS false run-test ! ;
|
||||
|
||||
: tests \ n --
|
||||
test-count !
|
||||
;
|
||||
|
||||
\ Set the exit status:
|
||||
\ 0 = all OK
|
||||
\ 1 = not all tests were run (some error occurred)
|
||||
\ 2 = some tests failed
|
||||
: end-of-tests \ --
|
||||
all-tests-run?
|
||||
if
|
||||
tests-failed @ 0 n:= if 0 else 2 then
|
||||
else
|
||||
1
|
||||
then
|
||||
die
|
||||
;
|
||||
|
||||
3
exercises/practice/proverb/proverb.8th
Normal file
3
exercises/practice/proverb/proverb.8th
Normal file
@@ -0,0 +1,3 @@
|
||||
: recite \ a -- a
|
||||
|
||||
;
|
||||
39
exercises/practice/proverb/test.8th
Normal file
39
exercises/practice/proverb/test.8th
Normal file
@@ -0,0 +1,39 @@
|
||||
"proverb.8th" f:include
|
||||
needs exercism/test
|
||||
with: test
|
||||
6 tests
|
||||
|
||||
"zero pieces"
|
||||
( [] recite )
|
||||
[]
|
||||
equal?
|
||||
|
||||
SKIP-REST-OF-TESTS
|
||||
|
||||
"one piece"
|
||||
( ["nail"] recite )
|
||||
["And all for the want of a nail."]
|
||||
equal?
|
||||
|
||||
"two pieces"
|
||||
( ["nail", "shoe"] recite )
|
||||
["For want of a nail the shoe was lost.", "And all for the want of a nail."]
|
||||
equal?
|
||||
|
||||
"three pieces"
|
||||
( ["nail", "shoe", "horse"] recite )
|
||||
["For want of a nail the shoe was lost.", "For want of a shoe the horse was lost.", "And all for the want of a nail."]
|
||||
equal?
|
||||
|
||||
"full proverb"
|
||||
( ["nail", "shoe", "horse", "rider", "message", "battle", "kingdom"] recite )
|
||||
["For want of a nail the shoe was lost.", "For want of a shoe the horse was lost.", "For want of a horse the rider was lost.", "For want of a rider the message was lost.", "For want of a message the battle was lost.", "For want of a battle the kingdom was lost.", "And all for the want of a nail."]
|
||||
equal?
|
||||
|
||||
"four pieces modernized"
|
||||
( ["pin", "gun", "soldier", "battle"] recite )
|
||||
["For want of a pin the gun was lost.", "For want of a gun the soldier was lost.", "For want of a soldier the battle was lost.", "And all for the want of a pin."]
|
||||
equal?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
Reference in New Issue
Block a user