Files
tokei/tests/data/perl6.pl6
T

12 lines
224 B
Raku

# 11 lines 4 code 5 comments 2 blanks
=begin pod
Defines a fun infix operator.
This was stolen from http://tpm2016.zoffix.com/#/14
=end pod
sub infix:<¯\(°_o)/¯> {
($^a, $^b).pick
}
say 'Coke' ¯\(°_o)/¯ 'Pepsi';