RosettaCodeData/Task/Find-the-missing-permutation/Perl-6/find-the-missing-permutation-2.pl6

say [~^] <ABCD CABD ACDB DACB BCDA ACBD ADCB CDAB DABC BCAD CADB CDBA
          CBAD ABDC ADBC BDCA DCBA BACD BADC BDAC CBDA DBCA DCAB>;