thomie

# Generate all unique permutations of an array
# with possibly duplicate elements (multiset).
# unique_permutations(('A', 'B', 'B')) -> ABB BAB BBA
sub unique_permutations
{
  my @results;
  my (@list) = @_;

  if ($#list == -1) {
    return [()];

thomie

x = 'print "x = " + chr(39) + x + chr(39) + "; exec(x)"'; exec(x)

thomie

#!/bin/sh

FILES='
Makefile.am
*.hpp
*.cpp
*.py
test/Makefile.am
test/*.cpp
test/*.py