#coding: UTF-8
require 'iconv'  
words_array = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|   #成语游戏的备选字库
words = words_array.map {|x|  Iconv.conv 'gbk', 'utf-8', x} #utf-8转gbk
idioms = words.permutation(4).to_a #每4个字分组
idioms.each {|x|  puts x.join}  #分组合并，就是四字成语

#coding: UTF-8
require 'iconv'
s1 = Iconv.conv 'gbk','utf-8',"【" #烦人的转码
s2 = Iconv.conv 'gbk','utf-8',"】"
File.open('成语.txt','w') do |wfile|
  File.open('成语词典.txt','r') do |rfile|
    rfile.each do |line|
      line =~ /#{s1}(.*)#{s2}/
      wfile << $1 << "\n"  #没有\n就会连一起了
    end
  end
end

#coding: UTF-8
require 'iconv'  
words = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|

idioms_array = Array.new
idioms_regexp  = Array.new

File.open('成语.txt','r') do |file|
  file.each do |line|
    idioms_array << line.chomp   #把成语词典折腾出来，作为array数组     
  end
end

words_g = words.map {|x| Iconv.conv 'gbk', 'utf-8',x}.uniq #转码，另外把重复的字去除，后面用不到

words_g.each {|word|
  idioms_array.map {|x| idioms_regexp << x if x =~ /^#{word}/} #循环，从成语词典中匹配第一个字相同的记录
  idioms_regexp.map  {|idiom|
    idioms_regexp = []   #这里坑了我很久，一直有重复的，后来发现因为里面有数据，清空就好了
    puts idiom if words_g.include?(idiom[1]) && words_g.include?(idiom[2]) && words_g.include?(idiom[3]) #检查成语的第2、3、4个字，是否在词库中，都在那就ok了
  }
}

#coding: UTF-8
require 'iconv'
require 'benchmark'

words = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|

idioms_array = Array.new

File.open('成语.txt','r') do |file|
  file.each do |line|
    idioms_array << line.chomp   #把成语词典折腾出来，作为array数组     
  end
end

words_g = words.map {|x| Iconv.conv 'gbk', 'utf-8',x}.uniq #转码，另外把重复的字去除，后面用不到

Benchmark.bm do |bm|
    bm.report {
    words_g.each do |word|
      idioms_array.map do |idiom|
        puts idiom if idiom =~ /^#{word}/ and words_g.include?(idiom[1]) and words_g.include?(idiom[2]) and words_g.include?(idiom[3])   
      end
    end
  }
end

#coding: UTF-8
require 'iconv'
require 'benchmark'

words = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|
idioms_array = Array.new

File.open('成语u.txt','r') do |file|
  file.each do |line|
    idioms_array << line.chomp   #把成语词典折腾出来，作为array数组
  end
end

Benchmark.bm do |bm|
  bm.report {
    words.uniq.each do |word|
      idioms_array.map do |idiom|
        puts idiom if idiom =~ /^#{word}/ and words.include?(idiom[1]) and words.include?(idiom[2]) and words.include?(idiom[3])
      end
    end
  }
end

#coding: UTF-8
require 'iconv'
require 'benchmark'

words = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|

words_g = words.map {|x| Iconv.conv 'gbk', 'utf-8',x}.uniq #转码，另外把重复的字去除，后面用不到

Benchmark.bm do |bm|
  bm.report {
    File.open('成语.txt','r') do |file|
      file.each do |line|
        puts line if words_g.include?(line[0]) and words_g.include?(line[1]) and words_g.include?(line[2]) and words_g.include?(line[3])
      end
    end
  }
end

#coding: UTF-8
require 'benchmark'

words = %w|无 黑 用 如 小 比 伦 材 脚 纸 四 表 两 得 一 字 天 大 朝 白 与 举 一 里|

Benchmark.bm do |bm|
  bm.report {
    File.open('成语u.txt','r') do |file|
      file.each do |line|
        puts line if words.include?(line[0]) and words.include?(line[1]) and words.include?(line[2]) and words.include?(line[3])
      end
    end
  }
end