Monthly Archives: 2月 2012

たらいのテストtak

竹内郁雄先生のたらい回し関数というと、こういうのです。

[crayon lang=”scheme” title=”takm.scm”]
(defun tak (x y z) ; 日本語コメントのテスト
(if (<= x y) ; 引数を3つ取り、自分自身を再帰的に z ; 呼び出すのがtakと呼ばれる (tak (tak (1- x) y z) ; この関数です。 (tak (1- y) z x) ; 何度も何度も再帰的に (tak (1- z) x y)))) ; たらい回ししますが必ず終了します [/crayon] ところが、これはマッカーシーが間違えて覚えて広めてしまったものだそうで、竹内郁雄先生のオリジナルは [crayon lang="scheme" title="tak.scm"] (defun tak (x y z) ; 日本語コメントのテスト (if (<= x y) ; 引数を3つ取り、自分自身を再帰的に y ; 呼び出すのがtakと呼ばれる (tak (tak (1- x) y z) ; この関数です。 (tak (1- y) z x) ; 何度も何度も再帰的に (tak (1- z) x y)))) ; たらい回ししますが必ず終了します [/crayon] こちらだそうです。 最初のifが真のときに返す値が違います。


Color Syntax Highlighter

コードを引用するテスト。
おそらくコード書くことはないですけど。

Redmine 1.2.0 + Mongrel 1.1.5の不具合対応
(https://gist.github.com/1024894)

[crayon lang=”ruby” title=”mongrel.rb”]
if [‘2.3.8’, ‘2.3.9’, ‘2.3.10’, ‘2.3.11’].include?(Rails.version) && Gem.available?(‘mongrel’, Gem::Requirement.new(‘~>1.1.5’)) && self.class.const_defined?(:Mongrel)

# Pulled right from latest rack. Old looked like this in 1.1.0 version.
#
# def [](k)
# super(@names[k] ||= @names[k.downcase])
# end
#
module Rack
module Utils
class HeaderHash < Hash def [](k) super(@names[k]) if @names[k] super(@names[k.downcase]) end end end end # Code pulled from the ticket above. # class Mongrel::CGIWrapper def header_with_rails_fix(options = 'text/html') @head['cookie'] = options.delete('cookie').flatten.map { |v| v.sub(/^\n/,'') } if options.class != String and options['cookie'] header_without_rails_fix(options) end alias_method_chain :header, :rails_fix end # Pulled right from 2.3.8 ActionPack. Simple diff was # # if headers.include?('Set-Cookie') # headers['cookie'] = headers.delete('Set-Cookie').split("\n") # end # # to # # if headers['Set-Cookie'] # headers['cookie'] = headers.delete('Set-Cookie').split("\n") # end # module ActionController class CGIHandler def self.dispatch_cgi(app, cgi, out = $stdout) env = cgi.__send__(:env_table) env.delete "HTTP_CONTENT_LENGTH" cgi.stdinput.extend ProperStream env["SCRIPT_NAME"] = "" if env["SCRIPT_NAME"] == "/" env.update({ "rack.version" => [0,1],
“rack.input” => cgi.stdinput,
“rack.errors” => $stderr,
“rack.multithread” => false,
“rack.multiprocess” => true,
“rack.run_once” => false,
“rack.url_scheme” => [“yes”, “on”, “1”].include?(env[“HTTPS”]) ? “https” : “http”
})
env[“QUERY_STRING”] ||= “”
env[“HTTP_VERSION”] ||= env[“SERVER_PROTOCOL”]
env[“REQUEST_PATH”] ||= “/”
env.delete “PATH_INFO” if env[“PATH_INFO”] == “”
status, headers, body = app.call(env)
begin
out.binmode if out.respond_to?(:binmode)
out.sync = false if out.respond_to?(:sync=)
headers[‘Status’] = status.to_s
if headers[‘Set-Cookie’]
headers[‘cookie’] = headers.delete(‘Set-Cookie’).split(“\n”)
end
out.write(cgi.header(headers))
body.each { |part|
out.write part
out.flush if out.respond_to?(:flush)
}
ensure
body.close if body.respond_to?(:close)
end
end
end
end

end
[/crayon]


Embed GitHub Gist

これはEmbed GitHub Gistのテストです


テストとガーリック