Для начала приведем два небольших примера.
Допустим нужно получить список
всех простых чисел(мы ограничися перебором до тысячи, т.к. ждать долго ~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 (<>);
теперь перевод полутора manual-ов, описывающих квантовый подход, при помощи
которого работают эти и некоторые другие программы(остальные примеры см. в самом низу текста);
