プログラム募集!

Perl でつくったみなさんのプログラムを募集しています。

適当な入力フォームをこれからつくっていきますが、とりあえずは
メールの形で募集しています。

*プログラム例*
1〜9 の乱数を発生させ、計算練習をします。Copal での実行結果
をドラッグして、Word や一太郎上に貼り付け実行します。
Ans 部分は適当に切り取ります(自分用に1枚印刷)。

<プログラム>


<実行結果>


(プログラムリスト) 画面をドラッグしてコピーして使って下さい。

print " _ 年 _ 組 _ 番 __________\n\n";
for (1..2)
 {
$" = " + " ;
if ($q == 0)
  {print "1.次の足し算をしなさい。\n\n"}
if ($q == 1)
  {print "2.次の計算をしなさい。\n\n"}  
for $i (1..10)
   {
for (1..10)
   {
if ($q == 0)
  {$rx = 1 + int rand 9}
if ($q == 1)
  {$rx = (1 + int rand 9)*(-1)**(1 + int rand 2)}
$sum = $sum + $rx;
if ($rx < 0) {$rx = "($rx)"}
push @a, $rx;
   }
push @ans, $sum;
print "($i) ";
print "@a = \n" ;
undef @a;
undef $sum;
   }
$" = ", " ;
print "\n  Ans = @ans \n\n";
undef @ans;
++$q;
 }