Acme-Affinity

 view release on metacpan or  search on metacpan

eg/q_and_a  view on Meta::CPAN

use Acme::Affinity;

use List::Util 'shuffle';
use Term::Choose;
use Term::Clear ();

# https://www.eharmony.com/dating-advice/first-dates/15-great-first-date-questions/
my $questions = [
    { i => 1,
      q => 'Who are the most important people in your life?',
      a => ['parents', 'kids', 'friends'] },
    { i => 2,
      q => 'What makes you laugh?',
      a => ['jokes', 'comedies', 'pranks', 'accidents'] },
    { i => 3,
      q => 'Where is "home"?',
      a => ['here', 'across the country', 'in another country'] },
    { i => 4,
      q => 'Do you read reviews, or just go with your gut?',
      a => ['reviews', 'gut'] },
    { i => 5,



( run in 0.224 second using v1.01-cache-2.11-cpan-4d50c553e7e )