Zeitpunkt Nutzer Delta Tröts TNR Titel Version maxTL Di 28.05.2024 00:00:11 61.856 +5 3.416.643 55,2 Fosstodon 4.2.8 500 Mo 27.05.2024 00:00:09 61.851 +1 3.413.281 55,2 Fosstodon 4.2.8 500 So 26.05.2024 00:00:08 61.850 -1 3.410.443 55,1 Fosstodon 4.2.8 500 Sa 25.05.2024 00:00:09 61.851 +2 3.407.482 55,1 Fosstodon 4.2.8 500 Fr 24.05.2024 00:00:07 61.849 +4 3.404.186 55,0 Fosstodon 4.2.8 500 Do 23.05.2024 00:00:09 61.845 +4 3.400.443 55,0 Fosstodon 4.2.8 500 Mi 22.05.2024 00:00:06 61.841 +8 3.396.238 54,9 Fosstodon 4.2.8 500 Di 21.05.2024 00:00:06 61.833 +2 3.392.510 54,9 Fosstodon 4.2.8 500 Mo 20.05.2024 00:01:48 61.831 +2 3.390.120 54,8 Fosstodon 4.2.8 500 So 19.05.2024 00:00:03 61.829 0 3.386.653 54,8 Fosstodon 4.2.8 500
seaker (@seaker) · 03/2023 · Tröts: 27 · Folger: 8
Di 28.05.2024 04:11
#RakuLang #PWC271
Task 1: Maximum Ones
https://theweeklychallenge.org/blog/perl-weekly-challenge-271/#TASK1
```
unit sub MAIN(Str:D $s);
use MONKEY-SEE-NO-EVAL;
my @a = EVAL $s;
put @a.map(+*.grep(1)).max(:k).min + 1;
```
```
$ ./ch-1.raku [0,0,0],[1,0,1]
2
```
[Öffentlich] Antw.: 0 Wtrl.: 0 Fav.: 0