Latest comments posted by takano32

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 ] ]

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

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

与えられた自然数 n について、横向きで n 段のピラミッドを作ってください。たとえば、 n に 4 が与えられた場合は以下のようなピラミッドを作ります。

4
*
**
***
****
***
**
*

与える自然数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

余力のあるものはこのプログラムを短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、チケットは現在も発売中のほか、当日券もございます。よろしければ、メインイベントの方にもぜひご参加ください。

1	n=gets.to_i2;n.times{\|i\|puts""*(i<n/2 ?i:n-i)}

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

与えられたバイト数を読みやすくしてください。読みやすくとは、いわゆる human readable な表記とします（詳しくはサンプルのコードを参考にしてください）。

与えるバイト数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

余力のあるものはこのプログラムを短くしてください。

※ LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

b = gets.to_i
if b < 10**3
    puts b
elsif b < 10**6
    puts "%.1fk" % (b.to_f/10**3)
elsif b < 10**9
    puts "%.1fM" % (b.to_f/10**6)
elsif b < 10**12
    puts "%.1fG" % (b.to_f/10**9)
else
    puts "%.1fT" % (b.to_f/10**12)
end

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

与えられた10進数の整数を2進数に変換してください。ただし、与えられる整数は0以上とします。

与える整数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

余力のあるものはこのプログラムを短くしてみたり、さまざまな基数への変換に対応させてみてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

1 2	# 標準入力から整数を受け取る ruby -e 'puts gets.to_i.to_s(2)'

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

> また、与えられる自然数には0以外の桁が2回以上登場してはいけません。

という条件付です～。

takano32's comment on echoクライアント

echoクライアント (Nested Flatten)

クライアント機能に限定したnetcatコマンドを作りなさい、ということかしら？

takano32's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

与えられた自然数までの数え上げを行います。ただし、繰り上がりが起こったときは最上位の桁のみを数え上げます。また、与えられる自然数には0以外の桁が2回以上登場してはいけません。たとえば、300を入力として与えられた場合は以下のような出力となります。

与える自然数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

#!/usr/bin/env ruby
def f(n, m = 0)
    puts m    
    n == m ? return : f(n, m + 10 ** (m.to_s.size - 1) )
end
f(300)

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 3 - 13日の金曜日を数え上げる

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

ぎゃー、すみません。 2013年の間違いです。修正させていただきました。

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

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

GNU GENERAL PUBLIC LICENSE Version 3に登場する単語について、単語が登場する行を示した索引を作成してください。

与えられる文章についてはリテラルで表記する、標準入力で与えられる、引数でファイル名が与えられるなどは自由とします。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

#!/usr/bin/env ruby
require 'open-uri'
lines = open('http://www.gnu.org/licenses/gpl.txt').readlines
dic = {}
lines.each_with_index do |line, index|
    line.scan(/\w+/).each do |word|
        dic[word] = dic[word] ? dic[word] << index + 1 : [index + 1]
    end
end
p dic

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 3 - 13日の金曜日を数え上げる

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

今日から2013年12月31日までの、13日の金曜日とその総数を表示してください。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

#!/usr/bin/env ruby
require 'date'

from = DateTime.now
to = DateTime.parse("2013-12-31")

friday = (from..to).inject(0) do |friday, date|
    if date.mday == 13 and date.wday == 5 then
        puts date.strftime('%Y-%m-%d')
        friday + 1
    else
        friday
    end
end

puts friday

[ Ruby ] [ download code ] ]

takano32's comment on lessの実装

lessの実装 (Nested Flatten)

環境に依存するかもしれませんが、書いてみました。
Gentoo Linuxで動作確認してます。
% ruby -v
ruby 1.8.6 (2008-06-20 patchlevel 230) [i686-linux]

less準拠でjk/qが使えます。

#!/usr/bin/env ruby

require 'curses'

lines = ARGF.readlines
index = 0
LINES = 10
Curses::init_screen


def update(index, lines)
    (index..index+LINES).each do |l|
        Curses::stdscr.setpos(l - index, 0)
        Curses::addstr lines[l]
    end
end

def search(index, lines)
    word = ''
    while (ch = Curses::getch) != 0x0A do
        word += ch.chr
    end
    (index..(lines.size)).each do |l|
        if lines[l].match(word) then
            return l
        end
    end
    return nil
end


update(index, lines)

while ch = Curses::getch do
    case ch
    when ?j
        index += 1 if index < lines.length - LINES
    when ?k
        index -= 1 if 0 < index
    when ?/
        index = search(index, lines) || index
    when ?q
        break
    end
    update(index, lines)
end

[ Ruby ] [ download code ] ]

takano32's comment on コメントの削除

コメントの削除 (Nested Flatten)

Rubyの記述がなかったので、書いてみました。 # と =begin, =end しか処理していません。 # これでいいんだっけ・・・？

#!/usr/bin/env ruby

block = false
ARGF.read.each do |line|
        if(block && (line =~ /=end/)) then
                block = false
                next
        end 
        if(block || block = (line =~ /=begin/)) then
                next
        end 
        puts line.gsub(/(.*)#(.*)/, '\1')
end

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

ご指摘、ありがとうございまっす。修正させていただきました〜。

takano32's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

うおっ。お恥ずかしい限り・・・ちょっと直しておきます。orz

何はともあれ、短いコードありがとうございます！

takano32's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

文字列に含まれる単語について、それぞれの単語の最初の文字を大文字にしてください。

たとえば、"LL future" と与えられたときは "LL Future" と出力する。"LL day and night" と与えられたときは "LL Day And Night" と出力する。

与えられる文字列はリテラルで表記する、標準入力で与えられる、引数で与えられるなどは自由とします。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

1	ruby -e "p 'LL day and night'.scan(/(\w)(\w*)/).map{\|a\|a.shift.upcase + a.to_s}.join(' ')"

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

この仕組みは面白いですね :-)

Rubyでも書いてみました。

1	ruby -ropen-uri -e'eval open("http://ja.doukaku.org/comment/6891/download").read'

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

こそこそ・・・

1
2
3

#! /usr/bin/env ruby
require 'open-uri'
puts *open('http://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2008/info/xgihyo')

[ Ruby ] [ download code ] ]

takano32's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

おおう！あれ？でも、tinyurlを二回使おうとすると変なことに。

と思いつつ、http's':// の https://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2 008/info/xgihyo を圧縮した http://tinyurl.com/6hyq2m でアクセスしてみたら・・・キター（笑

takano32's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

TinyURL APIとな！？

1	ruby -ropen-uri -e "puts open('http://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2008/info/xgihyo').read"

[ Ruby ] [ download code ] ]