# 若一个四位数，它的任意两位数字之差均等于它的某个数字，且每个数字都能作为差被取到。例如2022。而1234则不符合。问这样的数有多少个？ my $cnt = 0; for 1000..9999 -> \n { my @a = n.comb.sort; if @a.combinations(2).map({ .[1] - .[0] }).sort.unique.join eq @a.unique.join { put n; ++$cnt; } } put "found $cnt such numbers"; # one liner: # (1000..9999)».comb».sort.map(-> @a { +(@a.combinations(2).map({.[1]-.[0]}).sort.unique.join eq @a.unique.join) }).sum