Golf: CONTROL {}; warn 42
On 2018-06-08 15:11:08, comdog wrote: > While running this program I get a MoarVM panic: > > 2 + 2 = 4 > 'two' is not numeric > MoarVM panic: Trying to unwind over wrong handler > > The program: > > sub add-two-things ( $first, $second ) { > CATCH { > when X::Str::Numeric { > fail q/One of the arguments wasn't a number/ > } > } > > for $first, $second { > warn "'$_' is not numeric" unless val($_) ~~ Numeric; > } > > return $first + $second; > } > > my @items = < 2 2 3 two nine ten 1 37 0 0 >; > > for @items -> $first, $second { > CONTROL {} > my $sum = add-two-things( $first, $second ); > > put $sum.defined ?? > "$first + $second = $sum" !! > "You can't add $first and $second"; > } >