Select Code to Download

my $die = entangle( 1=>1, 1=>2, 1=>3, 1=>4, 1=>5, 1=>6 );
my $save_state = $die->save_state;
...
    $die = $save_state->restore_state;
}
# print: "2 1 3 2 5" or whatever

#!/usr/bin/perl -w
use Quantum::Entanglement;
...
# Pre-observation:  1|1>    1|2>    1|3>    1|4>    1|5>    1|6>
# Observation:        3
# Post-observation: 1|3>

#!/usr/bin/perl -w
use strict;
...
# calling -> Quantum::Entanglement::_rationalise_states
# calling -> Quantum::Entanglement::_unravel
# foo();

# set all non retained states to zero probability, leave others alone