際際滷

仟しくプログラミング冱�Zを�えたいときに
佩うべき 10 の��} を Ruby でやってみた

うえっち (@uh_tomo )

徭失�B初

￠兆念 : 貧弥崘孅 ( 宥各うえっち )

￠垢僥何秤�麩� 3 定
￠書指の LT 氏の二鮫宀

圷ネタ

仟しくプログラミング冱�Zを�えたいときに
佩うべき 10 の��}

http://www.ideaxidea.com/archives/2008/02/10_7.html

☆ ちょっと�笋┐燭發里鮟發④泙靴�

�n�} 01
￠ FizzBuzz ��}を盾け

FizzBuzz ��}を岑らない繁いますか�

☆ FizzBuzz ��} とは�

1 から�に方忖を竃薦していく

ただし、
3 で護俳れる��呂� Fizz
5 で護俳れる��呂� Buzz
�I圭で護俳れる��呂� FizzBuzz を方忖の旗わりに燕幣

箭:
1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14
FizzBuzz 16 ...

�n�} 01
コ�`ド箭 :
1 (1..100).each do |t|
2 str = ""
3 str += "Fizz" if t % 3 == 0 # 3 で護俳れる��
4 str += "Buzz" if t % 5 == 0 # 5 で護俳れる��
5 str = t.to_s if str == "" # 3 でも 5 でも護り俳れない��
6 puts str # 竃薦
7 end

盾�h :
(1..100).each do |t| ゛ end は、 for ��猟みたいな湖じ
郡�篳� t に 1 から 100 までの方�､魎枻襪靴覆�蕁∪Rり卦す

2-5 佩朕では、 t を登協し、竃薦する猟忖双を�Q協する
6 佩朕で猟忖双を竃薦する

�n�} 01
☆ おまけ
＄ワンライナ�`�
(1..100).each{|t| puts t%15==0 ? "FizzBuzz" : t%3==0 ? "Fizz" : t%5==0 ? "Buzz": t }

＄ Ruby での恷玉 (56 猟忖 )
1.upto(?d){|i|i%3<1&&x=:Fizz;puts i%5<1?"#{x}Buzz":x||i}

d の ASCII コ�`ド

玉�j�u��?恷弌�u��

�n�} 02
￠ �F壓�r震に栽わせて、やる�櫃里任詢鍔崛个魃輅�

�n�} 02

￡圭� :
Time.now を聞って、�F壓�r震を函誼
�m輝に訳周蛍瓷させて、メッセ�`ジを燕幣させる

この��}は、�r震を旋喘することが朕議

�n�} 02
コ�`ド箭 :
1 case Time.now.hour
2 when 6..9
3 puts " おはようございます。措い劾ですね "
´
19 when 23..5
20 puts " そろそろ媒る�r�gだよ�` "
21 end

盾�h :
case 塀 when �� ゛ end は、 switch ��猟みたいな湖じ
塀 == �､��蓮�g佩する ( break とか駅勣なし )

�n�} 03
￠方�､鰕}方秘薦瘁、�N�に�Kび紋える。
それらの恷寄�､盤醫�､魍�Δ垢襦�

�n�} 03

￡圭� :
1. 音協��方の秘薦を鞭け函り、塘双に鯉�{
2. 塘双を�N�に�Kび紋え、竃薦
3. 恷寄�､盤醫�､盂��

この��}は、塘双荷恬が朕議

�n�} 03
コ�`ド箭 :
1 arr = Array.new # 秘薦を鯉�{する塘双を協�x
2 catch(:exit) {
3 loop do # �o�ル�`プ
4 STDIN.gets() # 1 佩の��僻訌�
5 $_.split(" ").each do |t| # 秘薦を < 腎易スペ�`ス > で蛍ける
6 throw :exit if t == "00" # 00 が秘薦された��呂蓮�訌�K阻
7 arr << t.to_i # 方�､��Qして塘双に鯉�{
8 end
9 end
10 }
11 p arr.sort! # 塘双をソ�`トし竃薦
12 puts "max: #{arr.max}nmin: #{arr.min}" # 恷寄�､盤醫�､魍��

盾�h :
コメントのとおり

�n�} 04
￠ �叟�弯の恬撹 (0 茅麻の��呂鰈�袰zむ )

�n�} 04
￡圭� :
1.[ 方忖處麻徨方忖 ] のような秘薦を鞭け函る
2. 0 茅麻の登協と�I尖
3. �麻�Y惚の竃薦

この��}は、訳周蛍瓷が朕議�

�n�} 04
コ�`ド箭 :
1 STDIN.gets # ��僻訌�
2 tmp = $_.split(" ") # 秘薦を < 磯叔スペ�`ス > で蛍け、塘双晒
3 # 音屎な秘薦を契ぐ
4 unless tmp[0] =~ /^d+$/ and tmp[1] =~ /^[+-*/]$/ and tmp[2] =~ /^d+$/
5 puts "Num Ope Num の侘で秘薦してください "
6 end
7 # 0 茅麻を契ぐ
8 if tmp[1] == "/" and tmp[2].to_i == 0
9 puts "0 茅麻とか痴雌です "
10 end
11 # �麻�Y惚を竃薦
12 puts eval(tmp[0]+tmp[1]+tmp[2]) # できればいいんです

盾�h :
1,2 佩朕で、秘薦を鞭函り、方忖と處麻徨に蛍ける
4-6 佩朕で、音屎秘薦の登協
8-10 佩朕で、 0 茅麻登協
12 佩朕で、�麻し、�Y惚燕幣

�n�} 05
￠キ�`ワ�`ドを秘薦して、 Yahoo の�碧�Y惚を燕幣

�n�} 05
￡圭� :
1. キ�`ワ�`ド秘薦
2. Yahoo で�碧� (XML が卦ってくる )
3. XML から駅勣なものを函り竃し、竃薦

この��}は、 API の聞喘、 HTTP 宥佚、 XML �I尖が朕議

�n�} 05
コ�`ド箭 ( 宥佚何 ):
1 uri = "http://search.yahooapis.jp/WebSearchService/V2/webSearch"
2 appid = "iYknF3yxg67vgAWX01ygpiCbcdCpiBJCQx6G8j.OtP289nVkQDLBmMR.aTT7rLDDg4y0"
3 results = "5"
4 search_result = ""
5
6 puts " �碧�鍠`ドを秘薦してください "
7 STDIN.gets()
8 url = "#{uri}?appid=#{appid}&query=#{URI.escape($_.chomp)}&results=#{results}"
9
10 loop do # �o�ル�`プ
11 begin # 箭翌�I尖
12 search_result = open(url).read # �碧�Y惚の鞭け函り
13 rescue
14 next # エラ�`が�k伏したら、もう匯指�g佩
15 end
16 break # エラ�`が�k伏しなければ、ル�`プを�iける
17 end

盾�h :
コメントのとおり

�n�} 05
コ�`ド箭 (XML �I尖何 ):
18 count = 1 # カウンタ�`の兜豚晒
19 xml = REXML::Document.new(search_result) # �碧�Y惚を XML オブジェクトに
20 xml.elements.each("ResultSet/Result") do |elem| # ResultSet タグの Result タグ
21 puts "￠ #{count} 桑朕の�碧�Y惚 " # �碧��了を竃薦
22 count += 1
23 puts "Title: "+elem.elements["Title"].text # ペ�`ジのタイトルを竃薦
24 puts elem.elements["Summary"].text # ペ�`ジの古勣を竃薦
25 puts # 腎佩
26 end

盾�h :
20 佩朕では、 XML の ResultSet タグの勣殆 Result タグの勣殆を
函り竃し、郡�篳� elem に旗秘している。
その瘁、 23 佩朕でタイトル、 24 佩朕で古勣を竃薦している。

�n�} 06
￠テキストを秘薦すると、�Z硫を�笋┐導��

�n�} 06
￡圭� :
1. テキスト秘薦
2. �Z硫を崔�Qし、竃薦

この��}は、屎�燕�Fと猟忖双崔�Q が朕議

�n�} 06
コ�`ド箭 :
1 STDIN.gets
2 print $_.sub(/ です $/, " でちゅわ＾ )

盾�h :
1 佩朕で秘薦
2 佩朕で崔�Qしたものを竃薦している

弼？な�Mみ栽わせで�[べる湖じ

�n�} 07
￠メ�`ルを僕る

�n�} 07
￡圭� :
1. メ�`ルを僕る

この��}は、メ�`ルを僕ることが朕議

�n�} 07
コ�`ド箭 :
1 require 'net/smtp'
2
3 server_addr = "smtp.example.co.jp"
4 port = 25
5 from_addr = "from@example.co.jp"
6 to_addr = "to@example.co.jp"
7 account = ""
8 pass = ""
9
10 message = <<EOF
11 From: queue <from@example.com>
12 To: iguiter <to@example.net>
13 Subject: Test Mail
14 Date: Sat, 23 Jan 2012 00:00:00 +0900
15
16 This is a test mail.
17 EOF
18
19 Net::SMTP.start(server_addr, port, from_addr, account, pass) do |smtp|
20 smtp.send_message(message, from_addr, to_addr) # メ�`ル僕佚
21 end

�n�} 08
￠仝 < �l > が < どこ > で < 採を > した々を燕幣する

�n�} 08
￡圭� :
1. 光勣殆を塘双に鯉�{
2. 岱方を�k伏させ、�m輝に燕幣させる

この��}は、猟忖双�I尖と岱方が朕議

�n�} 08
コ�`ド箭 :
1 who = [" たろ�` "," じろ�` "," さぶろ�` "," しろ�` "," ごろ�` "]
2 where = [" 社 "," 今貧 "," ノ�`ト PC の貧 "," うどん塁 "," 傲�v "]
3 doing = [" 啝った "," 溺廾した "," 媒てた "," 仝えっ々 "," にゃ�` "]
4
5 puts who[i]+" が "+where[rand(5)]+" で "+doing[rand(5)]

盾�h :
1,2,3 佩朕で、光勣殆を協�x
5 佩朕で岱方を�k伏させて、竃薦

�n�} 09
￠秘薦された URL のはてブ方を竃薦

�n�} 09
￡圭� :
1. URL 秘薦
2. はてブ API を旋喘し、�Y惚を函誼する

この��}は、 API の聞喘、エスケ�`プ、 xmlrpc の旋喘� が朕議

�n�} 09
コ�`ド箭 :
1 require 'xmlrpc/client'
2 client = XMLRPC::Client.new("b.hatena.ne.jp", "/xmlrpc")
3
4 puts "URL を秘薦してください ( 箭 : http://www.google.com)"
5 print " �碧� URL: "
6 STDIN.gets
7
8 search_result = client.call("bookmark.getCount",URI.escape($_.chomp))
9
10 print "#{$_.chomp} のはてブ方は #{search_result[$_.chomp]} です "

盾�h :
2 佩朕で、 API を聞喘する��
6 佩朕で、 URL 秘薦
8 佩朕で、はてブ方を函誼
10 佩朕で、�Y惚竃薦

�n�} 10
￠ 2 つの兆念を秘薦して、 10 粁�Aの�來�\僅を佩う

�n�} 10
￡圭� :
1. 兆念の秘薦
2. 兆念の方�ｻ�
3. �m輝に訳周蛍瓷

この��}は、アルゴリズム深賀� と猟忖双�I尖が朕議

�n�} 10
コ�`ド箭 :
1 print " 兆念 1: "
2 name1 = STDIN.gets().chomp
3
4 arr1 = name1.unpack('U*')
5
6 sum1 = arr1.inject(0) do |sum1, i|
7 sum1 + i
8 end

盾�h :
ある 1 つの猟忖双を方�ｻ�垢襯芥`ドである
2 佩朕で、 name1 に秘薦を佩う
4 佩朕で、 name1 の光猟忖を UTF-8 の猟忖コ�`ドに��Q
6 佩朕で、光方�､虜腕� sum1 を�麻

�n�} 10
コ�`ド箭 :
1 match_table = [[1,2,3,4],[0,5,6,7,],[0,0,8,9],[0,0,0,10]]
2 arr = [sum1%4, sum2%4]
3
4 result = match_table[arr.min][arr.max]
5 result = 10 if sum1 == sum2
6
7 unless result == 0
8 puts " 屈繁の�來は #{result} です "
9 end

盾�h :
10 粁�Aに登協する駅勣があるため、光兆念を方�ｻ�靴燭發里�
4 の茅方を�麻し、その�Mみ栽わせから�來登協を佩う

0-0,0-1,0-2,0-3,1-1,1-2,1-3,2-2,2-3,3-3 の 10 パタ�`ン

おわり

�L？と払撰しました

恷瘁に、ちょっと傚�擦�???

傚��

Kadai.rb ハッカソンやります。
たぶん、 1,2 埖あたりに???

弼？と�Qまったら、 ATND 羨てます。
ぜひ、歌紗してください。

GoogleSite のペ�`ジ
◎
https://sites.google.com/site/kagawarb/kadai-rb/hackathon02

際際滷

仟しくプログラミング冱囂???檎顎恢霞でやってみた

More Related Content

仟しくプログラミング冱囂???檎顎恢霞でやってみた