#noxp — Public Fediverse posts

#Perl @PerlWChallenge 382 Task 2: Replace Question Mark
#noxp
```
perl -E '
for(@ARGV){say "$_ -> ", join " ", f($_);}sub f($s){for($s){
return ($_) unless /\?/;return (f(s/\?/0/r), f(s/\?/1/r));}}
' 01??0 101 ??? 1?10 1?1?0
```

#Perl @PerlWChallenge 382 Task 2: Replace Question Mark
#noxp
```
perl -E '
for(@ARGV){say "$_ -> ", join " ", f($_);}sub f($s){for($s){
return ($_) unless /\?/;return (f(s/\?/0/r), f(s/\?/1/r));}}
' 01??0 101 ??? 1?10 1?1?0
```

#Perl @PerlWChallenge 382 Task 1: Hamiltonian Cycle
#noxp
```
perl -E '
for(@ARGV){say"$_ -> @{f([1],[2..$_])}"}sub f($i, $r){my$l=$i->[-1];@$r||return
g($l+$i->[0])?$i:0;for(0..@$r-1){g($l+$r->[$_])||next;$o=f([@$i,$r->[$_]],
[@$r[0..$_-1,$_+1..@$r-1]]);return $o if $o;}0;}sub g($x){$x==floor(sqrt($x))**2}
' 32 15 34
```

#Perl @PerlWChallenge 382 Task 1: Hamiltonian Cycle
#noxp
```
perl -E '
for(@ARGV){say"$_ -> @{f([1],[2..$_])}"}sub f($i, $r){my$l=$i->[-1];@$r||return
g($l+$i->[0])?$i:0;for(0..@$r-1){g($l+$r->[$_])||next;$o=f([@$i,$r->[$_]],
[@$r[0..$_-1,$_+1..@$r-1]]);return $o if $o;}0;}sub g($x){$x==floor(sqrt($x))**2}
' 32 15 34
```

#Perl @PerlWChallenge 381 Task 2: Smaller Greater Element
#noxp
```
perl -MPDL -E '
for(@ARGV){$p=pdl$_;($x,$y)=$p->minmax;say "$_ -> ",$p->where(($p!=$x)&($p!=$y))->nelem}
' "[2 4]" "[1 1 1 1]" "[1 1 4 8 12 12]" "[3 6 6 9]" "[0 -5 10 -2 4]"
```

#Perl @PerlWChallenge 381 Task 2: Smaller Greater Element
#noxp
```
perl -MPDL -E '
for(@ARGV){$p=pdl$_;($x,$y)=$p->minmax;say "$_ -> ",$p->where(($p!=$x)&($p!=$y))->nelem}
' "[2 4]" "[1 1 1 1]" "[1 1 4 8 12 12]" "[3 6 6 9]" "[0 -5 10 -2 4]"
```

#Perl @PerlWChallenge 381 Task 1: Same Row Column
#noxp
```
perl -MPDL -E '
for(@ARGV){$m=pdl$_;$s=1+sequence($m->dim(0));say "$m-> ",
pdl(map{($_->qsort==$s)->all}$m, $m->transpose)->all?"T":"F";}
' "[ [1 2 3 4][2 3 4 1][3 4 1 2][4 1 2 3] ]" \
"[ [1] ]" \
"[ [1 2 5][5 1 2][2 5 1] ]" \
"[ [1 2 3][1 2 3][1 2 3] ]" \
"[ [1 2 3][3 1 2][3 2 1] ]"
```

#Perl @PerlWChallenge 381 Task 1: Same Row Column
#noxp
```
perl -MPDL -E '
for(@ARGV){$m=pdl$_;$s=1+sequence($m->dim(0));say "$m-> ",
pdl(map{($_->qsort==$s)->all}$m, $m->transpose)->all?"T":"F";}
' "[ [1 2 3 4][2 3 4 1][3 4 1 2][4 1 2 3] ]" \
"[ [1] ]" \
"[ [1 2 5][5 1 2][2 5 1] ]" \
"[ [1 2 3][1 2 3][1 2 3] ]" \
"[ [1 2 3][3 1 2][3 2 1] ]"
```

#Perl @PerlWChallenge 380 Task 2: Reverse Degree
#noxp
```
perl -MList::Util=sum -E '
$z=ord("z")+1;
for(@ARGV){my$p;say"$_ -> ", sum map{++$p*($z-ord $_)}split"";}
' z a bbc racecar zyx
```

#Perl @PerlWChallenge 380 Task 2: Reverse Degree
#noxp
```
perl -MList::Util=sum -E '
$z=ord("z")+1;
for(@ARGV){my$p;say"$_ -> ", sum map{++$p*($z-ord $_)}split"";}
' z a bbc racecar zyx
```

#Perl @PerlWChallenge 380 Task 1: Sum of Frequencies
#noxp
```
perl -MList::Util=max -E '
@v=qw(a e i o u);for(@ARGV){my%c;$c{$_}++for split"",$_;
$v=max @c{@v};delete@c{@v}; say"$_ -> ",$v+max values%c;}
' banana teestett aeiouuaa rhythm x
```

#Perl @PerlWChallenge 380 Task 1: Sum of Frequencies
#noxp
```
perl -MList::Util=max -E '
@v=qw(a e i o u);for(@ARGV){my%c;$c{$_}++for split"",$_;
$v=max @c{@v};delete@c{@v}; say"$_ -> ",$v+max values%c;}
' banana teestett aeiouuaa rhythm x
```

#Perl @PerlWChallenge 379 Task 2: Armstrong Number
#noxp
```
perl -MList::Util=sum -E '
for my($t,$l)(@ARGV){my@r;my@d=(-1);for(0..$l){for(0..@d){last unless ++$d[$_]
==$t;$d[$_]=0;}push@r,$_ if (sum map{$_**@d}@d)==$_}say "$t, $l -> @r";}
' 10 1000 7 1000 16 1000
```

#Perl @PerlWChallenge 379 Task 2: Armstrong Number
#noxp
```
perl -MList::Util=sum -E '
for my($t,$l)(@ARGV){my@r;my@d=(-1);for(0..$l){for(0..@d){last unless ++$d[$_]
==$t;$d[$_]=0;}push@r,$_ if (sum map{$_**@d}@d)==$_}say "$t, $l -> @r";}
' 10 1000 7 1000 16 1000
```

#Perl @PerlWChallenge 379 Task 1: Reverse String
#noxp
```
perl -E '
for(@ARGV){my @x; unshift @x,$_ for split "";say "\"$_\" -> \"", @x,"\""}
' "" "reverse the given string" "Perl is Awesome" "v1.0.0-Beta!" "racecar"
```

#Perl @PerlWChallenge 379 Task 1: Reverse String
#noxp
```
perl -E '
for(@ARGV){my @x; unshift @x,$_ for split "";say "\"$_\" -> \"", @x,"\""}
' "" "reverse the given string" "Perl is Awesome" "v1.0.0-Beta!" "racecar"
```

#Perl @PerlWChallenge 378 Task 2: Sum of Words
#noxp
```
perl -E '
for(@ARGV){@x=map {tr/a-j/0-9/r} split " "; say "$_ -> ", $x[2]==$x[0]+$x[1]?"T":"F"}
' "acb cba cdb" "aab aac ad" "bc je jg" \
"a aaaa aa" "c d h" "gfi hbf bdhd"
```

#Perl @PerlWChallenge 378 Task 2: Sum of Words
#noxp
```
perl -E '
for(@ARGV){@x=map {tr/a-j/0-9/r} split " "; say "$_ -> ", $x[2]==$x[0]+$x[1]?"T":"F"}
' "acb cba cdb" "aab aac ad" "bc je jg" \
"a aaaa aa" "c d h" "gfi hbf bdhd"
```

#Perl @PerlWChallenge 378 Task 1: Second Largest Digit
#noxp
```
perl -MList::Util=uniq -E '
for(@ARGV){say "$_ -> ", (sort {$b<=>$a}uniq grep{/[0-9]/} split "")[1]//-1}
' aaaaa77777 abcde 9zero8eight7seven9 xyz9876543210 4abc4def2ghi8jkl2
```

#Perl @PerlWChallenge 378 Task 1: Second Largest Digit
#noxp
```
perl -MList::Util=uniq -E '
for(@ARGV){say "$_ -> ", (sort {$b<=>$a}uniq grep{/[0-9]/} split "")[1]//-1}
' aaaaa77777 abcde 9zero8eight7seven9 xyz9876543210 4abc4def2ghi8jkl2
```

#Perl @PerlWChallenge 377 Task 2: Prefix Suffix
#noxp
```
perl -E '
for(@ARGV){my@s=split" ";my $c=0;for my $x(@s){/^$x/&&/$x$/&&++$c for@s};say"$_ -> ",$c - @s;}
' "a aba ababa aa" "pa papa ma mama" "abao ab" "abab abab" \
"ab abab ababab" "abc def ghij"
```

#Perl @PerlWChallenge 377 Task 2: Prefix Suffix
#noxp
```
perl -E '
for(@ARGV){my@s=split" ";my $c=0;for my $x(@s){/^$x/&&/$x$/&&++$c for@s};say"$_ -> ",$c - @s;}
' "a aba ababa aa" "pa papa ma mama" "abao ab" "abab abab" \
"ab abab ababab" "abc def ghij"
```

#Perl @PerlWChallenge 377 Task 1: Reverse Existence
#noxp
```
perl -E '
L:for(@ARGV){$s=$_;$s=~/$_/&&(say("$s -> T"),next L)for(map{"".reverse $_}
$s=~/(?=(..))/g);say "$s -> F";}
' abcba racecar abcd banana hello
```

#Perl @PerlWChallenge 377 Task 1: Reverse Existence
#noxp
```
perl -E '
L:for(@ARGV){$s=$_;$s=~/$_/&&(say("$s -> T"),next L)for(map{"".reverse $_}
$s=~/(?=(..))/g);say "$s -> F";}
' abcba racecar abcd banana hello
```

The comments on #twitter and #facebook on news stories about the murder of Qayyum Balogun is quite shocking.

No moderation from these 'news' pages, and no moderation from the platforms themselves.
Why are they not being held accountable for the content on their platform?!

And the 'comments' are from people who are not even from Ireland...

#noxp

The comments on #twitter and #facebook on news stories about the murder of Qayyum Balogun is quite shocking.

No moderation from these 'news' pages, and no moderation from the platforms themselves.
Why are they not being held accountable for the content on their platform?!

And the 'comments' are from people who are not even from Ireland...

#noxp

#Perl @PerlWChallenge 376 Task 1: Chessboard Squares
#noxp
```
perl -E '
for my($p,$q)(@ARGV){@c=map{split""}($q,$p);@c[0,2]=map{ord}@c[0,2];say "$p $q -> ",
($c[0]-$c[2]+$c[1]-$c[3])%2?"F":"T"}
' a7 f4 c1 e8 b5 h2 f3 h1 a1 g8
```

#Perl @PerlWChallenge 376 Task 1: Chessboard Squares
#noxp
```
perl -E '
for my($p,$q)(@ARGV){@c=map{split""}($q,$p);@c[0,2]=map{ord}@c[0,2];say "$p $q -> ",
($c[0]-$c[2]+$c[1]-$c[3])%2?"F":"T"}
' a7 f4 c1 e8 b5 h2 f3 h1 a1 g8
```

#Perl @PerlWChallenge 375 Task 2: Find K-Beauty
#noxp
```
perl -E '
for my($n, $k)(@ARGV){say"num=$n k=$k -> ", 0+grep{$n%$_==0}$n=~/(?=(\d{$k}))/g;}
' 240 2 1020 2 444 2 17 2 123 1
```

#Perl @PerlWChallenge 375 Task 2: Find K-Beauty
#noxp
```
perl -E '
for my($n, $k)(@ARGV){say"num=$n k=$k -> ", 0+grep{$n%$_==0}$n=~/(?=(\d{$k}))/g;}
' 240 2 1020 2 444 2 17 2 123 1
```

#Perl @PerlWChallenge 375 Task 1: Single Common Word
#noxp
```
perl -E '
for my($x,$y)(@ARGV){my(%c,%d);$c{$_}++for split" ",$x;$d{$_}++for
split" ",$y;say"\"$x\", \"$y\" -> ",0+grep{$c{$_}==$d{$_}==1}keys%c;}
' "apple banana cherry" "banana cherry date" "a ab abc" "a a ab abc" \
"orange lemon" "grape melon" "test test demo" "test demo demo" \
"Hello world" "hello world"
```

#Perl @PerlWChallenge 375 Task 1: Single Common Word
#noxp
```
perl -E '
for my($x,$y)(@ARGV){my(%c,%d);$c{$_}++for split" ",$x;$d{$_}++for
split" ",$y;say"\"$x\", \"$y\" -> ",0+grep{$c{$_}==$d{$_}==1}keys%c;}
' "apple banana cherry" "banana cherry date" "a ab abc" "a a ab abc" \
"orange lemon" "grape melon" "test test demo" "test demo demo" \
"Hello world" "hello world"
```