diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-11-24 05:16:09 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-11-24 05:16:09 +0000 |
| commit | 50ab471306a1c99d6c1481bb4a9982d3edbc2573 (patch) | |
| tree | ac4f7d451e49549cc93d9c430454c68853a24d71 | |
| parent | 4238335596e60c46a52fa6a066c3aecc680f0f6d (diff) | |
| parent | 4939241a5dc7ce6020a6f72bb914d4f0a910564d (diff) | |
| download | perlweeklychallenge-club-50ab471306a1c99d6c1481bb4a9982d3edbc2573.tar.gz perlweeklychallenge-club-50ab471306a1c99d6c1481bb4a9982d3edbc2573.tar.bz2 perlweeklychallenge-club-50ab471306a1c99d6c1481bb4a9982d3edbc2573.zip | |
Merge pull request #13071 from HVukman/branch-for-challenge-348
Create part1.retro
| -rw-r--r-- | challenge-348/hvukman/RETRO/Part1/part1.retro | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-348/hvukman/RETRO/Part1/part1.retro b/challenge-348/hvukman/RETRO/Part1/part1.retro new file mode 100644 index 0000000000..cb10b690ee --- /dev/null +++ b/challenge-348/hvukman/RETRO/Part1/part1.retro @@ -0,0 +1,13 @@ +splitat calculate half length of string +consonants filters non vowels from string +stringalike checks if filtered strings are not zero and if so, compares the lengths of the strings +print -1 if true; 0 otherwise +~~~ + +:splitat dup s:length #2 / ; +:consonants [ c:vowel? ] s:filter ; +:stringalike dup-pair [ n:-zero? ] bi@ and [ eq? n:put nl ] [ #0 n:put nl ] choose ; +:stringsplit [ splitat s:right consonants ] [ splitat s:left consonants ] bi [ s:length ] bi@ stringalike ; +{ 'textbook 'book 'AbCdEfGh 'rhythmmyth 'UmpireeAudio } [ dup s:put ':_ s:put stringsplit ] a:for-each + +~~~ |