diff options
| author | Peter Pentchev <roam@ringlet.net> | 2025-02-10 17:38:48 +0200 |
|---|---|---|
| committer | Peter Pentchev <roam@ringlet.net> | 2025-02-10 17:54:36 +0200 |
| commit | 7bd90749b5ea8b8d35bc04b44bed33eafc64faa0 (patch) | |
| tree | 880f36d121cb3ea88dff5f9a2adce179836a97be /challenge-308 | |
| parent | aa4b8399bdb3da0a50173fcab689bfa80b9b54e1 (diff) | |
| download | perlweeklychallenge-club-7bd90749b5ea8b8d35bc04b44bed33eafc64faa0.tar.gz perlweeklychallenge-club-7bd90749b5ea8b8d35bc04b44bed33eafc64faa0.tar.bz2 perlweeklychallenge-club-7bd90749b5ea8b8d35bc04b44bed33eafc64faa0.zip | |
Add Peter Pentchev's Fish shell solutions to #308
Diffstat (limited to 'challenge-308')
| -rw-r--r-- | challenge-308/ppentchev/fish/ch-1.fish | 41 | ||||
| -rw-r--r-- | challenge-308/ppentchev/fish/ch-2.fish | 24 |
2 files changed, 65 insertions, 0 deletions
diff --git a/challenge-308/ppentchev/fish/ch-1.fish b/challenge-308/ppentchev/fish/ch-1.fish new file mode 100644 index 0000000000..9ca51402e4 --- /dev/null +++ b/challenge-308/ppentchev/fish/ch-1.fish @@ -0,0 +1,41 @@ +#!/bin/fish +# SPDX-FileCopyrightText: Peter Pentchev <roam@ringlet.net> +# SPDX-License-Identifier: BSD-2-Clause + +function count_common_sorted + set -f sorted1 (string join \n $str1 | sort | string split \n) + set -f sorted2 (string join \n $str2 | sort | string split \n) + set -f count1 (count $sorted1) + set -f count2 (count $sorted2) + set -f idx1 1 + set -f idx2 1 + set -f result 0 + + while test $idx1 -le $count1; and test $idx2 -le $count2 + set -l val1 $sorted1[$idx1] + set -l val2 $sorted2[$idx2] + if test $val1 = $val2 + set result (math $result + 1) + set idx1 (math $idx1 + 1) + set idx2 (math $idx2 + 1) + else if test (printf '%s\n%s\n' $val1 $val2 | sort | head -n1) = $val1 + set idx1 (math $idx1 + 1) + else + set idx2 (math $idx2 + 1) + end + end + + echo $result +end + +set str1 perl weekly challenge +set str2 raku weekly challenge +count_common_sorted + +set str1 perl raku python +set str2 python java +count_common_sorted + +set str1 guest contribution +set str2 fun weekly challenge +count_common_sorted diff --git a/challenge-308/ppentchev/fish/ch-2.fish b/challenge-308/ppentchev/fish/ch-2.fish new file mode 100644 index 0000000000..e19b855d4d --- /dev/null +++ b/challenge-308/ppentchev/fish/ch-2.fish @@ -0,0 +1,24 @@ +#!/bin/fish +# SPDX-FileCopyrightText: Peter Pentchev <roam@ringlet.net> +# SPDX-License-Identifier: BSD-2-Clause + +function decode_xor + set -f encoded (string split ' ' $argv[1]) + set -f current $argv[2] + set -f result $current + + set -f enc + for enc in $encoded + set current (math bitxor $current, $enc) + set -a result $current + end + + printf '%s\n' (string join ' ' $result) +end + +function test_decode_xor + decode_xor '1 2 3' 1 + decode_xor '6 2 7 3' 4 +end + +test_decode_xor |