#!/usr/bin/env perl6

use v6.c;

use App::Game::Concentration;


sub MAIN() {
   
    my App::Game::Concentration $game .= new ;

    my $positions;

    while $positions = prompt( "row-1,column-1 row-2,column-2 » " ) {
        my @coords = $positions.split(" " ).map( { .split(",") } ) ;
        my @pairs = gather for @coords -> @pos { take @pos[0].Int => @pos[1].Int };
        my @return := $game.select( @pairs );
        say @return.join('‐');
        say "Pair" if @return.?Str eq "Pair";
    }
}
        
