five <- c("春が来た", "明日こそ", "庭の梅", "リサイクル", "理解力",
"ソーラーカー", "朝からの", "荒れる海", "メモリアル", "気になった",
"古めかしい", "懐かしさ", "ルーツだよ", "町並みだ", "良い香り",
"心細いが", "歩こうか", "橋の下", "降り立った", "ほぼ真下", "改めて",
"出口なし", "戻り道", "金メダル", "オリンピック", "怖かった", "残念だ",
"まだまだだ", "氷点下", "氷はる", "カーリング", "イタリアの", "からっぽだ")
seven <- c("金の欲しさよ", "空を眺めて", "男と女は", "朝の電車で",
"天候次第", "まっすぐ行こう", "普通に生きる", "立ち寄ろう", "駄菓子屋さん",
"見とれる二人", "特にたまらない", "おからコロッケ", "六十円", "記念撮影",
"なんとか大丈夫", "帰って来たぜ", "最後の最後で", "イタリア料理")
senryuu <- function()
{
    x <- sample(five,2)
    cat(x[1], sample(seven, 1), x[2], "\n", sep=" ")
}

> for (i in 1:10) senryuu()
まだまだだ 金の欲しさよ カーリング 
リサイクル 空を眺めて 町並みだ 
古めかしい 記念撮影 オリンピック 
まだまだだ 最後の最後で 荒れる海 
イタリアの 金の欲しさよ 出口なし 
橋の下 普通に生きる 気になった 
ほぼ真下 空を眺めて 橋の下 
残念だ 最後の最後で 降り立った 
氷はる 男と女は 氷点下 
ソーラーカー 記念撮影 歩こうか 

目標

データベースの整備および,関数のリファインメント

世界標準版のデータベース整備

例の「金の欲しさ」は「かねの欲しさ」だったんだが(「それにつけても金の欲しさよ」は,下の句としてオールマイティということによる。「世の中は いつも月夜と米の飯 それにつけても金の欲しさよ...太田南畝」)イタリアとか何とかと組み合わされると「金メダルの欲しさ」になる所がおかしい。。。。


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:16