$B>pJs2J3X35O@!!:F;n83!!2rEzNc$H:NE@4p=`(B
2003.9.30
$B2rEzNc$H:NE@4p=`(B
include Math x = ARGV[0].to_f if x > 0 x2 = -x else x2 = x end printf "%f\n", exp(-x2) * sin(x) |
printf "($B%5%$%3%m(B1$B$NL\!'%5%$%3%m(B2$B$NL\(B)\n" for d1 in 1..6 for d2 in d1..6 printf "(%d$B!'(B%d)\n", d1, d2 end end |
$B2rEzNc$H:NE@4p=`(B
printf "($B%5%$%3%m(B1$B$NL\!'%5%$%3%m(B2$B$NL\(B)\n" d1 = 1 while d1 <= 6 d2 = d1 while d2 <= 6 printf "(%d$B!'(B%d)\n", d1, d2 d2 += 1 end d1 += 1 end |
#dice.rb n = ARGV[0].to_i num = [0,0,0,0,0,0] for i in 1..$B!Z(Bi.$B!!![(B m = rand($B!Z!Z(Bii.$B!!![(B) + $B!Z(Biii.$B!!![(B case $B!Z(Biv.$B!!![(B when 1 num[0] += 1 when 2 num[1] += 1 when 3 num[2] += 1 when 4 num[3] += 1 when 5 num[4] += 1 when 6 num[5] += 1 end end for i in 1..6 printf "%d: %d ", i, num[$B!Z(Bv.$B!!![(B] end printf "\n" for i in 1..6 printf "%6.3f ", num[$B!Z(Bv.$B!!![(B].$B!Z(Bvi.$B!!![(B / $B!Z(Bvii.$B!!![(B end printf "\n" |
$B$3$N%9%/%j%W%H$O(B $B%3%^%s%I%i%$%s0z?t$H$7$F%5%$%3%m$r?6$k2s?t(B $B$rM?$($k!%F0:nNc$O.?tE@0J2<(B3$B7e$GI=<($7$F$"$k!%(B
$ ruby dice.rb 100 1: 20 2: 12 3: 18 4: 16 5: 17 6: 17 0.200 0.120 0.180 0.160 0.170 0.170 |
$B2rEzNc$H:NE@4p=`(B
$B2rEzNc$H:NE@4p=`(B
n = ARGV[0].to_i a = 1 for i in 1..n puts a a += i+1 end |
$ ruby time.rb 100000 100000 $BIC$O(B 1$BF|$H(B3$B;~4V(B46$BJ,(B40$BIC(B |
$B2rEzNc$H:NE@4p=`(B
s = ARGV[0].to_i m = 60 h = m * 60 d = h * 24 day = s / d hour = (s % d) / h min = ((s % d) % h) / m sec = ((s % d) % h) % m printf "%d $BIC$O(B %d$BF|$H(B%d$B;~4V(B%d$BJ,(B%d$BIC(B\n", s, day, hour, min, sec |
#janken.rb hand = ARGV[0] $B!Z(Bi. $B![(B hand when "g" h = 3 when "c" h = 4 when "p" h = 5 end comp = rand(3) chand = ["$B%0!<(B", "$B%A%g%-(B", "$B%Q!<(B"] printf "$B$"$J$?$N=P$7$?$N$O!V(B%s$B!W(B\n", chand[$B!Z(Bii. $B![(B] printf "$B;d$N=P$7$?$N$O!V(B%s$B!W(B\n", chand[$B!Z(Biii. $B![(B] printf "$B7k2L!'(B " case (h - comp) $B!Z(Biv. $B![(B 3 when $B!Z(Bv. $B![(B puts "$B$"$$$3(B" when $B!Z(Bvi. $B![(B puts "$B$"$J$?$NIi$1(B" when $B!Z(Bvii. $B![(B puts "$B$"$J$?$N>!$A(B" end |
$B$3$N%9%/%j%W%H$O%3%^%s%I%i%$(B $B%s0z?t$H$7$F(Bg($B$0!<(B)$B!$(Bc($B%A%g%-!K!$(Bp($B%Q!<(B)$B$rM?$($F>!Ii$9$k!%>!$AIi$1$+$"(B $B$$$3$r7k2L$H$7$FI=<($9$k$h$&$K$J$C$F$*$j!$F0:nNc$H$7$F$O
$ ruby janken.rb c $B$"$J$?$N=P$7$?$N$O!V%A%g%-!W(B $B;d$N=P$7$?$N$O!V%0! |
$B!Z!!![ItJ,$KF~$k(B\$BE,Ev$JJ8;zNs$rEz$($h!%(B(14$BE@(B)
$B2rEzNc$H:NE@4p=`(B