DouKaku?beta

challenge 正整数のゲーデル数化？ 

正の整数 n を引数としてとり， 2^d1 * 3^d2 * 5^d3 ... * pk^dk を返す関数
goedel を定義してください．

ただし，n を10進表現で k 桁の数としたときの各桁の数が数列 [d1,d2,d3,...,dk]
をなすとし，dk が 1 の位，d1 が 10^(k-1) の位です．また，pk は k番目の素数です．

goedel   9  ⇒ 2^9             ⇒  512
goedel  81  ⇒ 2^8 * 3^1       ⇒  768
goedel 230  ⇒ 2^2 * 3^3 * 5^0 ⇒  108

see: ゲーデル数

post comment

Posted feedbacks - Scala

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
import java.lang.Double.parseDouble
def sieve(s: Stream[Int]): Stream[Int] =
  Stream.cons(s.head, sieve(s.tail filter { _ % s.head != 0 }))
def primes = sieve(Stream.from(2))

def goedel(n:int) = {
  var s = n.toString
  primes.take(s.size).zipWithIndex.foldLeft(1d){(r, p) =>
    r*Math.pow(p._1, parseDouble(s(p._2)+""))
  }
}

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]