DouKaku?

class TimeCode

    attr_reader :h, :m, :s, :frame, :frame_rate

    def initialize(h, m, s, frame, frame_rate)
        @h, @m, @s, @frame, @frame_rate = h, m, s, frame, frame_rate
        if frame > (frame_rate == "ntsc" ? 29.97 : frame_rate)
            raise ArgumentError, "Invalid frame number."
        end
    end

    def frame_rate=(v)
        @frame_rate = v
    end

    def to_s
        if @frame_rate == "ntsc" && @m != 10 && @s == 0 && (@frame == 0 || @frame == 1)
            "%02d:%02d:%02d;%02d" % [@h, @m, @s, @frame]
        else
            "%02d:%02d:%02d:%02d" % [@h, @m, @s, @frame]
        end
    end

end

p TimeCode.new( 0,  0,  0,  0, "ntsc").to_s #=> "00:00:00;00"
p TimeCode.new( 0,  0,  0,  1, "ntsc").to_s #=> "00:00:00;01"
p TimeCode.new( 0,  0,  0,  2, "ntsc").to_s #=> "00:00:00:02"
p TimeCode.new( 0, 10,  0,  0, "ntsc").to_s #=> "00:10:00:00"
p TimeCode.new( 0, 10,  0,  1, "ntsc").to_s #=> "00:10:00:01"
p TimeCode.new( 0, 10,  0,  2, "ntsc").to_s #=> "00:10:00:02"

p TimeCode.new( 0,  0,  0,  0, 10).to_s #=> "00:00:00:00"
p TimeCode.new( 0,  0,  0, 11, 10).to_s #=> ArgumentError

(defpackage :doukaku-165 (:use :cl))
(in-package :doukaku-165)

(defclass timecode ()
  ((h :accessor h :initarg :h :initform 0)
   (m :accessor m :initarg :m :initform 0)
   (s :accessor s :initarg :s :initform 0)
   (f :accessor f :initarg :f :initform 0)
   (fps :accessor fps :initarg :fps :initform 0)))

(defmethod drop-frame-p ((tc timecode))
  (and (/= 10 (m tc)) 
       (zerop (s tc))
       (or (<= 0 (f tc) 1))))

(defun tv-frame (f)
  (cond ((numberp f) f)
        ((string-equal "NTSC" (string f)) 29.97)
        ('T 0)))

(defmethod ntsc-p ((tc timecode))
  (= 29.97 (tv-frame (fps tc))))

(defmethod timecode ((tc timecode))
  (format nil "~2,'0D:~2,'0D:~2,'0D~A~2,'0D"
          (h tc) (m tc) (s tc) 
          (if (and (ntsc-p tc) (drop-frame-p tc)) ";" ":") (f tc)))

(defmethod total-frames ((tc timecode))
  (flet ((frs (fps tc)
           (+ (* (h tc) fps 60 60)
              (* (m tc) fps 60)
              (* (s tc) fps)
              (f tc))))
    (if (ntsc-p tc)
        (let* ((fps (ceiling (tv-frame (fps tc))))  ;整数に切り上げ
               (non-drop-total (frs fps tc)))
          (- non-drop-total (truncate non-drop-total 1000)))
        (frs (fps tc) tc))))

class Timecode(val frames:Int, val rate:Any) {
  def this(hh:Int, mm:Int, ss:Int, ff:Int, rate:Any) = this( rate match {
    case "ntsc" =>
      val minutes = hh * 60 + mm
      17982 * (minutes/10) + 1798 * (minutes%10) + ss * 30 + ff
    case r:Int =>
      val mrate = r * 60
      val hrate = mrate * 60
      hh * hrate + mm * mrate + ss * r + ff
  }, rate)

  def changeRate(r:Any) = new Timecode(frames, r)

  override def toString = rate match {
    case "ntsc" =>
      val hh = frames / 17982 / 6
      val mm = frames / 17982 % 6 * 10 + (frames % 17982 - 2) / 1798
      val ss = ((frames % 17982 - 2) % 1798 + 2) / 30
      val ff = ((frames % 17982 - 2) % 1798 + 2) % 30
      sprIntf("%02d:%02d:%02d;%02d", hh,mm,ss,ff)
    case r:Int =>
      val m = r * 60
      val h = m * 60
      val hh = frames / h
      val mm = (frames % h) / m
      val ss = ((frames % h) % m) / r
      val ff = ((frames % h) % m) % r
      sprIntf("%02d:%02d:%02d:%02d", hh,mm,ss,ff)
  }

  def +(add:Int) = new Timecode(frames + add, rate)
  def -(sub:Int) = new Timecode(frames - sub, rate)

  private def sprIntf(fmt:String, args:Any*) = String.format(fmt, args.map(e => e.asInstanceOf[AnyRef]).toArray)
}

object TimecodeTest extends Application {
  println("DROP")
  val t1 = new Timecode(0,0,59,27,"ntsc")
  (1 to 5).foreach {i => println(t1 + i) }

  println("NONDROP")
  val t2 = t1.changeRate(30)
  (1 to 5).foreach {i => println(t2 + i) }

  println("DROP 10min")
  val t4 = new Timecode(0,9,59,27, "ntsc")
  (1 to 5).foreach {i => println(t4 + i) }

  println("NONDROP 10min")
  val t3 = new Timecode(0,9,59,27, 30)
  (1 to 5).foreach {i => println(t3 + i) }
}

class TimeCode
  def initialize(h, m, s, f, frate)
    @hour, @minute, @second = h, m, s
    @frame, @frame_rate = f, frate
  end
  def treat
    form = proc{|*ary| ary.map{|s| format("%02d", s)}.join(':')}
    drop_frame
    "#{form.call(@hour, @minute, @second)}; #{@frame}."
  end
  attr_writer :frame_rate
  private
  def inspect() treat end
  def drop_frame
    check = @second.zero? && (@minute.modulo(10).nonzero? || @minute.zero?)
    @frame = [@frame%get_frate.ceil, check ? 0 : 2].max
  end
  def get_frate
    case @frame_rate.to_s
    when 'ntsc'  then 29.97
    when 'anime' then 24
    else
      raise RangeError if out_of_range?
      @frame_rate.to_i
    end
  end
  def out_of_range?() @frame_rate.to_i <= 0 end
end
p tc = TimeCode.new(22, 0, 0, 37, 'ntsc') #=> 22:00:00; 6.
tc.frame_rate = 5
p tc                                      #=> 22:00:00; 1.
p TimeCode.new(22,  0, 0, 0, 'anime')     #=> 22:00:00; 0.
p TimeCode.new(22, 10, 0, 0, 'anime')     #=> 22:10:00; 2.
p TimeCode.new(22, 10, 0, 0, -1)          #=> RangeError (RangeError)