it returns#! /usr/bin/perl -w use strict; use Quantum::Superpositions; my @a2 = qw/1 2 2 3 3 3 4 4 4 4 5 6 7/;#list of to_visit my @a1 = qw/1 2 3 4/;#list of visited @a2 = eigenstates(any(@a2) != all(@a1)); print "list of to visit\n"; print_arrays(\@a2); print "\nlist visited\n"; print_arrays(\@a1); sub print_arrays { my($x) = @_; for my $item1 ( @$x ) { print $item1,"\n"; } print "\n"; }
list of to visit 6 7 5 list visited 1 2 3 4
In reply to Quantum::Superpositions prob by tommycahir
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |