five <- c("春が来た", "明日こそ", "庭の梅", "リサイクル", "理解力",
"ソーラーカー", "朝からの", "荒れる海", "メモリアル", "気になった",
"古めかしい", "懐かしさ", "ルーツだよ", "町並みだ", "良い香り",
"心細いが", "歩こうか", "橋の下", "降り立った", "ほぼ真下", "改めて",
"出口なし", "戻り道", "金メダル", "オリンピック", "怖かった", "残念だ",
"まだまだだ", "氷点下", "氷はる", "カーリング", "イタリアの", "からっぽだ")
seven <- c("金の欲しさよ", "空を眺めて", "男と女は", "朝の電車で",
"天候次第", "まっすぐ行こう", "普通に生きる", "立ち寄ろう", "駄菓子屋さん",
"見とれる二人", "特にたまらない", "おからコロッケ", "六十円", "記念撮影",
"なんとか大丈夫", "帰って来たぜ", "最後の最後で", "イタリア料理")
senryuu <-
function()
senryuu <- function()
{
x <- sample(five,2)
cat(x[1], sample(seven, 1), x[2], "\n", sep=" ")
}
> for (i in 1:10) senryuu()
まだまだだ 金の欲しさよ カーリング
リサイクル 空を眺めて 町並みだ
古めかしい 記念撮影 オリンピック
まだまだだ 最後の最後で 荒れる海
イタリアの 金の欲しさよ 出口なし
橋の下 普通に生きる 気になった
ほぼ真下 空を眺めて 橋の下
残念だ 最後の最後で 降り立った
氷はる 男と女は 氷点下
ソーラーカー 記念撮影 歩こうか
* 目標
**データベースの整備および，関数のリファインメント
**世界標準版のデータベース整備
例の「金の欲しさ」は「かねの欲しさ」だったんだが（「それにつけても金の欲しさよ」は，下の句としてオールマイティということによる。「世の中は いつも月夜と米の飯 それにつけても金の欲しさよ...太田南畝」）イタリアとか何とかと組み合わされると「金メダルの欲しさ」になる所がおかしい。。。。
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
