楼主: 6皮皮9
3277 20

[学习分享] 用SAS做的成语接龙小游戏 [推广有奖]

  • 3关注
  • 3粉丝

硕士生

68%

还不是VIP/贵宾

-

威望
0
论坛币
2183 个
学术水平
14 点
热心指数
10 点
信用等级
9 点
经验
708 点
帖子
155
精华
0
在线时间
185 小时
注册时间
2008-12-7
最后登录
2018-10-23

6皮皮9 发表于 2014-9-12 18:13:23 |显示全部楼层
本帖最后由 6皮皮9 于 2014-9-15 23:40 编辑

好久不用SAS了,写了一个成语接龙游戏来练练手。游戏使用规则:
一、运行下面代码里面的所有的宏
二、%cyjl(接龙用的成语,mode=接龙模式)
说明:
1、只有两种接龙模式可以用:1随机 2长龙
2、随机模式:使用IML模式完成,随机抽取接龙的词语,有可能重复
3、长龙模式:使用SQL方式完成,寻找最长的不重复的成语接龙方式

使用的成语词库是从搜狗输入法下载的成语大全:http://pinyin.sogou.com/dict/detail/index/931
成语大全.txt (161.13 KB)
代码如下:
  1. /********************************************************/
  2. /*程序说明:使用搜狗的成语词库做成语接龙程序                                */
  3. /*程序编写时间:2014年9月12日                                                      */
  4. /*程序修改时间:2014年9月14日                                                                */
  5. /*作者:6皮皮9                                                      */
  6. /********************************************************/

  7. libname cy 'D:\成语接龙测试\sas_file';
  8. /*导入成语列表*/
  9. proc import datafile="D:\成语接龙测试\成语大全.txt"
  10. out=cy.cy_list
  11. replace;
  12. guessingrows=20000;
  13. run;
  14. data cy.test;
  15. set cy.cy_list;
  16. length f e $2.;
  17. index=_n_;
  18. f=ksubstr(var1,1,1);/*第一个字符*/
  19. e=ksubstr(kreverse(strip(var1)),1,1);/*最后一个字符*/
  20. run;
  21. /*使用IML做的随机成语接龙*/
  22. %macro cy(beg_wd);
  23. data wrd_list;
  24. list='*********成语接龙列表*********';
  25. run;
  26. proc iml;
  27. use cy.test;
  28. read all var _num_ into index;
  29. read all var _char_ into wd;
  30. close test;
  31. initial_wd_pos=(loc(wd[,1]="&beg_wd"));
  32. if ncol(initial_wd_pos)=0 then do;
  33.         i_wd='好像你输入的不是成语哦';
  34.         edit wrd_list;
  35.         append from i_wd;
  36.         end;
  37. else do;
  38. initial_ewd=wd[initial_wd_pos,3];/*初始成语词尾*/
  39. i_wd=wd[initial_wd_pos,1];
  40.         edit wrd_list;
  41.         append from i_wd;
  42. cur_ewd=initial_ewd;/*迭代用的词尾*/
  43. counter=0;
  44. wrd_loop='A';
  45. do until(counter=200);
  46.         counter=counter+1;
  47.         curpos=(loc(wd[,2]=cur_ewd));/*查找词尾属于哪个词的词头*/
  48.         if ncol(curpos)=0 then do;
  49.                 counter=200;
  50.                 wrd_loop='完蛋接不下去了!Game over';
  51.                 end;
  52.         else if ncol(curpos)>1 then do;
  53.                           call randseed(0);
  54.                           u=j(1,1,.);
  55.                           call randgen(u,'uniform');
  56.                           a1=1; b1=ncol(curpos);
  57.                          x = a1+(b1-a1)*u;
  58.                           rand_pos=int(x);
  59.                         line_pos=curpos[,rand_pos];
  60.                           wrd_loop=wd[line_pos,1];
  61.                         cur_ewd=wd[line_pos,3];
  62.                     end;
  63.         else do;
  64.                 wrd_loop=wd[curpos,1];
  65.                 cur_ewd=wd[curpos,3];
  66.         end;
  67.         edit wrd_list;
  68.         append from wrd_loop;
  69. end;
  70. end;
  71. quit;
  72. proc print data=wrd_list;
  73. run;
  74. %mend;
  75. /*使用SQL找到最长的不重复成语接龙方式*/
  76. %macro cy_long(beg_wd);
  77. proc sql;
  78. create table cy.wd_num as
  79. select f as fwd,count(f) as ewd_num
  80. from cy.test
  81. group by f
  82. order by calculated ewd_num
  83. ;
  84. quit;
  85. proc sql;
  86. create table cy.jl as
  87. select t.*,numb.ewd_num
  88. from cy.test as t
  89. left join cy.wd_num as numb
  90. on t.e=numb.fwd
  91. ;
  92. quit;
  93. data cy.jl;
  94. set cy.jl;
  95. if ewd_num=. then ewd_num=0;
  96. run;
  97. data wrd_list;
  98. do i=1 to 2;
  99. if i=1 then list='*********成语接龙列表*********';
  100. if i=2 then list="&beg_wd";
  101. output;
  102. end;
  103. drop i;
  104. run;
  105. proc sql noprint;
  106. select f,e into:fc,:ec
  107. from cy.jl
  108. where var1="&beg_wd"
  109. ;
  110. quit;
  111. options nonotes;
  112. proc sql noprint;
  113. select ewd_num into:wrd_check
  114. from cy.jl
  115. where var1="&beg_wd"
  116. ;
  117. quit;
  118. %if &wrd_check=0 %then %do;
  119. data wrd_list;
  120. do i=1 to 3;
  121. if i=1 then list='*********成语接龙列表*********';
  122. if i=2 then list="&beg_wd";
  123. if i=3 then list="完蛋接不下去了!Game over";
  124. output;
  125. end;
  126.         proc print data=wrd_list;
  127.         run;
  128.         %end;
  129. %else %do %until(&ewd_check=0);
  130. proc sql noprint;
  131. select var1,ewd_num into:wd_loop,:ewd
  132. from cy.jl
  133. where f="&ec"
  134. and ewd_num in (
  135. select max(ewd_num)
  136. from cy.jl
  137. where f="&ec"
  138. and var1 not in(
  139. select list
  140. from wrd_list))
  141. and var1 not in(
  142. select list
  143. from wrd_list);
  144. quit;
  145. %let ewd_check=&ewd;%put &ewd_check;
  146. data loop_wd;
  147. list="&wd_loop";
  148. run;
  149. proc append base=wrd_list data=loop_wd force;
  150. run;
  151. proc sql noprint;
  152. select e into:ec
  153. from cy.jl
  154. where var1="&wd_loop"
  155. ;
  156. quit;
  157. %end;
  158. options notes;
  159. proc print data=wrd_list;
  160. run;
  161. %mend cy_long;
  162. %macro cyjl(beg_wd,mode=随机);
  163. proc sql noprint;
  164. select count(var1) into:wrd_check
  165. from cy.test
  166. where var1="&beg_wd"
  167. ;
  168. quit;
  169. %if &wrd_check=0 %then %do;
  170.         data warnning;
  171.         Warning='亲,您输入的成语不在这个词库哦!玩不了诶~sorry';
  172.         run;
  173.         proc print data=warnning;
  174.         run;
  175.         %end;
  176. %else %do;
  177. %if &mode=随机 %then %do;
  178.         %cy(&beg_wd);
  179.         %end;
  180.         %else %if &mode=长龙 %then %do;
  181.         %cy_long(&beg_wd);
  182.         %end;
  183.         %else %do;
  184.         data warnning;
  185.         Warning='哎哟~亲~~,你的接龙模式选择有错哦!模式只能选择:随机,长龙';
  186.         run;
  187.         proc print data=warnning;
  188.         run;
  189.         %end;
  190. %end;
  191. %mend cyjl;

  192. %cyjl(各取所需,mode=长龙)
复制代码



已有 2 人评分论坛币 学术水平 热心指数 信用等级 收起 理由
Tigflanker + 5 + 3 + 3 + 3 赞!
milos_luna + 5 + 2 + 2 + 2 精彩帖子

总评分: 论坛币 + 10  学术水平 + 5  热心指数 + 5  信用等级 + 5   查看全部评分

stata SPSS
6皮皮9 发表于 2014-9-12 18:14:30 |显示全部楼层
自己先贴一个我刚才的接龙结果
1 *********成语接龙列表*********
2 胸有成竹
3 竹苞松茂
4 茂林修竹
5 竹篱茅舍
6 舍己芸人
7 人死留名
8 名震一时
9 时不我与
10 与世偃仰
11 仰不愧天
12 天涯若比邻
13 邻女窥墙
14 墙花路柳
15 柳眉剔竖
16 竖起脊梁
17 梁孟相敬
18 敬若神明
19 明婚正娶
20 完蛋接不下去了!Game over
回复

使用道具 举报

zhengbo8 发表于 2014-9-13 22:17:20 |显示全部楼层
有意思,就像上次算24点一样,SAS用处多啊!
回复

使用道具 举报

6皮皮9 发表于 2014-9-14 08:39:21 |显示全部楼层
zhengbo8 发表于 2014-9-13 22:17
有意思,就像上次算24点一样,SAS用处多啊!
像这个东西还是用VBA或者其他的变成软件写起来比较轻松。SAS还是做统计分析比较方便
回复

使用道具 举报

老师她摸我 发表于 2014-9-14 10:44:37 |显示全部楼层
有点像DFS

  1. data _null_;
  2.         if _n_=1 then do;
  3.                 if 0 then set cy.test;
  4.                 dcl hash h(dataset:'cy.test',multidata:'Y');
  5.                 h.definekey('f');
  6.                 h.definedata(all:'Y');
  7.                 h.definedone();
  8.         end;
  9.         set cy.test(where=(var1='胆大包天') rename=e=f keep=var1 e);
  10.         put var1=;
  11.         if h.find(key:f)=0 then put var1=;
  12.         do i=1 to 5;
  13.                 if h.find(key:e)=0 then do;
  14.                         rc=h.find_next();
  15.                         put var1=;
  16.                 end;
  17.         end;
  18. run;
复制代码

结果:
VAR1=胆大包天
VAR1=天保九如
VAR1=如坐针毡
VAR1=毡袜裹脚靴
VAR1=靴刀誓死
VAR1=死诸葛能走生仲达
VAR1=达人知命
回复

使用道具 举报

6皮皮9 发表于 2014-9-14 11:35:51 |显示全部楼层
老师她摸我 发表于 2014-9-14 10:44
有点像DFS
[titter看来你经常逛论坛啊·~~
回复

使用道具 举报

6皮皮9 发表于 2014-9-14 11:37:51 |显示全部楼层
接着我之前的程序,用SQL写了一个不重复的寻找最长接龙方式的宏,可以把两个宏嵌套起来玩哦!
%macro cy_long(beg_wd);
proc sql;
create table cy.wd_num as
select f as fwd,count(f) as ewd_num
from cy.test
group by f
order by calculated ewd_num
;
quit;
proc sql;
create table cy.jl as
select t.*,numb.ewd_num
from cy.test as t
left join cy.wd_num as numb
on t.e=numb.fwd
;
quit;
data cy.jl;
set cy.jl;
if ewd_num=. then ewd_num=0;
run;

data wrd_list;
list='*********成语接龙列表*********';
run;
proc sql noprint;
select f,e into:fc,:ec
from cy.jl
where var1="&beg_wd"
;
quit;
%do %until(&ewd_check=0);
proc sql noprint;
select var1,ewd_num into:wd_loop,:ewd
from cy.jl
where f="&ec"
and ewd_num in (
select max(ewd_num)
from cy.jl
where f="&ec"
and var1 not in(
select list
from wrd_list))
and var1 not in(
select list
from wrd_list);
quit;
%let ewd_check=&ewd;%put &ewd_check;
data loop_wd;
list="&wd_loop";
run;
proc append base=wrd_list data=loop_wd force;
run;
proc sql noprint;
select e into:ec
from cy.jl
where var1="&wd_loop"
;
quit;
%end;
%mend cy_long;
%cy_long(胸有成竹);
胸有成竹可以接出1329个成语
回复

使用道具 举报

teihohou 发表于 2014-9-14 12:09:32 |显示全部楼层
佩服,能拜师吗?
回复

使用道具 举报

6皮皮9 发表于 2014-9-14 12:22:43 |显示全部楼层
teihohou 发表于 2014-9-14 12:09
佩服,能拜师吗?
这个还是比较简单的,自己多看看书,用多了就有感觉了的~
回复

使用道具 举报

6皮皮9 发表于 2014-9-14 12:39:14 |显示全部楼层
长龙模式的“胸有成竹”:
*********成语接龙列表*********/胸有成竹/竹报平安/安常守分/分外明白/白日升天/天下第一/一是一/一
不压众百不随一/一鸣惊人/人无完人/人不犯我我不犯人/人众胜天/天下无难事只怕有心人/人命关天/天末
凉风/风高放火月黑杀人/人定胜天/天保九如/如闻其声如见其人/人才辈出/出有入无/无法无天/天无二日/
日月丽天/天平地成/成人不自在自在不成人/人一己百/百里挑一/一而再再而三/三星在天/天渊之别/别有洞
天/天壤之别/别有用心/心口如一/一柱擎天/天荒地老/老大无成/成败论人/人同此心/心口不一/一手遮天/
天凝地闭/闭门不出/出口伤人/人面兽心/心小志大/大快人心/心到神知/知其一/一手托天/天低吴楚/楚楚可
人/人存政举/举一反三/三十三天/天下一家/家有弊帚享之千金/金针度人/人死
留名/名落孙山/山高水长/长治久安/安富恤穷/穷山恶水/水落石出/出以公心/心安理得/得饶人处且饶人/人
急计生/生离死别/别具匠心/心猿意马/马耳东风/风急浪高/高傲自大/大得人心/心花怒放/放牛归马/马瘦
毛长/长绳系日/日月经天/天下为家/家有敝帚享之千金/金无足赤人无完人/人急智生/生财有道/道高益安/
安闲自得/得未曾有/有一得一/一人得道鸡犬升天/天公地道/道路以目/目中无人/人不聊生/生财之道/道尽
途穷/穷极思变/***百出/出幽升高/高节清风/风声鹤唳草木皆兵/兵戎相见/见物不见人/人以群分/分外眼
明/明月清风/风趣横生/生龙活虎/虎大伤人/人所共知/知小谋大/大天白日/日久
见人心/心粗气浮/浮一大白/白浪掀天/天有不测风云/云开见日/日进斗金/金鼓连天/天女散花/花前月下/下
里巴人/人人皆知/知人知面不知心/心荡神迷/迷人眼目/目无尊长/长夜难明/明明白白/白刀子进红刀子出/
出头之日/日久天长/长生不老/老弱残兵/兵藏武库马入华山/山锐则不高/高下在心/心醉魂迷/迷而知反/反
手可得/得意忘言/言行不一/一佛出世二佛升天/天下为公/公正廉明/明教不变/变危为安/安国宁家/家书抵
万金/金玉之言/言笑自如/如见其人/人不知/知无不言/言扬行举/举步生风/风云突变/变色之言/言归于好/
好梦不长/长年三老/老鼠过街人人喊打/打蛇打七寸/寸铁杀人/人才难得/得胜回
朝/朝秦暮楚/楚楚动人/人老珠黄/黄道吉日/日慎一日/日甚一日/日复一日/日试万言/言语道断/断决如流/
流年似水/水涨船高/高不成/成事在天/天成地平/平易近人/人欲横流/流水高山/山中宰相/相视而笑莫逆于
心/心急如火/火光烛天/天下太平/平步登天/天昏地暗/暗箭中人/人不可貌相/相惊伯有/有己无人/人人喊打
/打死老虎/虎啸风生/生老病死/死中求生/生荣死哀/哀莫大于心死/死里逃生/生不逢时/时不可失/失节事大
/大辩不言/言语妙天下/下笔千言/言犹在耳/耳后生风/风尘之变/变炫无穷/穷则思变/变幻无穷/穷源溯流/
流连忘反/反治其身/身体力行/行百里者半于九十/十年树木百年树人/人间天上/上不着天/天灾人祸/祸从口
出/出山泉水/水秀山明/明修栈道/道不同/同生死/死里求生/生死肉骨/骨腾肉飞/飞鸟依人/人中龙虎/虎口
余生/生死攸关/关门养虎虎大伤人/人中之龙/龙血玄黄/黄泉之下/下马看花/花
明柳暗/暗箭伤人/人尽其才/才疏志大/大器晚成/成算在心/心高气傲/傲不可长/长春不老/老罴当道/道高一
尺/尺有所短寸有所长/长目飞耳/耳边风/风樯阵马/马角乌白/白水鉴心/心谤腹非/非驴非马/马上功成/成
城断金/金玉良言/言听计从/从井救人/人之将死/死而复生/生寄死归/归马放牛/牛角书生/生死相依/依依惜
别/别开生面/面壁功深/深入浅出/出师无名/名士风流/流言惑众/众口铄金/金石之言/言行计从/从容自如/
如日中天/天理人情/情深潭水/水到渠成/成千上万/万事俱备只欠东风/风前月下/下笔成文/文如其人/人为
财死/死不瞑目/目别汇分/分文不名/名满天下/下气怡声/声势浩大/大功告成/成
千论万/万众一心/心平气和/和蔼近人/人云亦云/云泥之别/别具只眼/眼不见/见弃于人/人百其身/身无长物
/物阜民安/安如泰山/山阴道上/上雨旁风/风吹浪打/打凤捞龙/龙马精神/神通广大/大地回春/春风风人/
人多势众/众人拾柴火焰高/高飞远举/举一废百/百不随一/一飞冲天/天马行空/空穴来风/风吹雨打/打抱不
平/平治天下/下不着地/地久天长/长安道上/上下一心/心灰意冷/冷语冰人/人才出众/众擎易举/举不胜举/
举世闻名/名高天下/下无插针之地/地平天成/成千累万/万箭攒心/心灵手巧/巧语花言/言多必失/失不再来
/来日方长/长虑顾后/后继有人/人面桃花/花天酒地/地狱变相/相辅相成/成千成
万/万语千言/言三语四/四脚朝天/天朗气清/清夜扪心/心长发短/短衣匹马/马前泼水/水来伸手饭来张口/口
角生风/风行水上/上下其手/手眼通天/天南地北/北道主人/人心如面/面如冠玉/玉石不分/分风劈流/流水桃
花/花说柳说/说一是一/一步登天/天府之国/国泰民安/安贫守道/道山学海/海水群飞/飞蓬随风/风从虎/虎
口逃生/生花妙笔/笔下超生/生花之笔/笔头生花/花红柳绿/绿水青山/山南海北/北郭先生/生众食寡/寡闻少
见/见所未见/见鞍思马/马龙车水/水尽鹅飞/飞流短长/长生不死/死气沉沉/沉冤莫白/白发丹心/心长力短/
短绠汲深/深居简出/出师有名/名目繁多/多此一举/举世瞩目/目无全牛/牛刀割
鸡/鸡犬升天/天伦之乐/乐不可言/言之无文/文武之道/道殣相望/望穿秋水/水性杨花/花花绿绿/绿女红男/
男女有别/别具手眼/眼空四海/海底捞月/月下老人/人微权轻/轻而易举/举十知九/九九归一/一佛出世二佛

生天/天台路迷/迷而不反/反面无情/情急智生/生死之交/交淡若水/水炎不相容掷地有声/声色犬马/马入华
山/山水相连/连绵不断/断发文身/身外之物/物腐虫生/生吞活剥/剥肤之痛/痛不欲生/生生世世/世上无难事
只怕有心人/人微言轻/轻裘肥马/马放南山/山摇地动/动地惊天/天有不测风云
人有旦夕祸福/福寿齐天/天行时气/气焰熏天/天下无难事/事以密成/成一家言/言为心声/声色狗马/马马虎
虎/虎尾春冰/冰炭不言/言归正传/传之其人/人心向背/背城借一/一轨同风/风虎云龙/龙争虎斗/斗筲之人/
人山人海/海北天南/南郭先生/生死存亡/亡国之声/声泪俱下/下无立锥之地/地大物博/博采众长/长年累月
/月黑杀人/人亡家破/破绽百出/出死入生/生齿日繁/繁花似锦/锦心绣口/口角春风/风从虎云从龙/龙骧虎视
/视同路人/人之常情/情窦初开/开雾睹天/天下本无事/事倍功半/半死半生/生公说法/法不徇情/情天孽海/
海阔天空/空腹高心/心如刀割/割股之心/心浮气盛/盛气凌人/人非圣贤孰能无过/过化存神/神而明之存乎其
人/人财两空/空前绝后/后继无人/人去楼空/空谷传声/声闻过情/情深似海/海晏河清/清汤寡水/水过鸭背/
背惠食言/言出法随/随遇而安/安贫乐道/道听途说/说地谈天/天高听卑/卑不足道/道长论短/短吃少穿/穿井
得人/人有旦夕祸福/福地洞天/天各一方/方外之人/人之将死其言也善/善气迎人/人浮于事/事齐事楚/楚弓
复得/得失相半/半解一知/知人之明/明白了当/当耳边风/风卷残云/云雨巫山/山栖谷饮/饮泣吞声/声应气求
/求之不得/得失参半/半路出家/家贫亲老/老而不死/死不悔改/改俗迁风/风掣雷行/行百里者半九十/十传百
/百不失一/一路顺风/风清弊绝/绝世佳人/人己一视/视若路人/人取我与/与众不同/同盘而食/食不厌精/精
彩逼人/人仰马翻/翻手为云/云散风流/流水落花/花甲之年/年谊世好/好景不长/长往远引/引人注目/目食耳
视/视而不见/见钱眼开/开口见心/心中有数/数短论长/长久之计/计无所出/出奇无穷/穷源朔流/流星赶月/
月晕而风/风花雪月/月黑风高/高蹈远举/举世皆知/知其一不知其二/二者必居其一/一言既出/出奇不穷/穷
形尽相/相反相成/成败在此一举/举鼎拔山/山高水低/低首下心/心中无数/数白论黄/黄雀在后/后发制人/人
心不古/古貌古心/心神不宁/宁为鸡口/口不应心/心有灵犀一点通/通家之好/好
梦难成/成名成家/家亡国破/破门而出/出入将相/相亲相爱/爱如己出/出将入相/相持不下/下情上达/达官贵
人/人才济济/济世救人/人而无信/信口胡言/言之有物/物以群分/分斤掰两/两世为人/人迹罕至/至理名言/
言之无物/物极必反/反脸无情/情深义重/重见天日/日暮途穷/穷凶极恶/恶语伤人/人穷智短/短兵相接/接二
连三/三十年河东/东野巴人/人穷志短/短褐穿结/结结巴巴/巴山蜀水/水来伸手/手足之情/情至意尽/尽其所
长/长林丰草/草木皆兵/兵临城下/下学上达/达权通变/变化无穷/穷年累月/月夕花朝/朝野上下/下比有余/
余味无穷/穷困潦倒/倒背如流/流水无情/情同骨肉/肉跳心惊/惊天地泣鬼神/神
不知/知过必改/改头换面/面如满月/月夜花朝/朝闻夕死/死去活来/来去分明/明哲保身/身心交病/病魔缠身
/身后识方干/干云蔽日/日落西山/山寒水冷/冷热自明/明眸皓齿/齿颊挂人/人情世故/故作高深/深入人心/
心手相应/应天顺人/人而无信不知其可/可有可无/无所用心/心术不正/正大光明/明日黄花/花朝月夜/夜郎
自大/大禹治水/水中捞月/月圆花好/好好先生/生杀予夺/夺眶而出/出口入耳/耳
食之言/言笑自若/若要人不知/知遇之恩/恩怨分明/明争暗斗/斗南一人/人为刀俎我为鱼肉/肉山酒海/海立
云垂/垂手而得/得意门生/生拉硬扯/扯篷拉纤/纤介之祸/祸福相生/生米煮成熟饭/饭来张口/口出大言/言
不顺/顺天应人/人寿年丰/丰亨豫大/大敌当前/前无古人/人弃我取/取信于民/民以食为天/天低吴楚眼空无
物/物是人非/非池中物/物以稀为贵/贵在知心/心腹之交/交头接耳/耳聪目明/明
若观火/火上弄冰/冰雪聪明/明人不做暗事/事在人为/为小失大/大人虎变/变化不穷/穷愁潦倒/倒悬之急/急
不择言/言重九鼎/鼎足而三/三复斯言/言无不尽/尽人皆知/知难而进/进寸退尺/尺短寸长/长材茂学/学究天
人/人亡物在/在此一举/举国上下/下气怡色/色胆迷天/天生尤物/物离乡贵/贵壮贱老/老泪纵横/横眉怒目/
目不斜视/视丹如绿/绿叶成阴/阴凝坚冰/冰炭不言冷热自明/明辨是非/非亲非故/故剑情深/深恶痛绝/绝色
佳人/人头畜鸣/鸣金收兵/兵行诡道/道存目击/击鼓鸣金/金石良言/言而有信/信口雌黄/黄袍加身/身教重于
言教/教一识百/百不获一/一传十十传百/百不当一/一以当百/百年树人/人心齐
泰山移/移天易日/日薄西山/山穷水尽/尽力而为/为所欲为/为善最乐/乐山乐水/水火无情/情逾骨肉/肉眼愚
眉/眉睫之祸/祸为福先/先声夺人/人心齐/齐家治国/国富民安/安国富民/民不聊生/生死与共/共为唇齿/齿
牙为祸/祸不单行/行云流水/水至清则无鱼/鱼大水小/小鸟依人/人为财死鸟为食亡/亡羊得牛/牛鼎烹鸡/鸡
飞蛋打/打马虎眼/眼馋肚饱/饱食终日/日久月深/深藏若虚/虚骄恃气/气象万千/
千里不同风/风土人情/情不自禁/禁攻寝兵/兵多者败/败俗伤风/风俗人情/情投意合/合二为一/一体同心/心
照神交/交浅言深/深恶痛疾/疾足先得/得寸则寸/寸地尺天/天摇地动/动魄惊心/心旌摇摇/摇身一变/变化如
神/神乎其神/神州陆沉/沉默寡言/言而无信/信手拈来/来历不明/明镜高悬/悬河泻水/水清无鱼/鱼跃鸢飞/
飞短流长/长驱直进/进思尽忠退思补过/过路财神/神头鬼面/面红耳赤/赤子之心/心无二用/用兵如神/神出
鬼没/没法没天/天长地久/久惯牢成/成败得失/失魂丧胆/胆大包天/天长日久/久闻大名/名扬四海/海外奇谈
/谈笑自如/如坐春风/风雨不改/改步改玉/玉堂金马/马如游龙/龙蛇飞动/动荡不安/安眉带眼/眼观四处耳听
八方/方以类聚物以群分/分甘共苦/苦雨凄风/风流罪过/过眼烟云/云合景从/从谏如流/流年不利/利欲熏心
/心回意转/转危为安/安身之地/地下修文/文以载道/道义之交/交臂历指/指天誓日/日久岁深/深情厚意/意
味深长/长驱直入/入井望天/天翻地覆/覆地翻天/天下独步/步步登高/高山流水/水色山光/光明正大/大贤虎
变/变动不居/居停主人/人琴俱亡/亡魂丧胆/胆大心小/小小不言/言而不信/信及豚鱼/鱼馁肉败/败化伤风/
风风火火/火海刀山/山鸣谷应/应付自如/如鱼似水/水陆毕陈/陈陈相因/因小失大/大方之家/家道中落/落花
无言/言必信/信口开河/河目海口/口不择言/言简意少/少年老成/成年累月/月下花前/前所未有/有口无心/
心坚石穿/穿壁引光/光可鉴人/人心大快/快意当前/前古未有/有志不在年高/高头大马/马上看花/花遮柳隐
/隐忍不言/言必有中/中河失舟一壶千金/金口玉言/言外之意/意气相得/得尺得寸/寸有所长/长驱深入/入不
敷出/出圣入神/神魂颠倒/倒三颠四/四海承风/风高放火/火树琪花/花言巧语/语不惊人/人心惟危/危言危行
/行不更名/名不虚传/传闻不如亲见/见机而行/行不胜衣/衣来伸手饭来张口/口中雌黄/黄发儿齿/齿白唇红
/红刀子出/出鬼入神/神不守舍/舍己芸人/人人自危/危言耸听/听其自流/流芳千古/古往今来/来者不善善者
不来/来者不善/善善从长/长吁短气/气涌如山/山崩钟应/应付裕如/如鱼得水/水火之中/中冓之言/言不尽意
/意气风发/发扬光大/大好河山/山长水远/远走高飞/飞遁鸣高/高车驷马/马上墙头/头破血流/流芳百世/世
道人心/心急如焚/焚琴煮鹤/鹤唳风声/声气相求/求大同/同气连枝/枝节横生/生气勃勃/勃然大怒/怒气冲天
/天愁地惨/惨雨酸风/风流韵事/事出有因/因噎废食/食指大动/动心骇目/目不邪视/视死如归/归全反真/真
相大白/白首之心/心如火焚/焚香礼拜/拜鬼求神/神色自若/若有所失/失时落势/势焰熏天/天与人归/归师勿
掩/掩人耳目/目使颐令/令人瞩目/目击耳闻/闻一知十/十指连心/心如古井/井蛙之见/见义勇为/为渊驱鱼/
鱼贯雁行/行家里手/手下留情/情见势屈/屈高就下/下车作威/威信扫地/地覆天
翻/翻江倒海/海水难量/量入为出/出浅入深/深更半夜/夜以继日/日久年深/深信不疑/疑行无成/成家立计/
计将安出/出生入死/死眉瞪眼/眼观四路耳听八方/方寸万重/重睹天日/日往月来/来鸿去燕/燕巢幕上/上无

片瓦下无插针之地/地利人和/和盘托出/出入生死/死无葬身之地/地崩山摧/摧兰折玉/玉质金相/相门有相/
相煎何急/急于求成/成人之善/善善恶恶/恶向胆边生/生机勃勃/勃然变色/色授魂与/与世隔绝/绝代佳人/人
无远虑必有近忧/忧患余生/生关死劫/劫后余生/生栋覆屋/屋乌之爱/爱憎分明/明目张胆/胆裂魂飞/飞霜六
月/月落星沉/沉密寡言/言之无文行而不远/远来和尚好看经/经纬天下/下马威/威武不屈/屈指可数/数黑论
黄/黄河水清/清尘浊水/水泄不通/通权达变/变俗易教/教学相长/长话短说/说来
话长/长生久视/视如寇仇/仇人相见分外明白/白虹贯日/日月交食/食宿相兼/兼听则明/明珠暗投/投其所好
/好谋善断/断手续玉/玉碎珠沉/沉静寡言/言近旨远/远水不救近火/火树银花/花香鸟语/语重心长/长戟高
门/门户之见/见其一未见其二/二八佳人/人生如梦/梦笔生花/花花太岁/岁不我与/与世沉浮/浮云蔽日/日旰
忘餐/餐风宿水/水米无交/交相辉映/映月读书/书不尽言/言传身教/教妇初来/来日大难/难于上天/天命有归
/归心似箭/箭在弦上/上不着天下不着地/地上天官/官卑职小/小康之家/家徒壁立/立人达人/人言可畏/畏葸
不前/前怕狼后怕虎/虎步龙行/行若无事/事预则立/立马万言/言不及义/义薄云天/天无绝人之路/路遥知马
力日久见人心/心慌意乱/乱箭攒心/心烦意乱/乱琼碎玉/玉尺量才/才子佳人/人不犯我/我不犯人/人心所向
/向隅而泣/泣数行下/下笔千言离题万里/里丑捧心/心直口快/快人快事/事不师古/古是今非/非同小可/可想
而知/知足常乐/乐极悲生/生生不息/息事宁人/人心归向/向壁虚造/造谣惑众/众所周知/知易行难/难于上青
天/天不作美/美女簪花/花样翻新/新亭对泣/泣鬼神/神圣工巧/巧立名目/目睹
耳闻/闻名不如见面/面墙而立/立身扬名/名下无虚/虚应故事/事不宜迟/迟疑不断/断织劝学/学富才高/高卧
东山/山栖谷隐/隐姓埋名/名正言顺/顺美匡恶/恶居下流/流言蜚语/语妙天下/下车之始/始终如一/一身五心
/心之官则思/思前想后/后患无穷/穷当益坚/坚甲利兵/兵马未动粮草先行/行尸走肉/肉眼惠眉/眉目传情/情
见力屈/屈打成招/招兵买马/马面牛头/头上末下/下车伊始/始于足下/下笔成章/章台杨柳/柳絮才高/高高在
上/上无片瓦下无立锥之地/地动山摇/摇笔即来/来情去意/意在笔先/先发制人/人各有志/志士仁人/人生何
处不相逢/逢君之恶/恶湿居下/下马冯妇/妇孺皆知/知无不言言无不尽/尽忠报国/国无宁日/日就月将/将心
比心/心乱如麻/麻雀虽小/小己得失/失张冒势/势倾天下/下乔木入幽谷/谷马砺兵/兵贵先声/声色货利/利用
厚生/生而知之/之死靡它
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 我要注册

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2019-3-22 19:52