Latest comments posted by ryugate

ryugate's comment on 西暦 to 和暦

西暦 to 和暦 (Nested Flatten)

できるだけ素直に、作ってみました。

> (toWareki "1868/12/2")

("明治1年12月2日")

> (toWareki "1926/12/24")

("大正15年12月24日")

> (toWareki "2007/12/01")

("平成19年12月1日")

> (toWareki "1926/12/25")

("大正15年12月25日" "昭和1年12月25日")

> (toWareki "1868/1/2")

"範囲外"

> (toWareki "1868/100/2")

"範囲外"

(define (leap? y)
 (cond
  ((= (modulo y 400) 0) #t)
  ((= (modulo y 100) 0) #f)
  ((= (modulo y 4) 0) #t)
  (#t #f)))

(define (readDate s) (map string->number (string-split s "/")))

(define (getYear d)  (car d))
(define (getMonth d) (cadr d))
(define (getDay d)   (caddr d))

(define (comp func d1 d2)
 (cond
  ((= (func d1) (func d2)) 0)
  ((< (func d1) (func d2)) -1)
  ((> (func d1) (func d2)) 1)))

(define (compYear d1 d2)  (comp getYear d1 d2))
(define (compMonth d1 d2) (comp getMonth d1 d2))
(define (compDay d1 d2)   (comp getDay d1 d2))

(define (compDate d1 d2)
    (if (= (compYear d1 d2) 0)
     (if (= (compMonth d1 d2) 0)
      (if (= (compDay d1 d2) 0)
        0
        (compDay d1 d2))
      (compMonth d1 d2))
     (compYear d1 d2)))

(define (calcYear base d) (- (getYear d) (- (getYear (cadr base)) 1)))

(define (okDate? date)
 (define y (getYear date))
 (define m (getMonth date))
 (define d (getDay date))
 (cond
  ((< m 1)  #f)
  ((< 12 m) #f)
  ((< d 1)  #f)
  ((< 31 d) #f)
  ((and (= d  4) (< 30 d)) #f)
  ((and (= d  6) (< 30 d)) #f)
  ((and (= d  9) (< 30 d)) #f)
  ((and (= d 11) (< 30 d)) #f)
  ((and (leap? y) (= d  2) (< 29 d)) #f)
  ((and (= d  2) (< 28 d)) #f)
  (#t #t)))

(define (makeWareki bases ds)
 (map makeWarekiStr
  (map list (map car bases)
            (map cons (map calcYear bases ds) (map cdr ds)))))

(define (makeWarekiStr wareki)
 (string-append (car wareki)
                (makeDateStr (map number->string (cadr wareki)))))

(define (makeDateStr dateStrs)
 (string-append
    (getYear dateStrs) "年"
    (getMonth dateStrs) "月"
    (getDay dateStrs) "日"))

(define meiji  (list "明治" (readDate "1868/9/8")))
(define taisho (list "大正" (readDate "1912/7/30")))
(define showa  (list "昭和" (readDate "1926/12/25")))
(define heisei (list "平成" (readDate "1989/1/8")))

(define (toWareki ds)
 (define d (readDate ds))
 (cond
  ((not (okDate? d)) "範囲外")
  ((= (compDate d (cadr meiji))  -1) "範囲外")
  ((= (compDate d (cadr taisho)) -1) (makeWareki (list meiji)        (list d)))
  ((= (compDate d (cadr taisho))  0) (makeWareki (list meiji taisho) (list d d)))
  ((= (compDate d (cadr showa))  -1) (makeWareki (list taisho)       (list d)))
  ((= (compDate d (cadr showa))   0) (makeWareki (list taisho showa) (list d d)))
  ((= (compDate d (cadr heisei)) -1) (makeWareki (list showa)        (list d)))
  ((= (compDate d (cadr heisei))  0) (makeWareki (list showa heisei) (list d d)))
  ((= (compDate d (cadr heisei))  1) (makeWareki (list heisei)       (list d)))))

[ Scheme ] [ download code ] ]

ryugate's comment on タイムコードを表すクラス

タイムコードを表すクラス (Nested Flatten)

出題者です・・・
ううむ、お題が言葉たらずでした。すみません。
意図していたのは、以下のようなものです。

実行結果はこうなります。

DROP
00:00:59;28
00:00:59;29
00:01:00;02
00:01:00;03
00:01:00;04
NONDROP
00:00:59:28
00:00:59:29
00:01:00:00
00:01:00:01
00:01:00:02
DROP 10min
00:09:59;28
00:09:59;29
00:10:00;00
00:10:00;01
00:10:00;02
NONDROP 10min
00:09:59:28
00:09:59:29
00:10:00:00
00:10:00:01
00:10:00:02

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

[ Scala ] [ download code ] ]

ryugate's comment on タイムコードを表すクラス

タイムコードを表すクラス (Nested Flatten)

お題について

すみません。狙いがうまく伝わっていませんでした。ポイントは、総フレーム数とタイムコードの相互変換です。以下の仕様を追加してみてください。

総フレーム数を指定するコンストラクタ持つこと
総フレーム数を取得するメソッドを持つこと

また、オブジェクト指向言語で無い場合には、単純に任意のフレームレートにおいて、タイムコードと総フレーム数を相互変換する関数を書いてもOKとしたいと思います。

ryugate's comment on データの整列

データの整列 (Nested Flatten)

既存が無かったので、書いてみました。

使いかたは

L1 = [{1,8}, {3,4}, {1,3}, {2,4}, {1,2}].

sort:lexical(L1).

sort:fromOrigin(L1).

な感じです。

-module(sort).
-export([lexical/1, fromOrigin/1]).

lexical(L) ->
  lists:sort(L).

fromOrigin(L) ->
  lists:sort(fun ({AA,AB},{BA,BB}) -> (AA*AA + AB*AB) < (BA*BA + BB*BB) end, L).

[ Erlang ] [ download code ] ]

ryugate's comment on 総当たり戦の日程作成

総当たり戦の日程作成 (Nested Flatten)

無かったので、書いてみました。 Scala版の移植です。

-module(match_sche).
-export([make/1]).

make(L) -> make_loop([], L).

make_loop(Acc, [H|L]) ->
  if
    length(Acc) =:= length(L) -> Acc;
    true -> 
      {A,B}   = lists:split(round(length([H|L])/2), [H|L]),
      Newacc  = [lists:zip(A, lists:reverse(B))|Acc],
      [LH|LL] = L,
      Newl    = [H|lists:append(LL,[LH])],
      make_loop(Newacc, Newl)
  end.

[ Erlang ] [ download code ] ]

ryugate's comment on タイムコードを表すクラス

タイムコードを表すクラス (Nested Flatten)

以下の条件でタイムコード「時：分：秒:フレーム」を表すクラスを書いてください。

1. 最低限、「時、分、秒、フレーム、フレームレート」を引数にするコンストラクタが必要です
2.フレームレートには数値の他"ntsc"（ドロップフレーム 29.97pfs）も指定できること
3.ありえない引数に対するバリデーションはあっても無くてもかまいません。
4.生成してから、フレームレートの変更が出来ること（自身を変更しても、新しいインスタンスを生成してもかまいません。）
5.保持しているタイムコードを「時：分：秒:フレーム」という文字列に変換できること。（ただしドロップフレームの場合には「時：分：秒;フレーム」であること）

以上

ドロップフレームについては以下を参考にして下さい。
http://www.ite.or.jp/study/musen/tips/tip06.html
http://qtake.hp.infoseek.co.jp/1-4.html

ryugate's comment on 総当たり戦の日程作成

総当たり戦の日程作成 (Nested Flatten)

Listを引数にとるバージョン
全組み合わせ出力への１歩
（・・・しかし、型がList[List[(T,T)]]とかなると、やっぱりちょっと見難いなぁ）

object sche {
  def match_sche[T](t:List[T]) = match_sche_loop(List(), t)
  def match_sche_loop[T](acc:List[List[(T,T)]], l:List[T]):List[List[(T,T)]] = {
    if (acc.length == (l.length-1)) acc
    else {
      val sp     = l.splitAt(l.length/2)
      val newacc = sp._1.zip(sp._2.reverse) :: acc
      val newl   = l.head :: l.tail.tail ::: List(l.tail.head)
      match_sche_loop(newacc, newl)
    }
  }

  def main(args: Array[String]) {
    val n = args(0).toInt
    match_sche((1 to n).toList).foreach {println(_)}
  }
}

[ Scala ] [ download code ] ]

ryugate's comment on 総当たり戦の日程作成

総当たり戦の日程作成 (Nested Flatten)

一応、全ての可能性を探っているはず・・・
（結果表示は数だけ）
だけど、あんまり自信無し・・・（^^;）

ポイントは、「とにかく、injectを使ってみる」です。(^^

def allsche(num)
  teams = (1..num).to_a
  headteam = teams[0,1]
  anotherteams = teams[1..-1]
  anotherteams.permutations.inject([]) {|result, ar|
    result << match_sche(headteam, ar)
  }
end

def match_sche(headteam , anotherteams)
  (1..anotherteams.length).inject([]) {|result, notuse|
    teams = headteam + anotherteams
    anotherteams = anotherteams.rotate
    spar = teams.split(teams.length / 2)
    result << spar[0].zip(spar[1].reverse)
  }
end

class Array
  def permutations
    if empty?
      [[]]
    else
      inject([]) {|result, item|
        minusone = self - [item]
        subperms = minusone.permutations
        newperms = subperms.map{|pm| [item] + pm }
        result + newperms
      }
    end
  end

  def rotate(n = 1)
    (1..n).inject(self.dup) {|result, notuse| [result.pop] + result }
  end
  
  def split(n)
    [self[0,n], self[n..-1]]
  end
end

# MAIN
require 'pp'
allsche =  allsche(ARGV[0].to_i)
puts allsche.length
pp allsche[0]

[ Ruby ] [ download code ] ]

ryugate's comment on 総当たり戦の日程作成

総当たり戦の日程作成 (Nested Flatten)

任意の偶数Nのチームの総当たり戦を最短日数（N-1日）で行う場合の日程表を１つ作成してください。

解はひとつではない場合もあります。
もし、余力があれば、全ての可能性も求めてください。

これは、スポーツスケジューリングと言う分野の問題で、数学的には、カークマンの問題と言うのが近いようです。

例えば、４チームであれば、

1-2 3-4
1-3 2-4
1-4 2-3

６チームであれば

1-2 3-4 5-6 
1-3 2-5 4-6 
1-4 2-6 3-5 
1-5 2-4 3-6 
1-6 2-3 4-5

が解のひとつです。

ryugate's comment on ライフゲーム

ライフゲーム (Nested Flatten)

Scala実装がなかったので、作ってみました。
まだまだ、Scalaになれてないので、
ツッコミどころ満載とおもいます。（バグもあるかも・・・）
ばしばし、ご指摘いただければ幸いです。

object lifegame {
  def main(args:Array[String]) {

    println("make field")
    val size = 10
    val fields = new Array[Lifefield](2)
    fields.update(0, new Lifefield(size))
    fields.update(1, new Lifefield(size))

    println("init cell")
    val f = fields.apply(0)
    f.rndinit
    // glider
    //f.setcell(0,1,1)
    //f.setcell(1,0,1)
    //f.setcell(2,0,1)
    //f.setcell(2,1,1)
    //f.setcell(2,2,1)
    println(fields.apply(0))

    println("start")
    Iterator.range(0,1000).foreach {i =>
      val fi = i % 2
      val nfi = if (fi == 0) 1 else 0
      fields.apply(fi).makenext(fields.apply(nfi))

      println("age = " + i.toString)
      println(fields.apply(nfi))
      Thread.sleep(200)
    }
  }
}

class Lifefield {
  var sx:int = 0
  var sy:int = 0
  var field:Array[Array[int]] = null

  def this(x:int, y:int) {
    this()
    sx = x; sy = y
    field = new Array[Array[int]](sx)
    field.indices.foreach {i => field.update(i, new Array[int](sy)) }

    field.foreach {line =>
      line.indices.foreach {i =>
        line.update(i, 0)
      }
    }
  }
  def this(size:int) = this(size,size)
  
  def setcell(x:int,y:int,value:int) = field.apply(y).update(x, value)
  
  def makenext(newfield:Lifefield) = {
    Iterator.range(0,sy).foreach {y =>
      Iterator.range(0,sx).foreach {x =>
        val cellvalue = field.apply(y).apply(x)
        val num = checkaround(x,y)
        if (cellvalue == 0 && num == 3)
          newfield.setcell(x,y, 1)
        else
          if (cellvalue == 1 && (num == 2 || num == 3))
            newfield.setcell(x,y, 1)
          else  
            newfield.setcell(x,y, 0)
      }
    }
  }
  
  def checkaround(x:int,y:int) = {
    val r = Iterator.range(-1,2)
    var n:int = 0
    r.foreach {i1 =>
      r.foreach {i2 =>
        if(i1==0 && i2==0)
          null
        else
          n += cellvalue(x + i1, y + i2)
      }
    }
    n
  }
  
  def cellvalue(x:int, y:int) = {
    val xx = if (x < 0) x + sx else x % sx
    val yy = if (y < 0) y + sy else y % sy
    field.apply(yy).apply(xx)
  }

  def rndinit {
    val rnd = new Random()
    field.foreach {line =>
      line.indices.foreach {i =>
        if (rnd.nextInt(3) == 0)
          line.update(i, 1)
        else
          line.update(i, 0)
      }
    }
  }

  override def toString() = {
    var ret = ""
    field.foreach {line =>
      line.foreach {cell =>
        ret += (if (cell == 1) "[*]" else "[ ]")
      }
      ret += "\n"
    }
    ret
  }
}

[ Scala ] [ download code ] ]

ryugate's comment on 指定コマンドを別プロセスで起動

指定コマンドを別プロセスで起動 (Nested Flatten)

初投稿です (^o^)

標準出力と標準エラー出力はすべてを読みきる必要があります。その際、それぞれの出力の読み取りおよび、コマンドの終了を待つ部分は Actor(スレッド)としておかなくてはいけません。

ffmpegはヘルプ表示時も標準出力と標準エラー出力の両方に書き出してきます。終了コードを表示する部分ですが、場合によってこの例ではヘルプ出力の間にまぎれてしまうかもしれません。(^^;

import java.io._
import scala.actors._
import scala.actors.Actor._

object exec_test extends Application {
  //------------------------------------
  val cmdline = "ffmpeg"

  //------------------------------------
  val process = Runtime.getRuntime.exec(cmdline)
  val br  = new BufferedReader(new InputStreamReader(process.getInputStream))
  val ebr = new BufferedReader(new InputStreamReader(process.getErrorStream))

  //------------------------------------
  actor { printlines(br ){ line => println(line) } }
  actor { printlines(ebr){ line => println(line) } }
  actor { println("ExitValue=" + process.waitFor) }

  //------------------------------------
  def printlines(br:BufferedReader)(f:String=>Unit):Unit = printlines(br.readLine, br, f)
  def printlines(line:String, br:BufferedReader, f:String=>Unit):Unit = line match {
    case null => ;
    case _ => 
      f(line)
      printlines(br.readLine, br, f)
  }
}

[ Scala ] [ download code ] ]