次は何が来るのか?


15

スペースで区切られた整数のリストが与えられた場合、タスクはシーケンス内の次の整数を見つけることです。シーケンス内の各整数は(単一の数学的操作を適用した結果であり+-*または/)前の整数であり、各シーケンスは、このような動作の可変数(ただし10以上)で構成されています。シーケンスは整数のシーケンスの長さの半分より長くなることはないため、確認のために各シーケンスの操作を少なくとも2回表示します。
入力は、stdin(またはpromptJavaScriptソリューション用)を介して行われます。

以下にいくつかの説明例を示します。

入力:

1 3 5 7 9 11

出力:

13

これはかなり簡単です。すべての値は以前の値+2です。

入力:

1 3 2 4 3 5 4 6 5 7 6

出力:

8

このシーケンスの2つのステップ、+2次に-1

入力:

2 6 7 3 9 10 6 18 19 15 45 46

出力:

42

三つのステップ- 、*3、。+1-4

テストケース

以下に、さらにいくつかのテストケースを示します。

入力:

1024 512 256 128 64 32 16

出力:

8

入力:

1 3 9 8 24 72 71 213 639

出力:

638

入力:

1 2 3 4 5 2 3 4 5 6 3 4 5 6 7

出力:

4

入力:

1 2 4 1 3 9 5 8 32 27 28 56 53 55 165 161 164 656 651 652 1304

出力:

1301

数日後に投稿する予定の、Scalaの未解決ソリューション(42行)があります。

これはコードゴルフです-最短回答が勝ちます。


分割は正確であることが保証されていますか?
ピーターテイラー

@ピーターはい。すべてのステップは整数になります。
ガレス

しかし、ステップが「/ 3」の場合、剰余は常に0になることが保証されていますか?
ピーターテイラー

@Peterはい、残りは常に0です。-
ガレス

回答:


12

Golfscript、203 138文字

~]0{).2$.);[\(;]zip\/zip{.{~-}%.&({-}+\{;{.0={.~\%{.~%{;0}{~/{/}+}if}{~\/{*}+}if}{~!{;}*}if}%.&(\{;;0}/}{\;}if}%.{!}%1?)!{0}*}do\@)\,@%@=~

これはif、標準のGolfscriptプログラムよりもはるかに多くのsを使用し、その操作はかなりわかりにくいので、ここにコメント付き(ただし、空白とコメントの追加による以外の改変はありません)バージョンを示します。

~]0
# Loop over guesses L for the length of the sequence
{
    # [x0 ... xN] L-1
    ).
    # [x0 ... xN] L L
    2$.);[\(;]zip
    # [x0 ... xN] L L [[x0 x1][x1 x2]...[x{N-1} xN]]
    \/zip
    # [x0 ... xN] L [[[x0 x1][xL x{L+1}]...][[x1 x2][x{L+1} x{L+2}]...]...]
    {
        # [x0 ... xN] L [[xi x{i+1}][x{i+L} x{i+L+1}]...]
        # Is there an operation which takes the first element of each pair to the second?
        # Copy the pairs, work out each difference, and remove duplicates
        .{~-}%.&
        # Turn the first difference into an operation
        ({-}+\
        # If there was more than one unique difference, look for a multiplication
        {
            ;
            # [x0 ... xN] L [[xi x{i+1}][x{i+L} x{i+L+1}]...]
            # Do something similar, but working out multiplicative factors
            # Note that if we have [0 0] it could be multiplication by anything, so we remove it.
            # However, they can't all be [0 0] or we'd have only one unique difference
            {
                # [0     0   ] =>
                # [0     _   ] => 0     # a "false" value, because it can't possibly be multiplication
                # [a     a.b'] => {b'*}
                # [a'.b  b   ] => {a'/}
                # [_     _   ] => 0     # ditto
                # This is the obvious place to look for further improvements
                .0={.~\%{.~%{;0}{~/{/}+}if}{~\/{*}+}if}{~!{;}*}if
            }%.&
            # If we have one unique multiplication, even if it's false, keep it.
            # Otherwise discard them and replace them with false.
            (\{;;0}/
        }
        # There was only one unique difference. Discard the pairs
        {\;}if
        # operation - one of 0, {d+}, {m*}, {M/}
    }%
    # [x0 ... xN] L [op0 ... op{L-1}]
    # Is any of the operations false, indicating that we couldn't find a suitable operation?
    .{!}%1?
    # [x0 ... xN] L [op0 ... op{L-1}] idxFalse
    # If idxFalse is -1 then all the ops are ok, and we put a false to exit the loop
    # Otherwise one op failed, so we leave the array of ops, which is non-false, to be popped by the do.
    )!{0}*
}do
# [x0 ... xN] L [op0 ... op{L-1}]
\@)\,@%@=~
# op{(len(Xs)-1)%L} (Xs[-1])

私の最初の提出は88文字で次のとおりです。

~]:x;2.{;).(2base(;{[{--}{@*\.!+/}]=}%[x.(;2$]zip\,<{~++}%x,.@[*x\]zip<{~~}%)\x(;=!}do\;

ただし、これはそれぞれの最初のオカレンスから演算を計算しようとするため、演算が乗算または除算であり、引数が最初のラウンドが0の場合、ブレークします。


1
説明を投稿していただきありがとうございます!私はそれらをより理解するために、解剖されたGolfscriptプログラムを探していました。
みぎまる

6

ハスケル、276の 261 259 257 243文字

これが私の非効率的なソリューションです。これは、無制限(および有界)整数で機能します。このソリューションは、正確でない除算(例:)で正しく動作し5 / 2 = 2ます。

import Control.Monad
main=interact$show.n.q read.words
f=flip
q=map
_%0=0
x%y=div x y
s b=[1..]>>=q cycle.(f replicateM$[(+),(*),(%)]>>=f q[-b..b].f)
m l x s=[y!!l|y<-[scanl(f($))(x!!0)s],x==take l y]
n x=(s(maximum$q abs x)>>=m(length x)x)!!0

仕組み:(可能な)操作のすべての可能なシーケンスを作成します。次に、生成されたシーケンスが入力を作成するかどうかを確認するために、数値の入力シーケンスに対してテストします。存在する場合、シーケンス内の次の番号を返します。コードは、最短の操作シーケンスから派生した回答を常に返します。これは、操作シーケンスのリストがその順序で生成されるために発生します。関係を決定することはarbitrary意的です(しかし一貫しています)。たとえば、コードはを返す68、シーケンスを返します2 4

ゴルフをしていない:

import Control.Monad

main :: IO ()
main = print . next . map read . words =<< getLine

opSequences :: Integral a => a -> [[a -> a]]
opSequences bound = [1 ..] >>= map cycle . (`replicateM` (ops >>= (`map` args) . flip))
  where
    ops = [(+), (*), \x y -> if y == 0 then 0 else div x y]
    args = [-bound .. bound]

match :: (MonadPlus m, Integral a) => [a] -> [a -> a] -> m a
match ns opSeq = guard (ns == take len ms) >> return (ms !! len)
  where
    n0 = ns !! 0
    len = length ns
    ms = scanl (flip ($)) n0 opSeq

next :: Integral a => [a] -> a
next ns = (opSequences bound >>= match ns) !! 0
  where
    bound = maximum $ map abs ns

正確でない除算を処理する方法の良いアイデア。
ピーターテイラー

それは偶発的な副作用でした。解決策を探すことは、この問題を解決するための最初のアイデアに過ぎませんでした。私にとっては、答えを計算するよりも簡単な作業のように感じました。
トーマスエディング

であるControl.Monad -> Monad可能性?そして、どの程度interact$show.n.q read.words
FUZxxl

6

Pythonの、333 366 ... 315の 303 278 269 261 246文字

n=map(float,raw_input().split())
y=len(n)-1
l=1
def O(f):
 p,q=n[f:y:l],n[f+1::l]
 for a,b in zip(p,q):
    for x in((b-a).__add__,(b/(a or 1)).__mul__):
     if map(x,p)==q:return x
while 1:
 if all(map(O,range(l))):print int(O(y%l)(n[y]));break
 l+=1

最初の数字のペアで操作を作成し、他のペアで確認します。すべての操作を保存し、すべてが成功した場合、リストの最後の要素に適切な操作を適用します。

編集:邪悪なテストに合格:-)次に、すべてのポジションで操作を検索します。


いいね 私のすべてのテストに合格しましたが、ピーターテイラーの特に邪悪なテストには合格していません0 0 1 2 3 6 7 14
ガレス

0 0 0 0 1 0 0 0 0 1出力しません0
トーマスエディング

@trinithisその入力は仕様に適合していません。操作のシーケンスは、少なくとも1回完全に繰り返す必要があります。
ガレス

1
うーん、ここに楽しい改善があります:lambda x:x+b-a-> (b-a).__add__。残念なことに、それはたった1人のキャラクターです。私はこれらを行うことでpythonについて多くを学んでいます。
無知

1
l暗黙的にグローバルを作成すると、大幅に節約できます:pastie.org/2416407
Clueless

4

Pythonの、309の 305 295 279文字

オリジナルのすべてのテストケースと、Peter Taylorの厄介なテストケースを処理します0 0 1 2 3 6 7 14

l=map(int,raw_input().split())
i=v=0
while v<1:
 v=i=i+1
 for j in range(i):
    p=zip(l[j::i],l[j+1::i])
    d,r=set(q[1]-q[0]for q in p),set(q[1]*1./(q[0]or 1)for q in p if any(q))
    m,n=len(d)<2,len(r)<2
    v*=m+n
    if(len(l)-1)%i==j:s=l[-1]+d.pop()if m else int(l[-1]*r.pop())
print s

Ungolfed、デバッグ出力(正確さを確認するのに非常に役立ちます):

nums = map(int,raw_input().split())
result = None

for i in range(1,len(nums)/2+1):
    print "-- %s --" % i
    valid = 1
    for j in range(i):
        pairs = zip(nums[j::i], nums[j+1::i])
        print pairs

        diffs = [pair[1] - pair[0] for pair in pairs]
        # this is the tough bit: (3, 6) -> 2, (0, 5) -> 5, (5, 0) -> 0, (0, 0) ignored
        ratios = [float(pair[1])/(pair[0] or 1) for pair in pairs if pair[0] != 0 or pair[1] != 0]

        if len(set(diffs))==1:
            print "  can be diff", diffs[0]
            if (len(nums) - 1) % i == j:
                result = nums[-1] + diffs.pop()
        elif len(set(ratios))==1:
            print "  can be ratio", ratios[0]
            if (len(nums) - 1) % i == j:
                result = int(nums[-1]*ratios.pop())
        else:
            print "** invalid period **"
            valid=0
    if valid and result is not None:
        break

print result

使用法:

echo 0 0 1 2 3 6 7 14 | python whatcomesnext.py

厳密に言えば、入力はコマンド引数ではなくstdinを介して行う必要があります。
ガレス

それにより、実際にプログラムを4文字短縮できます:)
無知

少数の文字、i = v = 0およびv == 0の場合:
アンテ

@Anteありがとう、割り当ては式ではないので、Pythonではできないと思いましたが、それはゴルフに役立つヒントです。第2レベルのインデントとしてのリテラルタブも役立ちます。
無知

私はPythonerではありませんが、いくつかの式ではブール値を整数として使用しているようですが、whileテストでは整数vをブール値として使用できません。そうですか?もしそうなら、確かにv<1ガードとして機能します。
ピーターテイラー

2

ルビー1.9 (437) (521) (447)(477)

「悪」を含むすべてのテストケースで機能します。もっと後でゴルフします。

編集:私は適切に処理していない別のケースがあることに気付きました-継続が「ミステリー」操作を使用する必要があるとき。シーケンス2 0 0 -2 -4 -6は、-12ではなく0を最初に返していました。これを修正しました。

編集:さらにいくつかのエッジケースを修正し、コードを447に減らしました。

編集:うーん。次のような他の「悪」シーケンスを処理するコードを追加する必要がありました0 0 0 6 18 6 12

def v(c,q);t=*q[0];q.size.times{|i|f=c[z=i%k=c.size]
f=c[z]=(g=q[z+k])==0??_:((h=q[z+k+1])%g==0?"*(#{h/g})":"/(#{g/h})")if f==?_
t<<=f==?_?(a=q[i];b=q[i+1].nil?? 0:q[i+1];(a==0&&b==0)||(a!=0&&(b%a==0||a%b==0))?b:0):eval(t.last.to_s+f)}
*r,s=t
(p s;exit)if q==r
end
s=gets.split.map &:to_i
n=[[]]
((s.size-1)/2).times{|i|a,b=s[i,2]
j=["+(#{b-a})"]
j<<=?_ if a==0&&b==0
j<<="*#{b/a}"if a!=0&&b%a==0
j<<="/#{a/b}"if a*b!=0&&a%b==0
n=n.product(j).map(&:flatten)
n.map{|m|v(m*1,s)}}

1

スカラ

これは私が思いついた解決策です:

object Z extends App{var i=readLine.split(" ").map(_.toInt)
var s=i.size
var(o,v,f)=(new Array[Int](s),new Array[Double](s),1)
def d(p:Int,j:Array[Int]):Unit={if(p<=s/2){def t(){var a=new Array[Int](s+1)
a(0)=i(0)
for(l<-0 to s-1){o(l%(p+1))match{case 0=>a(l+1)=a(l)+v(l%(p+1)).toInt
case _=>a(l+1)=(a(l).toDouble*v(l%(p+1))).toInt}}
if(a.init.deep==i.deep&&f>0){f^=f
println(a.last)}}
o(p)=0 
v(p)=j(1)-j(0)
t
d(p+1,j.tail)
o(p)=1
v(p)=j(1).toDouble/j(0).toDouble
t
d(p+1,j.tail)}}
d(0,i)
i=i.tail
d(0,i)}

ゴルフをしていない:

object Sequence extends App
{
    var input=readLine.split(" ").map(_.toInt)
    var s=input.size
    var (ops,vals,flag)=(new Array[Int](s),new Array[Double](s),1)
    def doSeq(place:Int,ints:Array[Int]):Unit=
    {
        if(place<=s/2) 
        {
            def trysolution()
            {
                var a=new Array[Int](s+1)
                a(0)=input(0)
                for(loop<-0 to s-1)
                {
                    ops(loop%(place+1))match
                    {
                        case 0=>a(loop+1)=a(loop)+vals(loop%(place+1)).toInt
                        case _=>a(loop+1)=(a(loop).toDouble*vals(loop%(place+1))).toInt
                    }
                }
                if(a.init.deep==input.deep&&flag>0)
                {
                    flag^=flag
                    println(a.last)
                }
            }
            ops(place)=0
            vals(place)=ints(1)-ints(0)
            trysolution
            doSeq(place+1,ints.tail)
            ops(place)=1
            vals(place)=ints(1).toDouble/ints(0).toDouble
            trysolution
            doSeq(place+1,ints.tail)
        }
    }
    doSeq(0,input)
    input=input.tail
    doSeq(0,input)
}

どうやって呼び出すのですか?echo "0 0 1 2 3 6 7 14" | scala Sequence画面を黒に保ちます。
ユーザー不明

@user unknown scala Sequenceと入力し、シーケンスを入力してEnterキーを押します。
ガレス

ああ、あなたは質問のコメントに書いた、あなたはこの特定の問題を解決しない-それはエコーで動作する-解決可能な質問のために上記のようにパイプする。
ユーザー不明

1

Scala 936

type O=Option[(Char,Int)]
type Q=(O,O)
type L=List[Q]
val N=None
def t(a:Int,b:Int):Q=if(a>b)(Some('-',a-b),(if(b!=0&&b*(a/b)==a)Some('/',a/b)else N))else
(Some('+',b-a),(if(a!=0&&a*(b/a)==b)Some('*',b/a)else N))
def w(a:Q,b:Q)=if(a._1==b._1&&a._2==b._2)a else
if(a._1==b._1)(a._1,N)else
if(a._2==b._2)(N,a._2)else(N,N)
def n(l:L):Q=l match{case Nil=>(N,N)
case x::Nil=>x
case x::y::Nil=>w(x,y)
case x::y::xs=>n(w(x,y)::xs)} 
def z(l:L,w:Int)=for(d<-1 to w)yield
n(l.drop(d-1).sliding(1,w).flatten.toList)
def h(s:L):Boolean=s.isEmpty||(s(0)!=(N,N))&& h(s.tail)
def j(s:L,i:Int=1):Int=if(h(z(s,i).toList))i else j(s,i+1)
def k(b:Int,o:Char,p:Int)=o match{case'+'=>b+p
case'-'=>b-p
case'*'=>b*p
case _=>b/p}
val e=getLine 
val i=e.split(" ").map(_.toInt).toList
val s=i.sliding(2,1).toList.map(l=>t(l(0),l(1)))
val H=n(s.drop(s.size%j(s)).sliding(1,j(s)).flatten.toList)
val c=H._1.getOrElse(H._2.get)
println (k(i(i.size-1),c._1,c._2))

なし:

type O = Option[(Char, Int)]

def stepalize (a: Int, b: Int): (O, O) = (a > b) match {
   case true => (Some('-', a-b), (if (b!=0 && b * (a/b) == a) Some ('/', a/b) else None)) 
   case false=> (Some('+', b-a), (if (a!=0 && a * (b/a) == b) Some ('*', b/a) else None)) }

def same (a: (O, O), b: (O, O)) = {
  if (a._1 == b._1 && a._2 == b._2) a else
  if (a._1 == b._1) (a._1, None) else 
  if (a._2 == b._2) (None, a._2) else 
  (None, None)}

def intersection (lc: List[(O, O)]): (O, O) = lc match {
  case Nil => (None, None)
  case x :: Nil => x
  case x :: y :: Nil => same (x, y)
  case x :: y :: xs  => intersection (same (x, y) :: xs)} 

def seriallen (lc: List[(O, O)], w: Int= 1) =
  for (d <- 1 to w) yield 
    intersection (lc.drop (d-1).sliding (1, w).flatten.toList)

def hit (s: List[(O, O)]) : Boolean = s match {
  case Nil => true 
  case x :: xs => (x != (None, None)) && hit (xs)}

def idxHit (s: List[(O, O)], idx: Int = 1) : Int =
  if (hit (seriallen (s, idx).toList)) idx else 
    idxHit (s, idx+1)

def calc (base: Int, op: Char, param: Int) = op match {
  case '+' => base + param
  case '-' => base - param
  case '*' => base * param
  case _   => base / param}

def getOp (e: String) = {
  val i = e.split (" ").map (_.toInt).toList
  val s = i.sliding (2, 1).toList.map (l => stepalize (l(0), l(1)))
  val w = idxHit (s)
  val hit = intersection (s.drop (s.size % w).sliding (1, w).flatten.toList)
  val ci = hit._1.getOrElse (hit._2.get)
  val base = i(i.size - 1)
  println ("i: " + i + " w: " + w + " ci:" + ci + " " + calc (base, ci._1, ci._2))
}

val a="1 3 5 7 9 11"
val b="1 3 2 4 3 5 4 6 5 7 6"
val c="2 6 7 3 9 10 6 18 19 15 45 46"
val d="1024 512 256 128 64 32 16"
val e="1 3 9 8 24 72 71 213 639"
val f="1 2 3 4 5 2 3 4 5 6 3 4 5 6 7"
val g="1 2 4 1 3 9 5 8 32 27 28 56 53 55 165 161 164 656 651 652 1304"
val h="0 0 1 2 3 6 7 14"
val i="0 0 0 0 1 0 0 0 0 1 0"

List (a, b, c, d, e, f, g, h, i).map (getOp)

Peter Taylor's hで惨めに失敗しますが、妥当な時間内にプログラムを修復する可能性はありません。


それはあなたが扱う場合は、それを縮小するために役立つだろう-の特別な場合と+して/の特別なケースとして*?ピーターテイラー(および同様の)入力を渡す私の方法は、シーケンスの最初の数を切り取り、再試行することでした。あなたのプログラムがどのように機能するかを見て、それがあなたのプログラムに役立つかどうかを知る時間はまだありません。
ガレス

私はそれが役立つと思いますが、その特別な場合にのみです。後でヌル乗算を含むシリーズは、-1, 0, 0, 1, 2, 3, 6, 7, 14異なるヒーリングが必要になります。
ユーザー不明
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.