java古詩(shī)詞自動(dòng)生成程序

1、在線演示：點(diǎn)擊此處前幾天在網(wǎng)上看到有強(qiáng)人閑來(lái)無(wú)事，把全宋詞拿出來(lái) 搗鼓”算出了其中的高頻詞匯。我也閑來(lái)無(wú)事，用這些詞匯作數(shù)據(jù)源，編寫了一個(gè)java小程序，用來(lái)隨機(jī)生成詩(shī)歌?？梢暂o助文科生進(jìn)行詩(shī)歌創(chuàng)作。由于本人對(duì)韻律完全不通，所以只能全隨機(jī)排列進(jìn)行詩(shī)句的構(gòu)成，而且只有五絕和七絕兩種形式。大家生成的詩(shī)句有意境好，讀起來(lái)順口解釋的通的， 發(fā)上來(lái)大家一起品評(píng)一下 AA我先發(fā)幾個(gè)例子也沒(méi)挑選就是隨機(jī)弄了幾篇發(fā)上來(lái)： 五言律詩(shī):留春不住功名緣底事，芳草思往事。 春風(fēng)頻回首，盈盈今夜里?；厥滋幤缴鞒?，尊前天付與。尊前浮世事，無(wú)人誰(shuí)知道。七言律詩(shī)：行樂(lè)處梅花休去腸斷處，無(wú)限知否憶當(dāng)年。 風(fēng)流詩(shī)曰記當(dāng)日，留

2、戀年年君不見?？疵髂昵褰^闌干談笑里，下缺黃昏多少恨。 年年堪羨吾老矣，清絕當(dāng)時(shí)二十年。好了，廢話不多說(shuō)了，下面是代碼:/*詩(shī)詞類* author gujie* version1.0* since 2011 -12-07*/publicclassPoem /*題目privateStr ing/*首聯(lián)*/privateStr ing/*頷聯(lián)*/privateStr ing/*頸聯(lián)*/privateStr ing/*尾聯(lián)*/privateStr ing/*構(gòu)造詩(shī)詞類*/title ;firstSe ntencesec on dSe ntencethirdSe ntencefourthSe ntenc

3、eSystem. out .println(System. out .println(System. out .println(t+ti tle);firstSentence+ , +secondSentencethirdSentence+ , +fourthSentence+?！?;+?！?;publicPoem(Str ing type,Stri ng poemData)title =poemUtils.getPoemTitle(poemData);firstSe ntence=poemUtils.getPoemSe ntence(poemData, type);sec on dSe nt

4、ence=poemUtils.getPoemSe ntence(poemData, type);thirdSe ntence=poemUtils.getPoemSe ntence(poemData, type);/*fourthSe ntence=poemUtils.getPoemSe ntence(poemData, type);*/格式化打印詩(shī)詞publicvoidprin tPoetry() /*詩(shī)詞工具類* author gujie* version1.0* since 2011 -12-07public class poemUtils /*獲得詩(shī)詞題目*/public static

5、Stri ng getPoemTitle(Str ing poemData) Stri ng words; words=(poemData).split(,);Ran dom ran dom =new Ran dom();int ran domNum=ra ndom. nextl nt(words.Str ing titile=wordsra ndomNum;return titile;/*獲得詩(shī)句*/len gth );public static Str ing getPoemSe nten ce(Str ingListvStri ng twoWordList=ListvStri ng th

6、reeWordList=ListvStri ng fourWordList=ListvString fiveWordList=List sixWordList=Map In teger, StringwordMap= Stri ng words;words=(poemData).split( for (int i = 0; i words.poemData,Str ingnew ArrayList();new ArrayList();new ArrayList();new ArrayList();new ArrayList();new HashMapv In teger, Stri ng();

7、,);len gth ; i+) type) wordMap.put(i,wordsi);switch(wordMap.get(i) .len gth() case 2:twoWordList.add(wordMap.get(i); break ;case 3: threeWordList.add(wordMap.get(i); break ;case 4: fourWordList.add(wordMap.get(i); break ;case 5:fiveWordList.add(wordMap.get(i); break ;case 6:sixWordList.add(wordMap.g

8、et(i); break ;String poemSentence= null ; if ( 5 .equals(type) poemSentence= fiveWords (twoWordList, threeWordList); else poemSentence= sevenWords (twoWordList, threeWordList);return poemSentence;五言詩(shī)*/public static String fiveWords(List list1,List list2)Random random = new Random();int randomNum1=ra

9、ndom.nextInt(list1.size();int randomNum2=random.nextInt(list2.size();String randomWord=list1.get(randomNum1)+list2.get(randomNum2); return randomWord;/* 七言詩(shī)*/public static String sevenWords(List list1,List list2)Random random = new Random();int randomNum1=random.nextInt(list1.size();int randomNum2=r

10、andom.nextInt(list2.size();String randomWord=list1.get(randomNum1)+list2.get(randomNum2); list1.remove(randomNum1);int randomNum=random.nextInt(list1.size(); return list1.get(randomNum)+randomWord;強(qiáng)人統(tǒng)計(jì)的數(shù)據(jù)源的方法：這才是精髓！Ps：強(qiáng)人 yixuan 還有一位重新整理數(shù)據(jù)的牛人 不知道 ID 在人人上看到的。數(shù)據(jù)：全宋詞文本代碼： l=scan(Ci.txt,character,sep=n);

11、l.len=nchar(l);# 某些行是作者和標(biāo)題，所以選取長(zhǎng)度大于 10 的行；# 另外這個(gè)文本文件不太規(guī)整，有些網(wǎng)址什么的，# 所以也要排除那些長(zhǎng)度太長(zhǎng)的。ci=l;# 句子用標(biāo)點(diǎn)符號(hào)分割。sentences=strsplit(ci,，| 。| ！| ？| 、 );sentences=unlist(sentences);sentences=sentencessentences!=;s.len=nchar(sentences);# 單句太長(zhǎng)了說(shuō)明有可能是錯(cuò)誤的字符，去除掉。 sentences=sentencess.len=10;s.len=nchar(sentences);# 暴力挨個(gè)拆

12、分，比如“猶解嫁東風(fēng)”的所有二字組合為# “猶解”“解嫁”“嫁東”“東風(fēng)”，# 無(wú)意義的詞其頻數(shù)自然就落在后面了。splitwords=function(x,x.len) substring(x,1:(x.len-1),2:x.len);words=mapply(splitwords,sentences,s.len,SIMPLIFY=TRUE,USE.NAMES=FALSE );words=unlist(words);words.freq=table(words);words.freq=sort(words.freq,decreasing=TRUE); data.frame(Word=name

13、s(words.freq1:100),Freq=eger(words.freq1 :100);我整理了一下格式在我的小程序里面 new 詩(shī)詞對(duì)象的時(shí)候需要傳這個(gè)數(shù)據(jù)源作為參數(shù)：String poemData= 到如今 , 君知否 , 誰(shuí)知道 , 功名事 , 須信道 , 最好是 , 人間世 , 從今去 , 凝佇 , 歸去,不如歸去 ,知否,誰(shuí)信道,倚闌干,到而今,又還是,歸去來(lái)兮 ,人不見,當(dāng)此際,記當(dāng)年,東 風(fēng)里 , 怎奈向 , 春去也 , 須知道 , 爭(zhēng)知道 , + 更那堪 , 留不住 , 謾贏得 , 那堪更 , 一觴一詠 , 休休 , 君不見 , 家山好 , 歸來(lái)也 , 思往事

14、 , 悠悠 , 無(wú)緒 , 還知否 , 追往事 , 人間天上 , 最苦是 , 疏影橫斜 , 空悵望 , 空惆悵 , 記年時(shí) , 人間事 , 又只恐 , 回首處 , 夜沈沈 , 斷人腸 , 早歸來(lái) , 有多少 , + 空凝佇 , 向尊前 , 微雨過(guò) , 情脈脈 , 斜陽(yáng)外 , 無(wú)語(yǔ) , 月明中 , 朱顏綠鬢 , 綠鬢朱顏 , 誰(shuí)念我 , 還知么 , 問(wèn)何如 , 不堪回首 , 東風(fēng)惡 , 人何處 , 人正在 , 今老矣 , 從別后 , 倚東風(fēng) , 又何須 , 多少事 , 天長(zhǎng)地久 , 安陽(yáng)好 , 對(duì)東風(fēng) , 對(duì)西風(fēng) , 廣寒宮殿 , + 歸去也 , 歸來(lái)晚 , 愿年年 , 江南岸 , 空回首 , 終

15、不似 , 腸斷 , 腸斷處 , 落花飛絮 , 西源好 , 闌干外 , 風(fēng) 流,颼颼,與誰(shuí)同,五云深處 ,人間何處難忘酒 ,人靜,從此去,倚西風(fēng),分明是 ,功名富貴 ,南徐好, 歲歲年年 , 思晴好 , 想當(dāng)年 , 無(wú)限事 , 朝朝暮暮 , + 歌窈窕 , 獨(dú)自個(gè) , 竹籬茅舍 , 綸巾羽扇 , 良辰美景 , 記當(dāng)時(shí) , 詩(shī)曰 , 醉歸來(lái) , 七十古來(lái)稀 , 人如玉 , 人盡道,何處,凝望處,千古恨,千秋歲,去年今日 ,向此際,坐中客,天賦與,好天良夜 ,年年今日 , 待歸來(lái),愁絕,故人何處 ,明月清風(fēng) ,暗香浮動(dòng) , + 曲水流觴 , 渾不似 , 清絕 , 盈盈 , 空腸斷 , 空贏得 , 算

16、人間 , 算只有 , 緣底事 , 記當(dāng)日 , 還又是 , 道骨 仙風(fēng),都付與,都休問(wèn),酒醒時(shí),問(wèn)人間,問(wèn)何時(shí),風(fēng)不定,一聲聲,二十年,人散后,人易老 ,從今 后 , 休去 , 休辭醉 , 依然是 , 幾時(shí)休 , 憑闌久 , + 去天尺五 , 又誰(shuí)知 , 君且住 , 吾老矣 , 堪羨 , 多少恨 , 夜來(lái)風(fēng)雨 , 天下事 , 天如水 , 如何得 , 嫣然一 笑,寂寞,山居好,歸去來(lái),心下事,怎知道,思悠悠,恁時(shí)節(jié),悄無(wú)人,愿歲歲,文章太守 ,無(wú)個(gè)事, 最關(guān)情 , 最好處 , 有誰(shuí)知 , 浮世事 , 滿城風(fēng)雨 , + 玉骨冰肌 , 畫堂深 , 登臨處 , 看不足 , 真?zhèn)€是 , 知何處 , 知音少

17、 , 稱壽處 , 空相憶 , 笑人間 , 紗窗外 , 落花流水 , 長(zhǎng)安道 , 問(wèn)當(dāng)年 , 雨初晴 , 頻回首 , 風(fēng)又雨 , 風(fēng)流云散 , 一杯酒 , 一蓑煙雨 , 三千歲 , 東風(fēng) 外, 人去后 , 人未老 , 人道是 , 今夜里 , 但悵望 , 佳人何處 , + 再相逢 , 冰肌玉骨 , 凈幾明窗 , 凌波微步 , 凝望久 , 千山萬(wàn)水 , 卷珠簾 , 又何妨 , 又過(guò)了 , 嘆人生 , 君看取 , 吳頭楚尾 , 地久天長(zhǎng) , 堪恨處 , 堪愛(ài)處 , 多應(yīng)是 , 夜將闌 , 天付與 , 天寒日暮 , 如今憔悴 , 山 無(wú)數(shù) , 簾櫳靜 , 廣寒宮里 , 待明朝 , 憶當(dāng)年 , 急管繁弦

18、, + 恨悠悠 , 憔悴 , 攜手處 , 無(wú)一事 , 暗香疏影 , 最難忘 , 月明風(fēng)細(xì) , 有個(gè)人人 , 水悠悠 , 江南春早 , 深 院宇,深院靜,清風(fēng)明月 ,畫圖中,留戀,留春不住 ,相逢處,看明年,算惟有,經(jīng)行處,綺羅叢里 , 緩帶輕裘 , 腸欲斷 , 自別后 , 莫匆匆 , 行樂(lè)處 , 許多愁 , + 試與問(wèn) , 試屈指 , 談笑里 , 謾回首 , 還知道 , 送君南浦 , 都不管 , 都莫問(wèn) , 酒巡未止 , 采菱拾翠 , 長(zhǎng) 亭路, 問(wèn)誰(shuí)是 , 難忘處 , 非煙非霧 , 風(fēng)前月下 , 黯銷魂 , 一葉扁舟 , 一年一度 , 一杯相屬 , 一枝枝, 一 輪明月,下缺,不知今夕何夕 ,東風(fēng)起,舉杯相屬 ,之句, 人似玉, + 人別后 , 人生行樂(lè) , 人都道 , 今夕何夕 , 仙風(fēng)道骨 , 似當(dāng)年 , 但回首 , 但贏得 , 佳麗地 , 依前是 ,