#!/usr/local/bin/perl # # hassou: かき混ぜ法による発想キーワードを生成する． # # [1996/09/20] OSHIRO Naoki. # # $Log:$ # # Reference: 確か『着想加速器』を参考にしたのではなかったか．． # @verb=split("\n", " を利用した を利用する でできた のための に基づく を避ける を移動させる を付けた を変化させる を曲げる を広げる を狭める を組立てる を解体する を繋げる を結ぶ を切り刻む を食べる を吐き出す を飲み込む を飲む を分ける を温める を冷やす を延ばす を送る を贈る を捕らえる の遅い の早い のない の妥当な から見た を再生する を見えなくする を隠す を複写する を懐かしむ を洗う を集める を背負った を借りる を描く を学ぶ を上げる を増やす を減らす を上げる を下げる を回す を大きくする を小さくする を並べる を燃やす を消す を汚す をムダにする を生かす を潰す を縮める を入れる を出す を開ける を閉じる を届ける のなかの の上の の下の の横の の隣の を付けた を超える を裏返す を考える を考ない のきれいな につく "); @noun=split("\n", " 漫画 マンガ 発想 思考 道具 成長 業務 日誌 日記 ロボット 視点 博士 舌 髪 神 紙 法律 情け 気持 便意 便所 トイレ 感情 愛情 恋愛 恋人 結婚 離婚 式場 葬式 挙式 形式 白紙 解答 見識 解凍 回答 台頭 帯刀 名字 名前 生命 姓名 判断 メモリ 自動車 自転車 カバン 記録 動転 展開 転回 寺 墓 煙 爆発 爆弾 役職 発破 線香 スプーン 箸 皿 腕 片手 指 足 片足 耳 片耳 目 片目 頭 首 体 心 夢 泡 時計 煎餅 クリーム お菓子 石鹸 ハチマキ タコ イカ じゃんけん 子供 大人 針 糸 一覧表 過去 未来 現在 哲学 数 エサ コンドーム ドーム 天井 屋根 家 邸宅 庭 植木 鉢植え 箱庭 本 ノート メモ ポストイット キーボード スキー ボール 玉 エディタ ワープロ 電源 エンジン 燃料 バイク 車 赤ちゃん 幼児 学校 幼稚園 大学 高校 小学校 教科書 試験 評価 名誉 夜 朝 昼 夕方 夕日 朝日 太陽 星 月 空間 時間 次元 平面 線 モノサシ 鉛筆 筆 ライト 文章 らっきょう ビール ワイン 酒 ゲーム 椅子 タイヤ コップ 箱 袋 服 相談 ペット ペットボトル 灰皿 タバコ 肝 才能 地獄 天国 現世 機能 昨日 今日 明日 鼻 花 スケート 銀盤 レコード 磁気 時期 軸 ペン 蓋 底 言葉 言語 音 声 水 水道 道 郵便 封筒 ハガキ 電話 障害物 電線 コネクタ キー 鍵 セキュリティ 匿名 貯金 宝石 指輪 友達 街角 宛先 教師 生徒 刑事 犯人 犯罪 殺人 窃盗 侵入 導入 購読 縁側 倫理 文字 価格 費用 楽団 絵描き 胃 家 アパート 人間 動物 食欲 性欲 トイレ 御馳走 裸 色 輝き 濁り 蒸気 印 兆し 刻み 眠り 睡眠 めまい 彗星 冷蔵庫 コンロ ジュース 炭酸 液晶 ディスプレイ テレビ ラジオ 新聞 会社 お店 女 女の子 男 男の子 君 ヒゲ 出口 入口 穴 ガラス 山 川 池 湖 才能 天才 金庫 努力 誰か 何か 名誉 栄光 栄誉 哀しみ 悲劇 喜劇 演劇 芝居 演技 道化 茶番 猫 犬 鬼 嫁 姑 通信 パソコン通信 対話 会話 電話 通話 料金 窓 風船 縁 板 火 脂肪 志望 希望 要望 客 部下 上司 社長 乞食 マーク シール 印刷 インク ペンキ 道路 黒板 ゴミ 廃棄物 戦争 平和 軍隊 兵隊 人員 ムード 太鼓 太古 数式 家族 意志 銃撃 銃弾 獣 体重 ダイエット 絵 茸 殺し屋 仕掛人 仕事人 殺人 逃亡 幻滅 石 岩 猿 方向 芳香 彷徨 さすらい 詩人 医師 遺言 体内 胎児 峠 光 妹 弟 親子 先祖 祖先 おじさん おばさん 乳房 おっぱい ミルク 牛 コンピュータ パソコン 傷 電柱 風呂 息 聴衆 野球 遊び 仕事 "); # 最初にある空リストを破棄 shift(verb); shift(noun); # 要素数をチェック $vn=$#verb; $nn=$#noun; # 乱数初期化 srand(time); # 表示個数のセット $n=1; $n=$ARGV[0] if ($#ARGV>=0); for ($i=0; $i<$n; $i++) { print $noun[&irand($nn)] . $verb[&irand($vn)] . $noun[&irand($nn)] . "\n"; } sub irand {return int(rand(@_[0]));} # major-mode: perl