diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-05-18 09:51:26 +0200 |
|---|---|---|
| committer | HVukman <peterslopp@googlemail.com> | 2025-05-18 09:51:26 +0200 |
| commit | 5d7ef4d4ae7c6102880078998dbf45dcebc4c88f (patch) | |
| tree | d5e45454449495d0c0b77d31c0987afe5682b4b2 | |
| parent | af05fe109d571105d3c3152ff411795b40398ecb (diff) | |
| download | perlweeklychallenge-club-5d7ef4d4ae7c6102880078998dbf45dcebc4c88f.tar.gz perlweeklychallenge-club-5d7ef4d4ae7c6102880078998dbf45dcebc4c88f.tar.bz2 perlweeklychallenge-club-5d7ef4d4ae7c6102880078998dbf45dcebc4c88f.zip | |
added k
| -rw-r--r-- | challenge-321/hvukman/k/321_p1.k | 20 | ||||
| -rw-r--r-- | challenge-321/hvukman/k/321_p2.k | 31 |
2 files changed, 51 insertions, 0 deletions
diff --git a/challenge-321/hvukman/k/321_p1.k b/challenge-321/hvukman/k/321_p1.k new file mode 100644 index 0000000000..3827393979 --- /dev/null +++ b/challenge-321/hvukman/k/321_p1.k @@ -0,0 +1,20 @@ +"part 1" +// min and max function +min: {&/x} +max: {|/x} +inp: 1 2 4 3 5 6 +// clumsily put distance in global dist then reset it +dist::() +// do while until inp is length zero, add average into dist at every step +dummy: {(#x)>1}{ dist::dist, (max x+min x)%2; ;({(~(max x)=)#x} {(~(min x)=)#x}x)}\inp +// deduplicate and print it +#?dist +inp: 0 2 4 8 3 5 +dist::() +dummy: {(#x)>1}{ dist::dist, (max x+min x)%2; ;({(~(max x)=)#x} {(~(min x)=)#x}x)}\inp +#?dist +inp: 7 3 1 0 5 9 +dist::() +dummy: {(#x)>1}{ dist::dist, (max x+min x)%2; ;({(~(max x)=)#x} {(~(min x)=)#x}x)}\inp +#?dist + diff --git a/challenge-321/hvukman/k/321_p2.k b/challenge-321/hvukman/k/321_p2.k new file mode 100644 index 0000000000..a53570f502 --- /dev/null +++ b/challenge-321/hvukman/k/321_p2.k @@ -0,0 +1,31 @@ +// hacky solution with globals +"part 2" +str1:"ab#c" +str2:"ad#c" +dummy1::"" +dummy2::"" +nooutput:{{$["#"=x;dummy1::|1_|dummy1;dummy1::dummy1,x]}x}'str1 +nooutput:{{$["#"=x;dummy2::|1_|dummy2;dummy2::dummy2,x]}x}'str2 +dummy1 +dummy2 +$[*/dummy1=dummy2;"true";"false"] +str1:"ab##" +str2:"a#b#" +dummy1::"" +dummy2::"" +nooutput:{{$["#"=x;dummy1::|1_|dummy1;dummy1::dummy1,x]}x}'str1 +nooutput:{{$["#"=x;dummy2::|1_|dummy2;dummy2::dummy2,x]}x}'str2 +dummy1 +dummy2 +$[*/dummy1=dummy2;"true";"false"] +str1:"a#b" +str2:"c" +dummy1::"" +dummy2::"" +nooutput:{{$["#"=x;dummy1::|1_|dummy1;dummy1::dummy1,x]}x}'str1 +nooutput:{{$["#"=x;dummy2::|1_|dummy2;dummy2::dummy2,x]}x}'str2 +dummy1 +dummy2 +$[*/dummy1=dummy2;"true";"false"] + + |