#!/usr/bin/perl # use Roman; @slozhnye=(4, 7, 10, 11, 12, 13, 14, 16, 18, 33, 34, 37); my $chosen=""; print "CHOOSE PROBLEMS RANDOMLY\n"; print_nums (); print "CHOOSE HARDER PROBLEMS\n"; $chosen="harder"; print_nums (); print "CHOOSE EASIER PROBLEMS\n"; $chosen="easier"; print_nums (); sub print_nums { for (0..40) { for $i (0..3) { my $valid=0; print " " ; while (!$valid) { my $diff_num=0; while (!$diff_num) { $num=rand(10)+10*$i; $num=int($num + 1); $morenum=rand(10)+10*$i; $morenum=int($morenum + 1); if ($morenum!=$num) { $diff_num=1;} } my $test_num = int(rand(2)); if (!($num ~~ @slozhnye) and !($morenum ~~ @slozhnye) and ! ($chosen eq "harder")) { print ( ($num < $morenum) ? "$num, $morenum,\t": "$morenum, $num,\t") ; $valid=1; } elsif (($num ~~ @slozhnye) and !($morenum ~~ @slozhnye) and ! ($chosen eq "easier")) { if ($test_num) { print "$num,\t" ; $valid=1; } } elsif (!($num ~~ @slozhnye) and ($morenum ~~ @slozhnye) and ! ($chosen eq "easier")) { if (!$test_num) { print "$morenum,\t" ; $valid=1; } } elsif (! ($chosen eq "easier")) { if ($test_num) { print "$num,\t" ; $valid=1; } else { print "$morenum,\t" ; $valid=1; } } } } print "\n"; } }