Skip to content

Commit

Permalink
1 new exercise: pig-latin (#142)
Browse files Browse the repository at this point in the history 
* adding pig-latin

* removing introduction

* comma missing in config.json

* VALUES -> VALUE

* implemented change request by axtens

* VALUES -> VALUE
  • Loading branch information
@kapitaali
kapitaali authored May 2, 2024
1 parent 2a03c8c commit 876cca8
Show file tree
Hide file tree
Showing 11 changed files with 754 additions and 0 deletions.
8 changes: 8 additions & 0 deletions config.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -353,6 +353,14 @@
"prerequisites": [],
"difficulty": 4
},
{
"slug": "pig-latin",
"name": "Pig Latin",
"uuid": "3ed36cd0-8087-41b1-bf31-1625238344ce",
"practices": [],
"prerequisites": [],
"difficulty": 5
},
{
"slug": "pascals-triangle",
"name": "Pascal's Triangle",
Expand Down
18 changes: 18 additions & 0 deletions exercises/practice/pig-latin/.docs/instructions.md
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
# Instructions

Implement a program that translates from English to Pig Latin.

Pig Latin is a made-up children's language that's intended to be
confusing. It obeys a few simple rules (below), but when it's spoken
quickly it's really difficult for non-children (and non-native speakers)
to understand.

- **Rule 1**: If a word begins with a vowel sound, add an "ay" sound to the end of the word. Please note that "xr" and "yt" at the beginning of a word make vowel sounds (e.g. "xray" -> "xrayay", "yttria" -> "yttriaay").
- **Rule 2**: If a word begins with a consonant sound, move it to the end of the word and then add an "ay" sound to the end of the word. Consonant sounds can be made up of multiple consonants, a.k.a. a consonant cluster (e.g. "chair" -> "airchay").
- **Rule 3**: If a word starts with a consonant sound followed by "qu", move it to the end of the word, and then add an "ay" sound to the end of the word (e.g. "square" -> "aresquay").
- **Rule 4**: If a word contains a "y" after a consonant cluster or as the second letter in a two letter word it makes a vowel sound (e.g. "rhythm" -> "ythmrhay", "my" -> "ymay").

There are a few more rules for edge cases, and there are regional
variants too.

See <http://en.wikipedia.org/wiki/Pig_latin> for more details.
23 changes: 23 additions & 0 deletions exercises/practice/pig-latin/.meta/config.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
{
"authors": [
"kapitaali"
],
"files": {
"solution": [
"src/pig-latin.cob"
],
"test": [
"tst/pig-latin/pig-latin.cut"
],
"example": [
".meta/proof.ci.cob"
],
"invalidator": [
"test.sh",
"test.ps1"
]
},
"blurb": "Implement a program that translates from English to Pig Latin.",
"source": "The Pig Latin exercise at Test First Teaching by Ultrasaurus",
"source_url": "https://github.com/ultrasaurus/test-first-teaching/blob/master/learn_ruby/pig_latin/"
}
257 changes: 257 additions & 0 deletions exercises/practice/pig-latin/.meta/proof.ci.cob
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,257 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. PIG-LATIN.
AUTHOR. kapitaali.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VOWELS PIC X(6) VALUE 'aeiouy'.
01 WS-INPUT PIC X(60).
01 WS-RESULT PIC X(60).
01 STR PIC X(60).
01 TEMP PIC X(60).
01 TEMP2 PIC X(60).
01 BOOL PIC 9.
01 A PIC 99.
01 B PIC 99 VALUE 1.
01 C PIC 99.
01 X PIC X.
01 I PIC 99.
01 LEN PIC 99.
01 LEN2 PIC 99.
01 INPUTLEN PIC 99.

01 STARTING-POINT USAGE BINARY-LONG.
01 ITEM-COUNT USAGE BINARY-LONG.

01 Wordstable.
02 WORDSLIST PIC X(60) OCCURS 10 TIMES.


PROCEDURE DIVISION.

STR-LENGTH.
MOVE 0 TO LEN.
PERFORM VARYING A FROM FUNCTION LENGTH(STR)
BY -1 UNTIL STR(A:1) IS NOT EQUAL TO " "
ADD 1 TO LEN
END-PERFORM.
COMPUTE LEN = FUNCTION LENGTH(STR) - LEN.


BEGINS-WITH-VOWEL.
MOVE FUNCTION LOWER-CASE(STR(1:1)) TO X.
PERFORM IS-X-VOWEL.
IF BOOL = 1
PERFORM RULE-1
ELSE IF STR(1:1) = 'x'
MOVE STR(2:1) TO X
PERFORM IS-X-VOWEL
IF BOOL = 0
PERFORM RULE-1
ELSE
PERFORM RULE-2
END-IF
ELSE IF STR(2:2) = 'qu'
PERFORM RULE-3
ELSE
PERFORM FIND-FIRST-VOWEL
IF X = 'y'
PERFORM RULE-4
ELSE
PERFORM RULE-2
END-IF
END-IF.


IS-X-VOWEL.
MOVE 0 TO BOOL.
MOVE FUNCTION LOWER-CASE(X) TO X.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 6
IF VOWELS(I:1) = X
MOVE 1 TO BOOL
END-IF
END-PERFORM.


FIND-FIRST-VOWEL.
MOVE 1 TO I.
MOVE 1 TO A.
MOVE 0 TO BOOL
PERFORM STR-LENGTH.
PERFORM VARYING A FROM 1 BY 1 UNTIL A = LEN
MOVE STR(A:1) TO X
PERFORM IS-X-VOWEL
IF BOOL = 1
EXIT PARAGRAPH
END-IF
END-PERFORM.


CHECK-IF-MULTIPLE-WORDS.
MOVE WS-INPUT TO STR.
PERFORM STR-LENGTH.
MOVE 1 TO A.
PERFORM VARYING I FROM 1 BY 1 UNTIL I = LEN
IF STR(I:1) IS NOT EQUAL TO " "
ADD 1 TO A
ELSE
ADD 1 TO A
EXIT PERFORM
END-IF
END-PERFORM.
* spaces before end of string -> multiple words
IF A < LEN
MOVE 1 TO BOOL
ELSE
MOVE 0 TO BOOL
END-IF.


PROCESS-MULTIPLE-WORDS.
INITIALIZE Wordstable.
MOVE SPACES TO TEMP2.
MOVE 1 TO INPUTLEN.
INITIALIZE ITEM-COUNT.
MOVE 1 TO STARTING-POINT.
MOVE 1 TO ITEM-COUNT.
* unstring perform by bruce axtens, begin
PERFORM UNTIL EXIT
UNSTRING WS-INPUT DELIMITED BY SPACE
INTO WORDSLIST(ITEM-COUNT)
WITH POINTER STARTING-POINT
END-UNSTRING
IF WORDSLIST(ITEM-COUNT) = SPACE
EXIT PERFORM
END-IF
ADD 1 TO ITEM-COUNT
END-PERFORM.
* end
PERFORM VARYING C FROM 1 BY 1 UNTIL C > 10
MOVE WORDSLIST(C) TO STR
PERFORM BEGINS-WITH-VOWEL
MOVE WS-RESULT TO STR
PERFORM STR-LENGTH
IF C > 1
ADD 1 TO INPUTLEN
MOVE STR TO TEMP2(INPUTLEN:LEN)
ADD LEN TO INPUTLEN
ELSE
MOVE STR TO TEMP2
ADD LEN TO INPUTLEN
END-IF
MOVE WS-RESULT TO WORDSLIST(C)
END-PERFORM.
MOVE TEMP2 TO WS-RESULT.


TRANSLATE.
MOVE 1 TO LEN2.
MOVE WS-INPUT TO STR.
PERFORM STR-LENGTH.
IF WS-INPUT = " "
MOVE TEMP TO WS-RESULT
EXIT PARAGRAPH
END-IF.
PERFORM CHECK-IF-MULTIPLE-WORDS.
IF BOOL = 1
PERFORM PROCESS-MULTIPLE-WORDS
ELSE
MOVE WS-INPUT TO STR
PERFORM BEGINS-WITH-VOWEL
END-IF.


* Rule 1: If a word begins with a vowel sound, add an "ay"
* sound to the end of the word. Please note that "xr"
* and "yt" at the beginning of a word make vowel sounds
* (e.g. "xray" -> "xrayay", "yttria" -> "yttriaay").
RULE-1.
PERFORM STR-LENGTH.
IF STR(1:1) = "y"
IF STR(2:1) = "t"
ADD 1 TO LEN
MOVE STR TO WS-RESULT
MOVE "ay" TO WS-RESULT(LEN:2)
ELSE
MOVE STR(2:55) TO STR(1:55)
MOVE "yay" TO STR(LEN:3)
MOVE STR TO WS-RESULT
END-IF
ELSE
ADD 1 TO LEN
MOVE STR TO WS-RESULT
MOVE "ay" TO WS-RESULT(LEN:2)
END-IF.

* Rule 2: If a word begins with a consonant sound, move it
* to the end of the word and then add an "ay" sound to
* the end of the word. Consonant sounds can be made up
* of multiple consonants, such as the "ch" in "chair" or
* "st" in "stand" (e.g. "chair" -> "airchay").
RULE-2.
MOVE 0 TO BOOL.
PERFORM STR-LENGTH.
IF LEN = 0
MOVE " " TO WS-RESULT
ELSE IF STR(1:2) = "qu"
MOVE STR(3:55) TO STR(1:55)
PERFORM STR-LENGTH
ADD 1 TO LEN GIVING A
MOVE "quay" TO STR(A:4)
MOVE STR TO WS-RESULT
ELSE
MOVE 1 TO A
PERFORM VARYING I FROM 1 BY 1 UNTIL BOOL = 1
MOVE STR(A:1) TO X
PERFORM IS-X-VOWEL
ADD 1 TO A
END-PERFORM
SUBTRACT 2 FROM A GIVING I
MOVE STR(1:I) TO TEMP
SUBTRACT 1 FROM A
MOVE STR(A:55) TO STR(1:55)
PERFORM STR-LENGTH
ADD 1 TO LEN GIVING A
MOVE TEMP TO STR(A:I)
MOVE STR TO WS-RESULT
PERFORM STR-LENGTH
ADD 1 TO LEN
MOVE "ay" TO WS-RESULT(LEN:2)
END-IF.

* Rule 3: If a word starts with a consonant sound followed by
* "qu", move it to the end of the word, and then add an "ay"
* sound to the end of the word (e.g. "square" -> "aresquay").
RULE-3.
MOVE STR(1:3) TO TEMP.
MOVE STR(4:55) TO STR(1:55).
PERFORM STR-LENGTH.
ADD 1 TO LEN GIVING A.
MOVE TEMP TO STR(A:3).
ADD 3 TO A.
MOVE "ay" TO STR(A:2).
MOVE STR TO WS-RESULT.

* Rule 4: If a word contains a "y" after a consonant cluster or
* as the second letter in a two letter word it makes a vowel
* sound (e.g. "rhythm" -> "ythmrhay", "my" -> "ymay").
RULE-4.
PERFORM VARYING I FROM 1 BY 1 UNTIL I = 60
IF STR(I:1) = 'y'
EXIT PERFORM
END-IF
END-PERFORM.
* y is at index I, so everything before y is B characters
SUBTRACT 1 FROM I GIVING B.
MOVE STR(1:B) TO TEMP.
* move everything starting from y to the beginning
MOVE STR(I:55) TO STR(1:55).
PERFORM STR-LENGTH.
* move stuff before y to the end
COMPUTE A = LEN + 1.
MOVE TEMP TO STR(A:B).
* add ay to the end
ADD B TO A.
MOVE "ay" TO STR(A:2).
MOVE STR TO WS-RESULT.

63 changes: 63 additions & 0 deletions exercises/practice/pig-latin/bin/fetch-cobolcheck
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,63 @@
#!/usr/bin/env bash

# This file is a copy of the
# https://github.com/exercism/configlet/blob/main/scripts/fetch-configlet file.
# Please submit bugfixes/improvements to the above file to ensure that all tracks benefit from the changes.

# set -eo pipefail

readonly LATEST='https://api.github.com/repos/0xE282B0/cobol-check/releases/latest'

case "$(uname)" in
Darwin*) os='mac' ;;
Linux*) os='linux' ;;
Windows*) os='windows' ;;
MINGW*) os='windows' ;;
MSYS_NT-*) os='windows' ;;
*) os='linux' ;;
esac

case "${os}" in
windows*) ext='.exe' ;;
*) ext='' ;;
esac

arch="$(uname -m)"

curlopts=(
--silent
--show-error
--fail
--location
--retry 3
)

if [[ -n "${GITHUB_TOKEN}" ]]; then
curlopts+=(--header "authorization: Bearer ${GITHUB_TOKEN}")
fi

suffix="${os}-${arch}${ext}"

get_download_url() {
curl "${curlopts[@]}" --header 'Accept: application/vnd.github.v3+json' "${LATEST}" |
grep "\"browser_download_url\": \".*/download/.*/cobol-check.*${suffix}\"$" |
cut -d'"' -f4
}

main() {
if [[ -d ./bin ]]; then
output_dir="./bin"
elif [[ $PWD == */bin ]]; then
output_dir="$PWD"
else
echo "Error: no ./bin directory found. This script should be ran from a repo root." >&2
return 1
fi

output_path="${output_dir}/cobolcheck${ext}"
download_url="$(get_download_url)"
curl "${curlopts[@]}" --output "${output_path}" "${download_url}"
chmod +x "${output_path}"
}

main
Loading

0 comments on commit 876cca8

Please sign in to comment.