Haiku ライブラリー
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
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()
まだまだだ 金の欲しさよ カーリング
リサイクル 空を眺めて 町並みだ
古めかしい 記念撮影 オリンピック
まだまだだ 最後の最後で 荒れる海
イタリアの 金の欲しさよ 出口なし
橋の下 普通に生きる 気になった
ほぼ真下 空を眺めて 橋の下
残念だ 最後の最後で 降り立った
氷はる 男と女は 氷点下
ソーラーカー 記念撮影 歩こうか
* 目標
**データベースの整備および，関数のリファインメント
**世界標準版のデータベース整備
例の「金の欲しさ」は「かねの欲しさ」だったんだが（「それ...
終了行:
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()
まだまだだ 金の欲しさよ カーリング
リサイクル 空を眺めて 町並みだ
古めかしい 記念撮影 オリンピック
まだまだだ 最後の最後で 荒れる海
イタリアの 金の欲しさよ 出口なし
橋の下 普通に生きる 気になった
ほぼ真下 空を眺めて 橋の下
残念だ 最後の最後で 降り立った
氷はる 男と女は 氷点下
ソーラーカー 記念撮影 歩こうか
* 目標
**データベースの整備および，関数のリファインメント
**世界標準版のデータベース整備
例の「金の欲しさ」は「かねの欲しさ」だったんだが（「それ...
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
