diff options
| -rwxr-xr-x | challenge-093/feng-chang/ch-1.raku | 50 | ||||
| -rwxr-xr-x | challenge-093/feng-chang/ch-2.raku | 24 | ||||
| -rwxr-xr-x | challenge-094/feng-chang/ch-1.raku | 18 | ||||
| -rwxr-xr-x | challenge-094/feng-chang/ch-2.raku | 35 |
4 files changed, 127 insertions, 0 deletions
diff --git a/challenge-093/feng-chang/ch-1.raku b/challenge-093/feng-chang/ch-1.raku new file mode 100755 index 0000000000..00a375faa7 --- /dev/null +++ b/challenge-093/feng-chang/ch-1.raku @@ -0,0 +1,50 @@ +#!/bin/env raku + +grammar Dots { + rule TOP { <coord>+ % ',' } + rule coord { <[(]> <number> ** 2 % ',' <[)]> } + token number { \d+ } +} + +class DotsActions { + method TOP($/) { make $<coord>.map(*.made).Array } + method coord($/) { make $<number>.map(*.made).Array } + method number($/) { make $/.UInt } +} + +sub on-same-line(Array:D $dots -->Bool) { + $dots.elems == 2 || + ([==] $dots.map({ .[0] })) || + ([==] (1..^$dots.elems).map({ ($dots[$_;1] - $dots[0;1])/($dots[$_;0] - $dots[0;0]) })); +} + +sub max-dots(Array:D $dots -->UInt:D) { + $dots.combinations(2..$dots.elems).grep({ on-same-line($_.Array) })».elems.max; +} + +sub USAGE { + put "./ch-1.raku test\n" ~ + "./ch-1.raku '(1,1), (2,2), (3,3)'\n" ~ + "./ch-1.raku '(1,1), (2,2), (3,1), (1,3), (5,3)'" +} + +multi MAIN('test') { + use Test; + + ok on-same-line([[1, 2], [1, 3], [1, -3]]), 'the 3 points are on the same vertical line'; + ok on-same-line([[1, 1], [2, 2], [3, 3]]), 'the 3 points are on the same line'; + nok on-same-line([[1, 1], [2, 2], [3, 1]]), 'the 3 points are not on the same line'; + + is max-dots([[1,1], [2,2], [3,3]]), 3, '(1,1), (2,2), (3,3) => 3'; + is max-dots([[1,1], [2,2], [3,1], [1,3], [5,3]]), 3, '(1,1), (2,2), (3,1), (1,3), (5,3) => 3'; + + is Dots.parse('123', :rule('number'), :actions(DotsActions)).made, 123, '"123" => 123'; + is-deeply Dots.parse('(3,5)', :rule('coord'), :actions(DotsActions)).made, [3,5], '(3,5) => [3,5]'; + is-deeply Dots.parse('(3, 5)', :rule('coord'), :actions(DotsActions)).made, [3,5], '(3, 5) => [3,5]'; + + is-deeply Dots.parse('(3, 5), (1,2)', :actions(DotsActions)).made, [[3,5],[1,2]], '"(3, 5), (1,2)" => [[3,5],[1,2]]'; +} + +multi MAIN(Str:D $input) { + put max-dots(Dots.parse($input, :actions(DotsActions)).made); +} diff --git a/challenge-093/feng-chang/ch-2.raku b/challenge-093/feng-chang/ch-2.raku new file mode 100755 index 0000000000..ff099926a8 --- /dev/null +++ b/challenge-093/feng-chang/ch-2.raku @@ -0,0 +1,24 @@ +#!/bin/env raku + +sub traverse(Any:D $node, UInt:D $sum --> UInt:D) { + $node.^name ~~ 'Int' ?? + $node + $sum !! + [+] (traverse($_, $sum + $node.key) for |$node.value); +} + +multi MAIN('test') { + use Test; + + is traverse(1, 0), 1, '1 : 1'; + is traverse(1 => 2, 0), 3, '1 => 2 : 3'; + is traverse(1 => (2, 3), 0), 7, '1 => (2, 3) : 7'; +} + +my Array $T .= new( + 1 => (2 => (3, 4)), + 1 => (2 => 4, 3 => (5, 6)), +); + +multi MAIN(UInt:D \n) { + put traverse($T[n], 0); +} diff --git a/challenge-094/feng-chang/ch-1.raku b/challenge-094/feng-chang/ch-1.raku new file mode 100755 index 0000000000..deaeb15a2d --- /dev/null +++ b/challenge-094/feng-chang/ch-1.raku @@ -0,0 +1,18 @@ +#!/bin/env raku + +sub USAGE { + put "$*PROGRAM 0\n" ~ + "$*PROGRAM 1\n" ~ + "$*PROGRAM opt bat saw tab pot top was\n" ~ + "$*PROGRAM x"; +} + +sub group-anagrams(@S) { + for @S».comb».sort».join.unique -> $foo { + put @S.grep({ $_.comb.sort.join eq $foo }).join(', '); + } +} + +my @T = <opt bat saw tab pot top was>, [<x>]; +multi MAIN(UInt:D \n) { group-anagrams(@T[n]) } +multi MAIN(*@S) { @S.elems > 0 ?? group-anagrams(@S) !! USAGE() } diff --git a/challenge-094/feng-chang/ch-2.raku b/challenge-094/feng-chang/ch-2.raku new file mode 100755 index 0000000000..dc6bacda24 --- /dev/null +++ b/challenge-094/feng-chang/ch-2.raku @@ -0,0 +1,35 @@ +#!/bin/env raku + +sub USAGE { + put "$*PROGRAM 0\n" ~ + "$*PROGRAM 1\n"; +} + +sub tree-to-list(Any:D $node, Array:D $a --> List:D) { + given $node { + when Int|Str { $a.push($node) } + when Pair { tree-to-list($node.key, $a); tree-to-list($node.value, $a) } + when List { tree-to-list($_, $a) for |$node } + when Hash { tree-to-list($node.keys.first, $a); tree-to-list($node.values.first, $a) } + default { die "got { $_.^name }!" } + } + (|$a); +} + +multi MAIN('test') { + use Test; + + is-deeply |tree-to-list(1, my Array $a .= new), 1, "1 : 1"; + is-deeply |tree-to-list('x', $a .= new), 'x', "x : x"; + + is tree-to-list((1 => 2), $a .= new), (1, 2), "1 => 2 : 1"; +} + +my @T = [ + { 1 => (2 => (4, 5 => (6, 7)), 3) }, + { 1 => (2 => (4, 5)) }, +]; + +multi MAIN(UInt:D \n) { + put tree-to-list(@T[n], my Array $a .= new); +} |