AWKプログラミング(応用編)

更新

AWKプログラミング(応用編)

小山智史

(入門編)
1. 準備
2. AWK言語とプログラムの実行
3. 簡単なAWKプログラム
4. データの型と変数 5. 演算
6. 入出力
7. 関数
8. 条件分岐: if文
9. 繰り返し: while文とfor文
10. 配列と連想配列
11. 関数: 再帰による関数定義
12. 文字列の処理と正規表現
13. 乱数の利用
付録A. AWK言語のまとめ

(応用編)
14. BMI早見表
 15. 文書整形
 16. 順序機械: 自動販売機
 17. 教材分析
 18. ゲームとパズル
 19. 対話型学習ソフト

14. BMI早見表

　基礎編で度々登場したBMIですが、ここではBMIの早見表を作ってみます。身長と体重を変えながら、BMIを計算して表にします。

BEGIN{ s="cm/kg" for(w=45; w<=70; w+=5) s=s "\t" w print s for(h=150; h<=185; h+=5){ # 身長(h)を変える s=h for(w=45; w<=70; w+=5){ # 体重(w)を変える BMI=bmicalc(h,w) s=s "\t" mark(BMI) BMI } print s } } function bmicalc(h,w){ x=w*10000/(h*h) return int(x*10+0.5)/10 } function mark(x){ if(x>=26.4) return "●" else if(x>=24.2) return "○" else if(x>=19.8) return "◎" else return "△" }

C>gawk -f bmitable.awk
cm/kg	40	45	50	55	60	65	70	
150	17.7	20	22.2	24.4	26.6	28.8	31.1	
155	16.6	18.7	20.8	22.8	24.9	27	29.1	
160	15.6	17.5	19.5	21.4	23.4	25.3	27.3	
165	14.6	16.5	18.3	20.2	22	23.8	25.7	
170	13.8	15.5	17.3	19	20.7	22.4	24.2	
175	13	14.6	16.3	17.9	19.5	21.2	22.8	
180	12.3	13.8	15.4	16.9	18.5	20	21.6	
185	11.6	13.1	14.6	16	17.5	18.9	20.4	

C>

　以下は、2cm/2kg刻みにし、AWKプログラムでHTMLファイルを作り、ブラウザで表示させたものです。文字の表示色もBMIの値によって変わるようにしています。

C>gawk -f bmitable.awk
<!DOCTYPE html><html>
<h2>BMIの早見表</h2>
...
C>gawk -f bmitable.awk >bmitable.html

C>bmitable.html

C>

　上記の操作は、はじめは単にAWKプログラムbmitable.awkを実行したもので、画面にHTMLコードが表示されます。次にリダイレクトでbmitable.htmlを作り、最後の操作で、ブラウザに次のような早見表が表示されます。

cm/kg	40	42	44	46	48	50	52	54	56	58	60	62	64	66	68	70
150	17.8	18.7	19.6	20.4	21.3	22.2	23.1	24	24.9	25.8	26.7	27.6	28.4	29.3	30.2	31.1
152	17.3	18.2	19	19.9	20.8	21.6	22.5	23.4	24.2	25.1	26	26.8	27.7	28.6	29.4	30.3
154	16.9	17.7	18.6	19.4	20.2	21.1	21.9	22.8	23.6	24.5	25.3	26.1	27	27.8	28.7	29.5
156	16.4	17.3	18.1	18.9	19.7	20.5	21.4	22.2	23	23.8	24.7	25.5	26.3	27.1	27.9	28.8
158	16	16.8	17.6	18.4	19.2	20	20.8	21.6	22.4	23.2	24	24.8	25.6	26.4	27.2	28
160	15.6	16.4	17.2	18	18.8	19.5	20.3	21.1	21.9	22.7	23.4	24.2	25	25.8	26.6	27.3
162	15.2	16	16.8	17.5	18.3	19.1	19.8	20.6	21.3	22.1	22.9	23.6	24.4	25.1	25.9	26.7
164	14.9	15.6	16.4	17.1	17.8	18.6	19.3	20.1	20.8	21.6	22.3	23.1	23.8	24.5	25.3	26
166	14.5	15.2	16	16.7	17.4	18.1	18.9	19.6	20.3	21	21.8	22.5	23.2	24	24.7	25.4
168	14.2	14.9	15.6	16.3	17	17.7	18.4	19.1	19.8	20.5	21.3	22	22.7	23.4	24.1	24.8
170	13.8	14.5	15.2	15.9	16.6	17.3	18	18.7	19.4	20.1	20.8	21.5	22.1	22.8	23.5	24.2
172	13.5	14.2	14.9	15.5	16.2	16.9	17.6	18.3	18.9	19.6	20.3	21	21.6	22.3	23	23.7
174	13.2	13.9	14.5	15.2	15.9	16.5	17.2	17.8	18.5	19.2	19.8	20.5	21.1	21.8	22.5	23.1
176	12.9	13.6	14.2	14.9	15.5	16.1	16.8	17.4	18.1	18.7	19.4	20	20.7	21.3	22	22.6
178	12.6	13.3	13.9	14.5	15.1	15.8	16.4	17	17.7	18.3	18.9	19.6	20.2	20.8	21.5	22.1
180	12.3	13	13.6	14.2	14.8	15.4	16	16.7	17.3	17.9	18.5	19.1	19.8	20.4	21	21.6
182	12.1	12.7	13.3	13.9	14.5	15.1	15.7	16.3	16.9	17.5	18.1	18.7	19.3	19.9	20.5	21.1
184	11.8	12.4	13	13.6	14.2	14.8	15.4	15.9	16.5	17.1	17.7	18.3	18.9	19.5	20.1	20.7

15. 文書整形

15.1 データの一覧表示

　sumo.csv から一覧表のHTMLファイルを作り、ブラウザに表示してみます。

BEGIN{ FS="," print "<!DOCTYPE html>" print "<h3>歴代の横綱</h3>" print "<table border style=border-collapse:collapse;>" print "<tr bgcolor=lightgray><th>名前</th><th>出身地</th><th>身長(cm)</th><th>体重(kg)</th></tr>" } { print "<tr><td>" $1 "</td><td>" $2 "</td><td>" $3 "</td><td>" $4 "</td></tr>" } END{ print "</table>" print "</body></html>" }

C>gawk -f sumotable.awk sumo.csv >sumotable.html

C>sumotable.html

C>

　ブラウザには次のように表示されます。

名前	出身地	身長(cm)	体重(kg)
栃錦	東京都	178	127
若乃花	青森県	177	105
朝潮	鹿児島県	188	145
柏戸	山形県	188	146
大鵬	北海道	187	144
...
照ノ富士	モンゴル	192	184

15.2 定形文書の作成

　ワープロソフトの機能のひとつに「差し込み印刷」があります。定型文書の宛名の部分に住所録データから必要項目を当てはめるというような機能です。

　ここでは、次のように「雛形ファイル」を用意します。

#2 #1 様拝啓　時下ますますご清祥のこととお慶び申し上げます。あなたの身長と体重は次のとおりですのでご報告いたします。身長: #3 cm 体重: #4 kg

　次のプログラムは、冒頭で上記のファイルを読み込み、1行ずつ template[ ] という配列にしまった後、sumo.csvのデータを読みながら、#1～#4の箇所を置き換えて表示します。

本文の gsub()でlinebufの中の#1, #2,...,#NFに$1,$2,...$NFを代入し、表示しています。

BEGIN{ while(getline <"template.txt" >0) template[++n]=$0 } { for(i=1; i<=n; i++){ linebuf=template[i] for(j=1; j<=NF; j++) gsub("#" j,$j,linebuf) print linebuf } print "--" }

実行結果は次のようになります。

C>gawk -f merge.awk sumo.csv 東京都栃錦様拝啓　時下ますますご清祥のこととお慶び申し上げます。あなたの身長と体重は次のとおりですのでご報告いたします。身長: 178 cm 体重: 127 kg -- 青森県若乃花様拝啓　時下ますますご清祥のこととお慶び申し上げます。あなたの身長と体重は次のとおりですのでご報告いたします。身長: 177 cm 体重: 105 kg -- .....

(練習) 上記の定型文に、BMIの値も表示させるようにしなさい。

15.3 定型メールの受信処理

　イベントの参加申し込みなど、最近はWebのフォーム入力で行うことがほとんどかもしれませんが、メールが使われる場合もあります。

...参加を希望される方はこのメールに必要事項を記載して返信してください。 ---ここから--- %%出身地%%: %%氏名%%: %%身長%%: %%体重%%: ...

このようなメールでの案内に対して次のような返信が来てmail.txtというファイルに入っているとします。

...下記のとおり参加を申し込みます。 >---ここから--- >%%出身地%%:長野県 >%%名前%%:御嶽海 >%%身長%%:180 >%%体重%%:174 ...

　以下のプログラムは受け取った返信メールを処理して、「出身地,名前,身長,体重」という1件のレコード(1行データ)を生成します。

BEGIN{ OFS="," } { if(gsub(/.*%%出身地%%:/,"")==1) syussin=$0 if(gsub(/.*%%名前%%:/,"")==1) namae=$0 if(gsub(/.*%%身長%%:/,"")==1) h=$0 if(gsub(/.*%%体重%%:/,"")==1) w=$0 } END{ if(syussin!="" && namae!="" && h!="" && w!="") print namae,syussin,h,w }

　以下、実行の様子です。最後の操作はリダイレクト「>>」でsumo.csvに「追記」しています。

C>gawk -f entry.awk mail.txt
御嶽海,長野県,180,174

C>gawk -f entry.awk mail.txt >>sumo.csv

C>

　実際には記載事項に不備がないかや、二重登録でないかなど、もっと詳細にチェックします。

16. 順序機械: 自動販売機

　150円のジュース自動販売機のプログラムを作りましょう。お金は50円と100円が使えるものとします。自動販売機の内部状態としては、0円状態、50円状態、100円状態の3つが考えられます。出力はジュースまたはジュースとおつり(50円)です。この自動販売機の動作は下の図のように表すことができ、これを状態遷移図といいます。矢印は状態の遷移を表し、その矢印に付随して入力と出力を記載しています。このような機械を順序機械(または有限状態機械)といいます。

図7 自動販売機の状態遷移図

　状態遷移関数および出力関数は表5で表すことができ、表中には「次の状態/出力」が記載されています。この表を状態遷移表といいます。

表5 自動販売機の状態遷移表(表中は「次の状態/出力」)
		入力
		0円	50円	100円
現在の状態	0円	0円/なし	50円/なし	100円/なし
	50円	50円/なし	100円/なし	0円/ジュース
	100円	100円/なし	0円/ジュース	0円/ジュース・おつり

　データファイル juice.csv は、1番目のフィールドが現在の状態、2番目のフィールドが入力、3番目のフィールドが次の状態、4番目のフィールドが出力で状態遷移表を表しています(juice.csvはこちらからダウンロードできます)。なお、0円の入力は省略しています。このデータファイルを変更すれば、さまざまな動作をする機械を作ることができます。

0,50,50,なし 0,100,100,なし 50,50,100,なし 50,100,0,ジュース 100,50,0,ジュース 100,100,0,ジュースとおつり(50)

　プログラムと実行の様子は以下のようになります。

BEGIN{ FS="," } { trans[$1,$2]=$3 # 遷移関数 out[$1,$2]=$4 # 出力 if(NR==1) s=$1 # 初期状態 } END{ for(;;){ print "状態: " s printf "入力: " getline x<"con" if(x=="") break # 改行のみで終了 if(trans[s,x]=="") print x "は使えません!" else{ print "出力: " out[s,x] # 出力表示 s=trans[s,x] # 状態更新 } } }

C>gawk -f juice.awk juice.csv
状態: 0
入力: 50
出力: なし
状態: 50
入力: 50
出力: なし
状態: 100
入力: 100
出力: ジュースとおつり
状態: 0
入力:          ...Enterで終了

C>

(練習) 10円玉も使えるように、juice.csv を変更しなさい。

17. 教材分析

17.1 頻出単語

　英文テキストを調べ、大小文字の区別なしに、3回以上現れる単語を調べるプログラムです。tolower()は大文字を全部小文字に変換し、gsub()はアルファベット以外の数字や記号を除く処理をします。単語のカウントを行い、集計終了後に3回以上現れた単語を頻度順に表示します。

{ $0=tolower($0) # アルファベットは小文字に統一し gsub(/[^a-z] */," ") # [a-z]以外の文字はスペースに置き換え for(i=1; i<=NF; i++) count[$i]++ # 出現単語のカウントアップ } END{ for(w in count){ if(count[w]>=3) print count[w],w # 単語と出現数を表示 } }

C>gawk -f wcount.awk etext.txt
3 woman
5 to
5 and
4 river
5 old
13 the
3 peach
4 a

C>

17.2 文字パターン検索

　以下の pcount.awk は、入力した正規表現にマッチする単語を探して表示するプログラムです。

BEGIN{ printf "string? " getline pattern<"con" } { $0=tolower($0) #アルファベットは小文字に統一し gsub(/[^a-z] */," ") # [a-z]以外の文字はスペースに置き換え for(i=1; i<=NF; i++){ # 各単語が if($i~pattern) count[$i]++ # パターンとマッチすればカウントアップ } } END{ for(w in count) print count[w],w # 単語と出現数を表示 }

C>gawk -f pcount.awk etext.txt
string? ^..t
1 cut
1 with
1 eat
1 gather
2 out
1 into

C>

「^..t」は「3文字目がtの単語を探しなさい」という意味です。「e$」とすれば「最後がeで終わる単語」、「^t.*t$」とすれば「tで始まってtで終わる単語」ということになります。

(練習) 入力する「パターン」を変えて、意図した結果が得られるか試しなさい。

17.3 可読性(読みやすさ)

　ARI Readability Score は次式で与えられます(L.L.Cherry, W.Vesterman:``Writing Tools - The STYLE and DICTION Programs'',UNIX Document, USD-32.)。

G = 4.71 lpw + 0.5 wps - 21.43 lpw:1単語の平均文字数 wps:1文の平均単語数

　英語文書が与えられたとき、以下のプログラムは、段落や文章や単語の数、1段落の平均文数、1文の平均単語数、1単語の平均文字数、そしてARIスコアを計算し、表示します。

{ np++ # 段落数(行数)をカウントアップ gsub(/[^A-Za-z.!?\-]+/," ") # これ以外の文字はスペースに置換 ns+=gsub(/[.!?] */," ") # 文数を加算(文数は[.!?]の数) nw+=NF # 単語数を加算(単語数はフィールド数) for(i=1;i<=NF;i++) nl+=length($i) # 文字数を加算 } END{ spp=ns/np # 文数/段落 wps=nw/ns # 単語数/文 lpw=nl/nw # 文字数/単語 print "No. paragraphs: " np # 段落数を表示 print "No. sentences: " ns # 文数を表示 print "No. words: " nw # 単語数を表示 print "No. letters: " nl # 文字数を表示 print "Avg. paragraph length: " spp " sentences" # 文数/段落を表示 print "Avg. sentence length: " wps " words" # 単語数/文を表示 print "Avg. word length: " lpw " letters" # 文字数/単語を表示 print "ARI Grade: " (4.71*lpw+.5*wps-21.43) # ARIスコアを表示 }

C>gawk -f rscore.awk etext.txt
No. paragraphs: 2
No. sentences: 8
No. words: 117
No. letters: 471
Avg. paragraph length: 4 sentences
Avg. sentence length: 14.625 words
Avg. word length: 4.02564 letters
ARI Grade: 4.84327

C>

(練習) 英語文書が与えられたときに、単語の長さによるヒストグラムを表示するプログラムを作りなさい。

(練習) 日本語文書が与えられたときに、40文字以上「、」が現れない文章および80文字以上「。」が現れない文章を表示し、警告を与えるプログラムを作りなさい。

(練習) 疑問文や感嘆文には対応していません。これらに対応できるように拡張しなさい。

(練習) 日本語の可読性の尺度として、次式が提案されています(浅野陽子, 小川克彦:``日本文の可読性を尺度とした読みスタイルの分析'',情報処理学会ヒューマンインタフェース研究会資料, 37-7, 1991.)。例えば、小学3年レベルの文章ならば G が3、中学3年レベルの文章ならば G が9と評価されます。

G = - 0.17 h - 0.28 k - 3.49 e + 27.62 h:ひらがなの相対頻度(%) k:カタカナの相対頻度(%) e:句点の相対頻度(%)

これに従って、日本語文書の可読性を調べるプログラムを作りなさい。

17.4 百人一首

　hyaku.csv というファイルには「百人一首の上句、下句、作者」のデータがCSV形式で入っています。テキストエディタや表計算ソフトでこのファイルを開いて中を確認してください(hyaku.csvはこちらからダウンロードできます)。

秋の田の...,わが衣手は...,天智天皇春すぎて...,衣ほすてふ...,持統天皇 ...

　次のプログラムは、上句の先頭文字が「春夏秋冬」のいずれかで、作者に「天皇」を含む句を表示するというものです。

BEGIN{ FS="," } $1~/^[春夏秋冬]/ && $3~/天皇/

C>gawk -f hyaku.awk hyaku.csv
秋の田の　かりほの庵の　苫をあらみ　わが衣手は　露にぬれつつ　天智天皇
春すぎて　夏来にけらし　白妙の　衣ほすてふ　天の香具山　持統天皇

C>

(練習) 百人一首について、別の点に着目して調べなさい。

17.5 テキスト生成

　prob27.csv にはスペース(sp)を含むアルファベット27文字の出現確率が以下のように入っています(確率データは R.I.Damper, 1984)。テキストエディタでこのファイルを開いて中を確認してください。(prob27.csvはこちらからダウンロードできます)

sp,.174 A,.067 B,.012 ...

　以下のプログラムはこの確率でランダムに100文字のテキストを生成するものです。

BEGIN{ FS="," } { c[NR]=$1 # cは文字 p[NR]=$2 # pは確率 } END{ srand() # 乱数系列の初期化 for(var i=0; i<100; i++) printf letter() # 100文字表示 } function letter(){ # ランダムに1文字を返す r=rand() # rは0～1 P=0 for(i=1; i<=NR; i++){ P+=p[i] # Pは0→1 if(r<P) return (c[i]=="sp"?" ":c[i]) } }

C>gawk -f textgen.awk prob27.csv
 IEETRAundefinedV SOEBAMPFNIT ASTSRIRAE OCEPH FE FR FOEREKRO GHOG RORM STTOTTHSESUAS OERTDHD HT   ERFR  TV N

C>

18. パズルとゲーム

　ゲームとパズルのプログラムを取り上げます。どちらもコンピュータが問題を解いているように見えるかもしれませんが、解法はプログラムとして与えていることに注意してください。

18.1 石取りゲーム

　10個の石があります。交互に1～3個の石を取り、最後に石を取ったら負けというゲームです(奥村晴彦「C言語による最新アルゴリズム事典(技術評論社)」)。

BEGIN{ N=10 M=3 print "1～3個の石を取ることができます" print "最後に石を取った方が負けだよ" print rep("●",N) while(1){ printf "あなた: 何個取りますか? " getline x print rep("●",N-=x) if(N<=0){ print "あなたの負け"; break} x=(N-1)%(M+1) # ここがポイント if(x==0) x=1 # print "コンピュータ: " x "個の石を取ります" print rep("●",N-=x) 　 if(N<=0){ print "コンピュータの負け"; break} } } function rep(s,n){ if(n==0) return "" else return s rep(s,n-1) }

C>gawk -f ishi.awk
1～3個の石を取ることができます
最後に石を取った方が負けだよ
●●●●●●●●●●
あなた: 何個取りますか? 3
●●●●●●●
コンピュータ: 2個の石を取ります
●●●●●
あなた: 何個取りますか? 
...

　プログラムの戦略は以下の箇所にあります。相手が1個取ったらコンピュータは3個...というように4個ずつ確実に減らすことができるので、4の倍数+1個残せれば勝ちが決まります。それがだめなら1個取ります。

... x=(N-1)%(M+1) if(x==0) x=1 ...

(練習) 石の数(N)や、取ることができる最大個数(M)を変え、コンピュータに勝つことができるかどうか試みなさい。

18.2 ハノイの塔

　3本の棒A,B,Cがあり、Aの棒にn枚(図では4枚)の円盤が積み重ねられています(図8)。これらの円盤をBの棒に移すにはどのような手順で移動したらよいでしょうか。ただし、円盤は1度に1枚ずつ移動し、小さな円盤の上に大きな円盤を重ねることはできません。

図8 ハノイの塔

　以下のプログラムは、どのように移動すればよいかを表示します。

BEGIN{ hanoi(4,"A","B","C") } function hanoi(n,from,to,buf){ if(n>0){ hanoi(n-1,from,buf,to) # fromにあるn-1枚の円盤をbufに移す print from "→" to # fromに残った1枚の円盤をtoに移す hanoi(n-1,buf,to,from) # bufに待避したn-1枚の円盤をtoに移す } }

　プロクラムはとても短いもので、関数 hanoi() の中では、hanoi() を再帰的に呼び出しています。from の n-1 枚の円盤をとりあえず buf に移し、次に from に残った1枚の円盤を to に移し、buf に移した n-1 枚の円盤を to に戻します。このように「より簡単な問題に分解して問題を解決する方法」を分割統治といいます。

C>gawk -f hanoi.awk
A→C
A→B
C→B
A→C
B→A
...
C>

　この例のように「自分の考え方が正しいかどうか」を実際にプログラムを作って検証するということはプログラミングの重要な利用法のひとつです。

19. 対話型学習ソフト

19.1 記述式クイズ

　以下の pair.awk は「対の関係」を記述式で問うプログラムです。データを変えれば、「日本語を示し、英単語を問う問題」、「英単語を示し、逆の意味の英単語を問う問題」、「漢字を示し、読みを問う問題」などとなります。

BEGIN{ FS="," } { printf "問" NR ":" $1 " は何ですか？" getline s<"con" if(s==$2) print "○ 正解です" else print "× 違います　正解:" $2 }

愛,love 飛行機,airplane 夢,dream 猿,monkey 休日,holiday 学校,school

C>gawk -f pair.awk pair.csv
問1: 愛 は何ですか？ love
○ 正解です
問2: 飛行機 は何ですか？ plane
× 違います　正解: airplane
問3: 猿 は何ですか？ monkey
○ 正解です
 ...

(練習) pair.awk のプログラムを変更し、全問終了後に正答数を表示するようにしなさい。

(練習) 7で取り上げたshuffle()を使い、出題順をランダムにしなさい。

19.2 穴埋め問題

BEGIN{FS=","} { print "問" NR ": " $1 for(i=2;i<=NF;i++){ printf "(" i-1 ")は何ですか?" getline a<"con" if($i==a) print "○ 正解です" else print "× 違います　正解:" $i } }

夢(1)みる,を猿(1)木(2)落ちる,も,から温(1)知(2),故,新 (1)+(2)=12　(1)-(2)=6,9,3 (1)なぜなくの(1)は(2)に～,からす,山

C>gawk -f lib.awk -f subst.awk subst.csv
問1: 夢(1)みる
(1)は何ですか？ を
○ 正解です
問2: 猿(1)木(2)落ちる
(1)は何ですか？ も
○ 正解です
(2)は何ですか？ に
× 違います　正解: から
 ...

(練習) pair.awkのプログラムを変更し、データファイルの構成を、「問題,解答1,解答2,...」のようにし、2つ以上の解答を許すようにしなさい。

(練習) 以下のように、各問複数の項目を問うプログラムを作りなさい。

C>gawk -f lib.awk -f subst.awk subst.csv
問1
1221年は何がありましたか？ 承久の乱
○ 正解です
その中心人物は誰ですか？ 北条政子
× 違います　正解: 北条義時
問2
1637年は何がありましたか？ 島原の乱
○ 正解です
その中心人物は誰ですか？ 天草四郎
○ 正解です
...

(練習) 選択式のクイズプログラムを作りなさい。

19.3 CAIプログラム

　少し実用性を考慮したCAIプログラムを紹介します。問題ファイル(cai.csv)の内容は次のように扱われ、問題文を自由記述できます。

「A:」で始まる行は、$2を尋ねて答えを入力させ、正解($3)との一致を調べて表示する。
空行(改行だけの行)では「次の問題(Enterキー)」と表示してキー操作を促す。
上記以外の行はそのまま表示される。

　なお、多少拡張したプログラムが sample フォルダにあります。

C>cd sample

C>gawk -f lib.awk -f cai.awk qanda.csv

C>gawk -f lib.awk -f cai.awk momo.csv

で試すことができます。誤答の場合にヒントを出したり、全問回答後に回答記録を表示したり(実際はファイルに記録して後から分析する)、機能を拡張しています。

BEGIN{ FS="," } { if($1=="A:"){ printf $2 " は何ですか？ " getline a<"con" if(a==$3) print "○ 正解です" else print "× 違います　正解:" $3 }else if($0==""){ printf "次の問題(Enterキー)" getline <"con" }else print $0 }

第1問次の日本語の意味を表す語を(　)に書きなさい。 (1) 経済 ( ) (2) 困難 ( 　　 ) A:,(1),economy A:,(2),difficulty 第2問次の各語で最も強く読む部分を番号で答えなさい。 (1) ex-pe-ri-ence (　 )　 (2) en-vi-ron-ment ( ) 1 2 3 4 1 2 3 4 A:,(1),2 A:,(2),2 第3問 (　)に入ると思われる英単語を答えなさい。桃太郎さん　桃太郎さん　 -MOMOTAROSAN, MOMOTAROSAN, お腰につけた吉備団子　　 give me one of your KIBIDANGO, 一つわたしにくださいな． which you carry with you あげましょうあげましょう around your ( 1 ). これから鬼の征伐について -I will give you one if you くるならあげましょう．　 will come with me to get rid 　　　　　　　　　　　　 of the ( 2 ). A:,(1),waist A:,(2),devils

C>gawk -f cai.awk cai.csv
第1問 次の日本語の意味を表す語を(　)に書きなさい。
(1) 経済 (            )   (2) 困難 (       　　 )
(1)は何ですか？ economy
○正解です。
(2)は何ですか？　
 ...

　誤答時にヒントを出すなど、いくつかのパターンのクイズを作成できるJavaScriptプログラムがこちらにあります。

(練習) データの構成を「問題,解答,ヒント」とし、誤答の場合はヒントを出すようなプログラムを考えなさい。

(練習) 誤答の場合は補足問題を解かせるようなプログラムを考えなさい。

(練習) 解答の正誤で次に出す問題の難易度を変えるようなプログラムを考えなさい。

koyama88@cameo.plala.or.jp