Для начала приведем два небольших примера. Допустим нужно получить список всех простых чисел(мы ограничися перебором до тысячи, т.к. ждать долго ~30 sekund for my server p100, 32 ram, red hat linux7.1, perl 5.0.6), пишем программу: #!/usr/bin/perl -sw use Quantum::Superpositions; sub is_prime { return $_[0]==2 || $_[0] % all(2..sqrt($_[0])+1) != 0 } do{print "$_ - простое число\n" if is_prime($_)} for map {2*$_+1} 1..1000; на выводе имеем нечто вроде: ** Joe's Own Editor v2.9.5 ** Copyright (C) 2001 ** File demo_Primes.pl not changed so no update needed. [root@tv demo]# ./demo_Primes.pl 3 - простое число 5 - простое число 7 - простое число 11 - простое число 13 - простое число 17 - простое число 19 - простое число 23 - простое число 29 - простое число 31 - простое число 37 - простое число 41 - простое число 43 - простое число 47 - простое число 53 - простое число 59 - простое число 61 - простое число 67 - простое число 71 - простое число 73 - простое число 79 - простое число 83 - простое число 89 - простое число 97 - простое число 101 - простое число 103 - простое число 107 - простое число 109 - простое число [root@tv demo]# Или нужно получить все сомножители какого-то числа: #!/usr/bin/perl -w use Quantum::Superpositions UNARY => ['CORE::int']; sub factors {eigenstates (int($_[0] / any(2..$_[0]-1)) == ($_[0] / any(2..$_[0]-1)))} print int($_), "\n factors: ", join(",", factors($_)), "\n" while (<>); На выводе имеем: [root@tv demo]# ./factors.pl 8 8 factors: 2,4 121 121 factors: 11 56 56 factors: 7,8,14,2,4,28 78 78 factors: 13,39,2,3,26,6 [root@tv demo]# теперь перевод полутора manual-ов, описывающих квантовый подход, при помощи которого работают эти и некоторые другие программы(остальные примеры см. в самом низу текста);