From ab01a45bc3d4ca9de131a86f0ddda5f1e1a393a9 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Tue, 15 Sep 2020 02:58:09 +0200
Subject: C, Final answer

---
 challenge-078/markus-holzer/raku/ch-1.raku | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'challenge-078')

diff --git a/challenge-078/markus-holzer/raku/ch-1.raku b/challenge-078/markus-holzer/raku/ch-1.raku
index 369c58db15..d813f9d765 100644
--- a/challenge-078/markus-holzer/raku/ch-1.raku
+++ b/challenge-078/markus-holzer/raku/ch-1.raku
@@ -2,9 +2,9 @@ unit sub MAIN( *@numbers where @numbers.all ~~ Int );
 
 say "({ join ", ", leader-elements @numbers })";
 
-sub leader-elements( @stuff ) {
+sub leader-elements( @n ) {
     my $max = -Inf;
-    reverse ( @stuff.reverse.grep: -> $n { $n > $max && ($max = $n) } ) || 0 }
+    ( reverse @n.reverse.grep: -> $n { $max = $n but True if $n > $max } ) || 0 }
 
 #sub leader-elements-recursive( @stuff ) {
 #    sub find( $that, *@the-rest ) {
-- 
cgit