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

2、日，留戀年年君不見。看明年清絕闌干談笑里，下缺黃昏多少恨。 年年堪羨吾老矣，清絕當(dāng)時二十年。好了，廢話不多說了，下面是代碼:/*題目*/*詩詞類* 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)造詩詞類*/title ;firstSe ntencesec on dSe ntencethirdSe ntencefourthSe n

3、tenceSystem. 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);*/格式化打印詩詞publicvoidprin tPoetry() /*詩詞工具類* author gujie* version1.0* since 2011 -12-07*/public class poemUtils /*獲得詩詞題目*/public stati

5、c 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;/*獲得詩句*/len gth );public static Str ing getPoemSe nten ce(Str ingList twoWordList=List threeWordList=Li

6、st fourWordList=List 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 HashMap();,);len gth ; i+) type) wordMap.put(i,wordsi);swi

7、tch(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.get(i); break ;Stri ng poemSe nten ce=n ull ;if (

8、 5 .equals(type) poemSe nten ce=fiveWords (twoWordList, threeWordList); else poemSe nten ce=seve nWords(twoWordList, threeWordList);return poemSentence;五言詩*/public staticString fiveWords(List list1,Listlist2)Random random = new Random();int ran domNum1=ra ndom.n extI nt(list1.size();int ran domNum2=

9、ra ndom. nextl nt(list2.size();Stri ng ran domWord=list1.get(ra ndomNum1)+list2.get(ra ndomNum2); return ran domWord;/*七言詩*/public staticString seve nWords(List list1,Listlist2)Random random = new Random();int randomNum1=random.nextlnt(list1.size();int randomNum2=random.nextlnt(list2.size();Stri ng

10、ran domWord=list1.get(ra ndomNum1)+list2.get(ra ndomNum2);list1.remove(ra ndomNum1);int ran domNum=ra ndom. nextl nt(list1.size();returnlist1.get(ra ndomNum)+ra ndomWord;強人統(tǒng)計的數(shù)據(jù)源的方法：這才是精髓!PsPs :強人 yixuan還有一位重新整理數(shù)據(jù)的牛人不知道ID在人人上看到的。數(shù)據(jù)：全宋詞文本代碼:l=sca n( HCi.txtH,HcharacterH,sep=HnH);l.le n=n char(l);#某些行

11、是作者和標題，所以選取長度大于10的行；#另外這個文本文件不太規(guī)整，有些網(wǎng)址什么的，#所以也要排除那些長度太長的。ci=l;#句子用標點符號分割。sentences=strsplit(ci,， |。| ！ | ？ |、);senten ces=un list(se nten ces);senten ces=se nten cesse nten ces!=;s.len二n char(se nten ces);#單句太長了說明有可能是錯誤的字符，去除掉。senten ces=se nten cessen=10;s.len二n char(se nten ces);#暴力挨個拆分，比如“猶解嫁東風(fēng)”的

12、所有二字組合為# “猶解”“解嫁” “嫁東”“東風(fēng)”，#無意義的詞其頻數(shù)自然就落在后面了。splitwords=fu nctio n(x,xen) substri ng(x,1:(x .len-1),2:x.le n);words=mapply(splitwords,se nte nces,s.le n, SIMPLIFY=TRUE,USE.NAMES=FALSE );words=un list(words);words.freq=table(words);words.freq=sort(words.freq,decreas in g=TRUE); data.frame(Word=n ames

13、(words.freq1:100),Freq=as.i nteger(words.freq1 ：100);我整理了一下格式在我的小程序里面new詩詞對象的時候需要傳這個數(shù)據(jù)源作為參數(shù)：String poemData=到如今，君知否，誰知道，功名事，須信道,最好是，人間世，從今去，凝佇，歸去，不如歸去，知否，誰信道，倚闌干，到而今，又還是，歸去來兮，人不見，當(dāng)此際，記當(dāng)年，東 風(fēng)里，怎奈向，春去也，須知道，爭知道,+更那堪，留不住，謾贏得，那堪更,一觴一詠，休休,君不見，家山好，歸來也，思往事，悠悠，無緒， 還知否，追往事，人間天上，最苦是，疏影橫斜，空悵望，空惆悵，記年時，人間事，又只恐，回首

14、處, 夜沈沈，斷人腸，早歸來，有多少,+空凝佇，向尊前，微雨過，情脈脈,斜陽外，無語，月明中，朱顏綠鬢,綠鬢朱顏，誰念我，還知么， 問何如，不堪回首，東風(fēng)惡，人何處，人正在，今老矣，從別后，倚東風(fēng)，又何須，多少事，天長地久， 安陽好，對東風(fēng)，對西風(fēng)，廣寒宮殿,+歸去也，歸來晚，愿年年，江南岸，空回首，終不似，腸斷，腸斷處，落花飛絮，西源好，闌干外，風(fēng) 流,颼颼，與誰同，五云深處，人間何處難忘酒，人靜，從此去，倚西風(fēng)，分明是，功名富貴，南徐好, 歲歲年年，思晴好，想當(dāng)年，無限事，朝朝暮暮,+歌窈窕，獨自個，竹籬茅舍，綸巾羽扇，良辰美景，記當(dāng)時，詩曰，醉歸來，七十古來稀，人如玉， 人盡道，何處，凝

15、望處，千古恨，千秋歲，去年今日，向此際，坐中客，天賦與，好天良夜，年年今日， 待歸來，愁絕，故人何處，明月清風(fēng)，暗香浮動,+曲水流觴，渾不似，清絕，盈盈，空腸斷，空贏得，算人間，算只有，緣底事，記當(dāng)日，還又是，道骨 仙風(fēng)，都付與，都休問，酒醒時，問人間，問何時，風(fēng)不定，一聲聲，二十年，人散后，人易老，從今 后，休去，休辭醉，依然是，幾時休，憑闌久,+去天尺五，又誰知，君且住，吾老矣，堪羨,多少恨，夜來風(fēng)雨，天下事，天如水，如何得，嫣然一 笑，寂寞，山居好，歸去來，心下事，怎知道，思悠悠，恁時節(jié)，悄無人，愿歲歲，文章太守，無個事， 最關(guān)情，最好處，有誰知，浮世事，滿城風(fēng)雨,+玉骨冰肌，畫堂深，登

16、臨處，看不足，真?zhèn)€是，知何處，知音少，稱壽處，空相憶，笑人間，紗窗外， 落花流水,長安道，問當(dāng)年，雨初晴，頻回首，風(fēng)又雨，風(fēng)流云散,一杯酒，一蓑煙雨，三千歲，東風(fēng) 外，人去后，人未老，人道是，今夜里，但悵望，佳人何處,+再相逢，冰肌玉骨，凈幾明窗，凌波微步，凝望久，千山萬水，卷珠簾，又何妨，又過了，嘆人生， 君看取，吳頭楚尾，地久天長，堪恨處，堪愛處，多應(yīng)是，夜將闌，天付與，天寒日暮，如今憔悴，山 無數(shù)，簾櫳靜，廣寒宮里，待明朝，憶當(dāng)年，急管繁弦,+恨悠悠，憔悴，攜手處，無一事，暗香疏影，最難忘，月明風(fēng)細，有個人人，水悠悠，江南春早，深 院宇，深院靜，清風(fēng)明月，畫圖中，留戀，留春不住，相逢處，看明年，算惟有，經(jīng)行處，綺羅叢里， 緩帶輕裘，腸欲斷，自別后，莫匆匆，行樂處，許多愁,+試與問，試屈指，談笑里，謾回首，還知道，送君南浦，都不管，都莫問，酒巡未止，采菱拾翠，長 亭路，問誰是，難忘處，非煙非霧，風(fēng)前月下，黯銷魂，一葉扁舟，一年一度，一杯相屬，一枝枝,一 輪明月，下缺，不知今夕何夕，東風(fēng)起，舉杯相屬，之