!YS-v0
defn main(*nums):
each cc nums:
say: "$cc - $if(cc:luhn? 'valid' 'invalid')"
defn luhn?(cc):
map(mul cc:digits:reverse [1 2]:cycle)
.map(\(I(_ / 10) + (_ % 10))):sum
.mod(10):zero?