fabienhinault · November 6, 2022 16:59
diff --git a/risk_3_2_v2.perl b/risk_3_2_v2.perl
 use List::Util qw(zip)
 @t = ( [ 3, "attaquant", "" ], [ 2, "defenseur", 1])
 map { push @$_, ([reverse sort map {(int rand 6) + 1} (1..$_->[0])]) } @t
 map { print "tirage $_->[1]: @{$_->[3]}\n" } @t
 @r = map {$_->[0] > $_->[1]} ((zip $t[0]->[3], $t[1]->[3])[0..1])
 map { $v = $_->[2]; push @$_, ( - grep $_ ==  $v, @r) } @t
 map { print "domage $_->[1]: $_->[4]\n" } @t
	use List::Util qw(zip)
	@t = ( [ 3, "attaquant", "" ], [ 2, "defenseur", 1])
	map { push @$_, ([reverse sort map {(int rand 6) + 1} (1..$_->[0])]) } @t
	map { print "tirage $_->[1]: @{$_->[3]}\n" } @t
	@r = map {$_->[0] > $_->[1]} ((zip $t[0]->[3], $t[1]->[3])[0..1])
	map { $v = $_->[2]; push @$_, ( - grep $_ == $v, @r) } @t
	map { print "domage $_->[1]: $_->[4]\n" } @t