Latest comments for language 'Ruby' on doukaku.org

匿名's comment on 漢数字で九九の表

Rubyっぽいかしらん？ shiftjisでやりました。

$KCODE='s'
require 'jcode'

#漢数字の配列
kan = "○一二三四五六七八九".split(//)

#九九を左見だし（縦見だし？）付で入れる配列の配列を用意
result = []
for i in kan
  result << [i,[]]
end

#漢数字をArray#indexで九九して漢数字に戻して配列の配列に入れる。
for i in kan
  for j in kan
    result.assoc(i).last << (kan.index(i) * kan.index(j)).to_s.split(//).map{|x|kan[x.to_i]}.join("")
  end
end


#resultのはじめは"○"なのでshift
result.shift

#配列のはじめは"○"なのでshift
for i in result
  i.last.shift
end

#フォーマット（最後の全角スペースはsubで削除）
format = ("%#{kan.first.size + kan.first.size}s　" * kan.size).sub(/　$/,"")

#見出しの出力。はじめの"○"は"　"に変換。
puts (format % kan).sub("○","　")

#九九の出力
for i in result
  puts format % i.flatten
end

[ Ruby ] [ download code ] ]

mamamoto's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

俺なりのRubyっぽく、かつ各操作の直交性を意識して書いてみました。

str = "ID\tSurname\tForename\tAge
1\tSato\tHanako\t17
0\tSuzuki\tTaro\t18"

#取り込み
data = str.split(/\n/).map{|line| line.split("\t")}

#第2カラムと第3カラムをヘッダを含めて入れ替える。
data.each{|record| t = record[1]; record[1] = record[2]; record[2] = t}

head = data.shift

#第1カラムの値でデータを昇順にソートする。
data = data.sort_by{|record| record[0]}

#第4カラムの値にそれぞれ1を加える。
data.each{|record| record[3].succ!}

#表示
([head]+data).each{|record| puts record.join("\t")}

[ Ruby ] [ download code ] ]

匿名's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

どうですかね。Rubyっぽいですか？

lst = []

#全部リスト(lst)に取り込んで
while gets
  lst << chomp.split("\t")
end

#Array#mapで第２カラムと第３カラムを入れ替えて
lst.map!{|x|x[0], x[1], x[2], x[3] = 
            x[0], x[2], x[1], x[3]}

#見出しを出力して
puts lst.shift.join("\t")

#IDを数値にして、Ageに一つ加えて、IDで並び替えて出力
for i in lst.map{|x|[x[0].to_i, x[1], x[2], x[3].next]}.sort
  puts i.join("\t")
end

__END__
ID    Surname    Forename    Age
1    Sato    Hanako    17
0    Suzuki    Taro    18

[ Ruby ] [ download code ] ]

mamamoto's comment on 島の数をカウントする

島の数をカウントする (Nested Flatten)

あんまりRubyである必要のないコードですが。

#!ruby -Ku

def fill(sima, x, y, color)
  return if x < 0 || y < 0 ||
    !sima[x] || !sima[x][y] ||
    sima[x][y] != color

  sima[x][y] = nil
  fill(sima, x+1, y, color)
  fill(sima, x-1, y, color)
  fill(sima, x, y+1, color)
  fill(sima, x, y-1, color)
end

def next_point(sima)
  sima.size.times{|y|
    sima[0].size.times{|x|
      return [x,y] if sima[x][y]
    }
  }
  nil
end

def sima_scan(str)
  sima = str.split(/\n/).map{|line| line.split(//)}
  result = Hash.new{0}

  while np = next_point(sima)
    x,y = *np
    result[sima[x][y]] += 1
    fill(sima, x, y, sima[x][y])
  end

  result
end

a = "□■■□
□□■□
□■□□
□■■□"

b = "□□□□
■□■□
□■□□
□□□□"

p sima_scan(a)
p sima_scan(b)

[ Ruby ] [ download code ] ]

sawat's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

Thread.passを使って、一度に全部出力されてしまうのを避けてます。

t1= Thread.new {
  1.upto(10) { |i| print i; Thread.pass}
}
t2 = Thread.new {
  'a'.upto('j') { |c| print c; Thread.pass}
}
t1.join
t2.join

[ Ruby ] [ download code ] ]

mamamoto's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

Thread.passでスレッドを明示的にスイッチさせます。

これで手元では動いたけどスレッドというものの特性上、実行環境に依存しそう。

[1..10, 'a'..'j'].map{|range|
  Thread.start{
    range.each{|e|
      p e
      Thread.pass
    }
  }
}.each{|thread|
  thread.join
}

[ Ruby ] [ download code ] ]

seri's comment on '('と')'の対応

'('と')'の対応 (Nested Flatten)

標準入力から入力し、対応がとれていればtrue, 
とれていなければfalseを表示します。

(()) #=> true
((()) #=> false
((1 + 2) * 3 - 4) / 5 #=> true

result = true
buff = []
arr = gets.split //
arr.each { |c|
  buff << c if c == 40.chr
  result = false if c == 41.chr && buff.pop != 40.chr
}
puts buff.size == 0 ? result : false

[ Ruby ] [ download code ] ]

seri's comment on π

π (Nested Flatten)

「ビュフォンの針」は初めて知りました。
というわけで実装。

class Needle
  LENGTH = 5
  RAND_MAX = 10000
  attr_reader :x1, :x2

  def initialize()
    @x1 = rand(RAND_MAX) + rand
    @x2 = LENGTH * Math.cos(rand * 2 * Math::PI) + @x1
  end

end

n = 10000
crossed = 0
n.times {
  needle = Needle.new()
  k1 = (needle.x1 / (2 * Needle::LENGTH)).to_i
  k2 = (needle.x2 / (2 * Needle::LENGTH)).to_i
  crossed += 1 if k1 != k2
}

pi = n.to_f / crossed.to_f
puts "pi = #{pi}"

[ Ruby ] [ download code ] ]

wtnabe's comment on 漢数字で九九の表

漢数字で九九の表 (Nested Flatten)

全然面白みはないですが Ruby 1.8 で書いてみました。いちばん苦労したのは表示の際の桁数合わせです。このご時世になぁと思いながら jcode を利用してしまいました。

#! /usr/bin/env ruby

$KCODE='u'
require 'jcode'

def num_chars
  return %w(〇 一 二 三 四 五 六 七 八 九)
end

def main
  ichi_kara_kyuu.each { |i|
    dan = ''
    ichi_kara_kyuu.each { |j|
      kotae = kanji( i * j )
      dan += " " + (( kotae.jsize < int( '二' ) ) ? "　" + kotae : kotae)
    }
    puts dan
  }
end

def ichi_kara_kyuu
  return (int( '一' )..int( '九' ))
end

def int( kanji )
  return num_chars.index( kanji )
end

def kanji( num )
  kanji = ''

  num.to_s.split('').each { |digit|
    kanji += num_chars[digit.to_i]
  }

  return kanji
end

main()

[ Ruby ] [ download code ] ]

匿名's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

2,3,5以外の素数の組合せ(3,7,11)にも対応。

def hamming(n ,a = [1 ,2 ,3 ,5])
  r = []
  h = {}
  a.each{|x|h[x] = true}
  1.upto(n){
    r << cnt = h.keys.sort[0]
    a.each{|x|h[x * cnt] = true}
    h.delete(cnt)
  }
  r
end

p "n = "
p hamming(gets.chomp.to_i)

[ Ruby ] [ download code ] ]

saws's comment on 比較しないソートの作成

比較しないソートの作成 (Nested Flatten)

こんなのでもいいのかな. マッチしたオブジェクトを格納するようなメソッドってなかったっけ.

def main(min, max, num, ary)
  [*min..max].map{|i| ary.select{|j| i == j}}.flatten
end
min, max, num = 1, 10, 10
p ary = num.times.map{(rand*(max-min)).round+min}
p main(min, max, num, ary)

[ Ruby ] [ download code ] ]

匿名's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

最近Rubyを始めました。どうでしょうか？

lines = ARGF.readlines

csvs = lines.map {|line| line.split("\t")}
head = csvs.shift
print [head[0], head[2], head[1], head[3]].join("\t")

csvs.sort {|csv1, csv2| csv1[0] <=> csv2[0] }.each do |csv|
  puts [csv[0], csv[2], csv[1], csv[3].to_i + 1].join("\t")
end

[ Ruby ] [ download code ] ]

fkmn's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

なぜか、ここまで Ruby が無かったので投稿。

こういうデータを扱うための、CSV というそのものズバリのクラスがあります。

データは標準入力から読み込み。

# もう少しすっきりと書けそう。

require 'csv'

rows = CSV.parse(STDIN.read, "\t")
rows[1], rows[2] = rows[2], rows[1]
result = []
result << rows.shift
rows.sort_by{ |r| r[0] }.
  inject(result) { |a, b| b[3] = b[3].to_i + 1; a << b }.
  each { |r| puts r.join("\t") }

[ Ruby ] [ download code ] ]

tsuwabuki's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

無限リストのつもりです。

class Hamming < Array
  def hamming(&p)
    x = 1
    loop {
      p.call x if 30**x%x == 0
      x += 1
    }
  end
end

p Enumerable::Enumerator.new(Hamming.new, :hamming).take(100)

[ Ruby ] [ download code ] ]

lunlumo's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

　#7652を参考に書いてみました。

class HummingNumbers
    def self.get(c)
        (30**c % c == 0) ? c : get(c+1)
    end
    def self.take(n,c=1)
        (n==0) ? [] : ((c = get(c)) && take(n-1,c+1).unshift(c))
    end
end

puts HummingNumbers.take(ARGV.length == 1 ? ARGV[0].to_i : 100).join("\n")

[ Ruby ] [ download code ] ]

lunlumo's comment on 起動オプションの解析

起動オプションの解析 (Nested Flatten)

　OptionParserを使って書いてみました。

require "optparse"

conf = Hash.new
opts = OptionParser.new
opts.on("-o","--output","set output") { |v| conf[:o] = v }
opts.on("-q","--quote","set quote") { |v| conf[:q] = v }
opts.on("-d DEBUG","--debug=DEBUG",["0","1","2"],"set debug level") { |v| conf[:d] = v }

begin
    opts.parse!
    if ARGV.size == 0 || !conf.key?(:o)
        raise OptionParser::InvalidArgument.new
    else
        puts "[オプション情報]"
        puts "o(output):\t#{conf[:o] ? "ON" : "OFF"}"
        puts "q(quote):\t#{(conf[:q] || false) ? "ON" : "OFF"}"
        puts "d(debug):\t#{conf[:d] || 0}"
        puts ""
        puts "[パラメータ情報]"
        puts "指定数:\t#{ARGV.size}"
        ARGV.zip((1..ARGV.size).to_a) do |a,i|
            puts "#{i}:\t#{a}"
        end
    end
rescue OptionParser::InvalidArgument => ex
    puts opts.help
rescue => ex
    puts ex.message
end

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

同じようなアルゴリズムをRubyで書いてみましたが、イマイチ・・・to_i, to_i, to_s, to_i ...

1
2
3

(('1' * gets.to_i).to_i ** 2).to_s.scan(/./) do |i|
    puts "#{'*' * i.to_i}\n"
end

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 9 - トラックバックを打つ

LL Golf Hole 9 - トラックバックを打つ (Nested Flatten)

LL Golf Hole 9のリリースをアナウンスしているエントリにトラックバックを打ってください(トラックバックURL)。マシンガンのようには打たないでください。ただし、このエントリにはスパムフィルタが搭載されているため、寄せることはできてもカップインできないかもしれません。その場合はtakano32が用意させていただきました打ちっ放し場にてガンガン試し打ちください(トラックバックURL)。

余力のあるものは感想を公式ブログの感想エントリにトラックバックくしてください。余力がなくても感想をトラックバックしてくれるとスタッフがよろこびます。

#!/usr/bin/env ruby
require 'net/http'
require 'uri'
uri = URI.parse('http://ll.jus.or.jp/2008/blog/archives/38/trackback')
Net::HTTP.start(uri.host) do |http|
    ping = "title=LL+Futureに行ってきた！&" +
        "excerpt=参加者としてもLL+Futureおもしろかったよ！¥n" +
        "でも、司会ぐだぐだですみません。次から頑張ります！&" +
        "url=http://ja.doukaku.org/207/&" +
        "blog_name=LL+Golf+Hole+9"
    response, = http.post(uri.path, ping)
    puts response.body
end

[ Ruby ] [ download code ] ]

seri's comment on 文字列型日時ののN秒後時間取得

文字列型日時ののN秒後時間取得 (Nested Flatten)

3.の条件を無視すればこれでもOKです。
（Time.parseはさまざまな書式を受け付けるため）

def date_ex(diff, date = Time.now.to_s)
  puts Time.parse(date) + diff
end

require 'time'

def date_ex(diff, date = Time.now.strftime("%Y/%m/%d %H:%M:%S"))
  raise unless date =~ /\d+\/\d+\/\d+\s+\d+:\d+:\d+/
  puts (Time.parse(date) + diff).strftime("%Y/%m/%d %H:%M:%S")
end

date_ex(100, '2008/09/01 14:06:25') #=> 2008/09/01 14:08:05
date_ex(100) #=> 「現在時刻」から100秒後

[ Ruby ] [ download code ] ]

ujihisa's comment on LL Golf Hole 4 - 文章から単語の索引を作る

LL Golf Hole 4 - 文章から単語の索引を作る (Nested Flatten)

オリジナルのものをちょっといじっただけ

require'open-uri'
d=Hash.new{[]}
open('http://www.gnu.org/licenses/gpl.txt').readlines.each_with_index{|l,i|
  l.scan(/\w+/){|w|
    d[w]+=[i+1]
  }
}
p d

[ Ruby ] [ download code ] ]