$B>pJs2J3X35O@!!:F;n83!!2rEzNc$H:NE@4p=`(B
2003.9.30

Back


  1. $B%3%^%s%I%i%$%s0z?t$+$i?tCM(Bx$B$rM?$($k$H$-!$(Be|-x| sin x $B$NCM$rJV$9%9%/%j%W%H$r:n@.$;$h!%(B(18$BE@(B)

    $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)
    

    • $B@dBPCM$NH=CG$,=PMh$F$$$J$$!%(B-5$BE@(B

    • $B?t3X4X?t$,;H$($F$$$J$$!%(B-5$BE@(B

    • $B7W;;7k2L$,4V0c$C$F$$$k!%(I0(B7$BE@!%(B

  2. $B0J2<$K<($9(B For $BJ8$r;HMQ$7$?%9%/%j%W%H$r(B While $BJ8$rMQ(B $B$$$k7A<0$KJQ99$;$h!%(B(18$BE@(B)

    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
    

    • $BITMW$JI=8=$,$"$k!%(B-5$BE@(B

    • $BI=<($,E,@Z$G$J$$!%(B-5$BE@(B

  3. $B%5%$%3%m$NL\$N=P$k3NN($r%7%_%e%l!<%H$9$k%9%/%j%W%H$r0J2<$NNc$N$h$&$K(B $B:n@.$7$?!%!Z!!![$G<($5$l$?6uMs$rKd$a$kJ8;zNs$rEz$($h!%(B(14$BE@(B)

    #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

    1. n
    2. 6
    3. 1
    4. m
    5. i-1
    6. %6.3f
    7. to_f

  4. $B%3%^%s%I%i%$%s0z?t$H$7$FM?$($k@0?t(B n $B$^$G!$(B a1 = 1, an - an-1 = n $B$H$J$k?tNs$NMWAG$r(B1$B9T(B $B$K0l$D$:$DI=<($9$k%9%/%j%W%H$r:n@.$;$h!%(B(18$BE@(B)

    $B2rEzNc$H:NE@4p=`(B

    n = ARGV[0].to_i
    
    a = 1
    
    for i in 1..n
      puts a
      a += i+1
    end
    

    • $B?tCM$,@5$7$/$J$$!%(B-7$BE@(B

    • $BI=<($,;XDj$H0c$&!%(B-5$BE@(B

  5. $B%3%^%s%I%i%$%s0z?t$H$7$FG$0U$NIC?t$rM?$($k$H!$$=$l$rF|!$;~4V!$J,!$IC(B $B$NI=<($KJQ49$9$k%9%/%j%W%H$r:n@.$;$h!%F0:n$O
    $ 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
    

    • $B7k2L$,@5$7$/$J$$!%(B-7$BE@(B

    • $BI=<($,E,@Z$G$O$J$$!%(B-5$BE@(B

  6. $B%3%s%T%e!<%?Aj
    #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

    1. case
    2. h % 3
    3. comp
    4. %
    5. 0
    6. 1
    7. 2


Back