25

今日の課題は、すべての整数を列挙するシーケンスの特定の用語を出力することです。シーケンスは次のとおりです。シーケンスf(n)を生成する0インデックス関数ceil(x)があり、これがシーリング関数である場合f(0) = 0、; abs(f(n)) = ceil(n/2); およびが両方とも偶数または両方が奇数のsign(f(n))場合は正です。nceil(n/2)

このシーケンスを理解しやすくするために、最初のいくつかの用語は次のとおりです。 0 1 -1 -2 2 3 -3 -4 4 5 -5 -6 6 7 -7...

あなたの仕事は、整数を取り、シーケンスのth項をn出力するプログラムを書くことnです。入力は0または1インデックスのみです。

テストケース（0から始まる）：

0  =>  0
1  =>  1
2  => -1
3  => -2
4  =>  2
5  =>  3

これはcode-golfで、最少バイトが勝ちます！

code-golf sequence integer

— パベル
ソース

SOGL V0.12、8つの 6 バイト

I».»⌡±

ここで試してみてください！または、最初の数を試してください（少し変更して動作するように）
0インデックスを付けます

説明：

I       increment the input
 »      floor divide by 2
  .     push the original input
   »    floor divide by 2
    ⌡   that many times
     ±    negate

またはもっと簡単：

(input + 1) // 2 negated input // 2 times
        I     »     ±      .     »    ⌡

— ザイマ
ソース

3

それは一分もかからなかった！

— NieDzejkob

6

私は».»電話でいますI».»⌡±。

— ジョナサンアラン

@JonathanAllanわかりません。_。

— パベル

9

パイソン2、26の 24バイト

lambda x:-~x/2/(1-(x&2))

オンラインでお試しください！

— ハルバード・フンメル
ソース

1

-~-(x&2)最終分母に使用してバイトを保存できます。

— 再帰的

5

JavaScript（ES6）、18バイト

1インデックス付き。

n=>n/(++n&2||-2)|0

デモ

コードスニペットを表示

let f =

n=>n/(++n&2||-2)|0

for(n = 1; n < 20; n++) {
  console.log(n + ' --> ' + f(n))
}

スニペットを展開

— アーノールド
ソース

4

C、25バイト

f(n){return~n/2*~-(n&2);}

— orlp
ソース

キーワードreturnを使用する代わりに、戻り値を最初のパラメーターに割り当てることにより、4バイトを節約できます。f(n){n=~n/2*~-(n&2);}

— cleblanc

5

@cleblancそれはCの仕組みではありません。

— orlp

2

gcc -O0x86-64の場合、@ cleblancのバージョンをコンパイルして、乗算結果eax（godbolt.org/g/dztKPV）を残す命令が発生しますが、x86-64 gcc -O0Cの答えではなく答えになります。私は、最適化を有効にすると壊れるCの回答、特に戻り値のがらくたとしての愚かな最後の式には賛成票を投じません。それがgccの動作方法であっても、Cの動作方法ではありません。

— ピーターコーデス

naポインターを作成します。元の値と最終値がスタックにない場合、最適化は必要ありません。

— mreff555

1

@ mreff555これは非標準の（許容できるものの）IOメソッドであり、これより短いものではありません。

— orlp

4

Haskell、26バイト

f x=div(x+1)2*(-1)^div x 2

オンラインでお試しください！

他のHaskellの回答は物事を複雑にしすぎているようです…^^

— リン
ソース

3

Pyke、6バイト

heQeV_

ここで試してみてください！

使用dzaimaのアプローチを ... ~~ビート~~ネクタイゼリーを！

説明

h      - Increment the input, which is implicit at the beginning.
 e     - Floor halve.
  Q    - Push the input.
   e   - Floor halve.
    V_ - Apply repeatedly (V), ^ times, using negation (_).
       - Output implicitly.

16進数でエンコードされたバイトは次のようになります68 65 51 65 56 5F。

— Xcoder氏
ソース

3

ゼリー、6バイト

HµĊN⁸¡

オンラインでお試しください！

dzaimaのアルゴリズムを使用します。

-1 ジョナサン・アランに感謝します。

— エリック・ザ・アウトゴルファー
ソース

SOGLはゼリーを破ることができません...？ゴルフを見ます。

— エリックアウトゴルファー

@JonathanAllan duh> _ <

— エリック・ザ・アウトゴルファー

3

Python 2、21バイト

lambda x:-x/2*~-(x&2)

オンラインでお試しください！

— リン
ソース

3

Mathematica、24バイト

(s=⌈#/2⌉)(-1)^(#+s)&

@Misha Lavrovから-14バイト

— J42161217
ソース

1

Booleand OddQを使用すると、奇数を1に、偶数を0に変換する効果がありますが、ここでは必要ありません。-1の累乗により、すべての奇数に対して正しい答えが得られます。あなたはそのステップを削減することができますので、(-1)^Tr@{#,s}またはちょうど(-1)^(#+s)。

— ミシャラヴロフ

3

Haskell、25 43 42バイト

((do a<-[0..];[[-a,a],[a,-a]]!!mod a 2)!!)

オンラインでお試しください！1インデックス付き。

編集：以前のバージョンでは、指摘してくれた@ Potato44のおかげで、間違った順番でサインがありました。18バイトに固定...

編集2： -1バイトのBMOに感謝します！

— ライコニ
ソース

do-notationを使用して1バイトを保存できます。オンライン

— 1

@BMOありがとう！...

— ライコニ

2

Python 3、29バイト

lambda n:-~n//2*(-1)**(n%4>1)

オンラインでお試しください！

— 漏れた修道女
ソース

3

(-1)**(n%4>1)かなり複雑な書き方(1-(n&2))です;）

— orlp

2

Pyth、9バイト

_F/hQ2/Q2

ここで試してみてください！

dzaimaのアプローチを使用します。

— Xcoder氏
ソース

2

Haskell、36バイト

g x=x: -x:g(-x-signum x)
((0:g 1)!!)

オンラインでお試しください！

— ニミ
ソース

2

05AB1E、6バイト

;DîsF(

オンラインでお試しください！

dzaimaのアルゴリズムを使用します。

— エリック・ザ・アウトゴルファー
ソース

2

バッチ、29バイト

@cmd/cset/a"%1/2^(%1<<30>>30)

— ニール
ソース

2

JavaScript（ES6）、18バイト

f=
n=>n/2^(n<<30>>30)

<input type=number min=0 value=0 oninput=o.textContent=f(this.value)><pre id=o>0

スニペットを展開

0インデックス。

— ニール
ソース

2

Javascript、17バイト

n=>~n/2*~-(n&2)^0

コードスニペットを表示

f=
n=>~n/2*~-(n&2)^0

<input type=number min=0 value=0 oninput=o.textContent=f(this.value)><pre id=o>0

スニペットを展開

これは0インデックスです。それは完全にビットごとの策略です。

— 再帰的
ソース

2

通常、23バイト

（1インデックス付き）

FDF'$:7+8/0_0*0-8*7/0%6

オンラインでお試しください！

Cubicallyでコードを記述する際の主な難点は次のとおりです。

書き込み可能な変数は1つだけです。
定数を取得するのは難しいです。

したがって、このソリューションは計算します

((((n+1)/2)%2)*2-1)*n/2

ここで、/整数の除算を示します。必要な一時変数は1つ、定数1と2だけです。

説明：

FDF'$:7+8/0_0*0-8*7/0%6
FDF'                      Set face value of face 0 to 2, and value of memory index 8 (cube is unsolved) to 1 (true = unsolved)
    $                     Read input
     :7                                 input
       +8                                + 1
         /0                        (        ) /2
           _0                     (             ) %2
             *0                  (                  ) *2
               -8                                        -1
                 *7             (                          ) *n
                   /0                                          /2
                     %6   Print

— user202729
ソース

2

TI-Basic（TI-84 Plus CE）、20バイト

‾int(‾Ans/2)(1-2remainder(int(Ans/2),2

のように呼び出される完全なプログラム5:prgmNAME。

TI-Basicはトークン化された言語であり、ここで使用されるすべてのトークンremainder(は2 バイトを除き1バイトです。キー‾とともに入力される正規トークンを表し(-)ます。

例：

0:prgmNAME
 => 0
1:prgmNAME
 => 1
2:prgmNAME
 => -1
#etc

説明：

‾int(‾Ans/2)(1-2remainder(int(Ans/2),2
‾int(‾Ans/2)                           # -int(-X) is ciel(X), so ciel(Ans/2)
                          int(Ans/2)   # int(X) is floor(X), so floor(Ans/2)
                remainder(int(Ans/2),2 # 1 if floor(Ans/2) is odd else 0
            (1-2remainder(int(Ans/2),2 # -1 if floor(Ans/2) is odd, else 1
_int(_Ans/2)(1-2remainder(int(Ans/2),2 # -ciel(Ans/2) if floor(Ans/2) is odd, else ciel(Ans/2)

Y-var関数と同じ式：

Y1= ‾int(‾X/2)(1-2remainder(int(X/2),2

— ピザパンツ184
ソース

2

dc、16バイト

1+d2~+2%2*1-r2/*

DCの0..1から-1..1を短くする方法があると確信していますが、現時点では考えられません。

オンラインでお試しください！

— cab404
ソース

2

Java 8、15バイト

n->~n/2*~-(n&2)

編集：Javaは本当に非ゴルフ言語の最短ですか？！o.Ô

説明：

ここで試してみてください。

何が起こっているかの参照として、以下の表を使用します。

~nに等しい-n-1。
Javaの整数除算は、正の整数で自動的にフロアリングし、負の整数で終了~n/2するため、結果はシーケンスになります0,-1,-1,-2,-2,-3,-3,-4,-4,-5,-5,...
n&2 いずれかの結果になります 02シーケンス内のまたはのかになります0,0,2,2,0,0,2,2,0,0,2,...
~-xに等しい(x-1)ので、~-(n&2)（((n&2)-1)）はシーケンスになります-1,-1,1,1,-1,-1,1,1,-1,-1,1,...
二つの配列を乗算~n/2し、~-(n&2)が、チャレンジで求められる正しいシーケンスです。0,1,-1,-2,2,3,-3,-4,4,5,-5,...

概要表：

n       ~n      ~n/2    n&2     ~-(n&2)     ~n/2*~-(n&2)
0       -1      0       0       -1          0
1       -2      -1      0       -1          1
2       -3      -1      2       1           -1
3       -4      -2      2       1           -2
4       -5      -2      0       -1          2
5       -6      -3      0       -1          3
6       -7      -3      2       1           -3
7       -8      -4      2       1           -4
8       -9      -4      0       -1          4
9       -10     -5      0       -1          5
10      -11     -5      2       1           -5

— ケビン・クルーッセン
ソース

2

Brain-Flak、86 74 72 70バイト

{({}[()]<({}<>([({})]{(<{}([{}]())>)}{}())<>)>)}{}<>{}{<>([{}])(<>)}<>

オンラインでお試しください！

説明

このコードには2つの部分があります。最初の部分

({}[()]<({}<>([({})]{(<{}([{}]())>)}{}())<>)>)}{}

計算のブラウンを行います。決定するceil(n/2)出力を無効にするかどうかをします。

それがどのように機能するかを説明するために、最初に計算方法を説明しますceil(n/2)。これは次のコードで実行できます

{({}[()]<({}([{}]()))>)}{}

これは、カウンターで否定（）を実行するたびにnからカウントダウンし([{}]())、結果にカウンターを追加します。カウンターは時間の半分がゼロであるため、最初の実行から他の実行ごとに増分するだけです。

次に、結果の符号も計算します。これを行うには、別のカウンターを開始します。このカウンターは、最初のカウンターがオフの場合にのみ状態を変更します。そのようにして、目的のパターンを取得します。これらの2つのカウンターをオフスタックに配置して、時間が来たら簡単に移動できるようにします。

計算が終了すると、スタックは次のようになります

          parity(n)
ceil(n/2) sign

したがって、この2番目の部分で目的の結果を得るには、いくつかの作業を行う必要があります。

<>{}{<>([{}])(<>)}<>

— 小麦ウィザード
ソース

1

Perl 5、32 + 1（`-p`）= 33バイト

$_='-'x(($_+++($b=0|$_/2))%2).$b

オンラインでお試しください！

— Xcali
ソース

1

プロトン、23バイト

n=>-~n//2//(-1)**(n//2)

オンラインでお試しください！

ハルバード港のソリューション。

プロトン、23バイト

n=>-~n//2*(-1)**(n%4>1)

オンラインでお試しください！

Port of Leakyのソリューション。

もう少しプロトン、24バイト：

n=>-~n//2*(**)(-1,n%4>1)

— Xcoder氏
ソース

1

QBIC、27 26バイト

g=(:+1)'\2`~(a-g)%2|?-g\?g

説明

g=          set worker var 'g' to
(:+1)           our index (plus one for the ceil() bit)
'\2`            integer divided by 2 (the int div needs a code literal: '..`
~(a-g)%2    IF index - temp result is odd (index 2 minus result 1 = 1)
|?-g        THEN PRINT g negated
\?g         ELSE PRINT g

— ステンバーグ
ソース

1

Clojure 122バイト

ゴルフでも、冗長。私はここで同情投票に行きます... :-)

ゴルフ：

(defn d[n](let[x(int(Math/ceil(/ n 2)))y(cond(or(and(even? n)(even? x))(and(odd? n)(odd? x)))(Math/abs x):else(- 0 x))]y))

ゴルフをしていない：

(defn dizzy-integer [n]
  (let [x   (int (Math/ceil (/ n 2)))
        y   (cond
                (or (and (even? n) (even? x))
                    (and (odd? n)  (odd? x))) (Math/abs x)
                :else (- 0 x)) ]
    y))

— ボブ・ジャービス-モニカの復職
ソース

1

Excel VBA 32ビット、₃₉ 37バイト

セルから入力を受け取りA1、VBEイミディエイトウィンドウに出力する匿名VBEイミディエイトウィンドウ関数

?[Sign((-1)^Int(A1/2))*Int((A1+1)/2)]

A^B64 ビットでは無効であるため、32ビットに制限さA ^Bれます（達成可能な限り近い）

— テイラー・スコット
ソース

間のスペースである(-1)と^[Int必要？

— パベル

少なくとも64ビットバージョンのExcel VBAでは@Pavel、はい。しかし、それは、私はそれが32ビットバージョンのためにないことを誓うが、私は、テストハードウェアのいずれかで、私が手に持つことができないという悲しいかな言った

— テイラー・スコット

@Pavel-32ビットシステム（デフォルトのインストール仕様）で調べましたが、そのシステムではスペースは必要ありません-これを利用するためにソリューションを32ビットに制限しました

— Taylor Scott

1

クール！ただし、修正されたバイトカウントを追加するのを忘れました。

— パベル

おっと、@ Pavelに感謝-今すぐ修正

— テイラースコット

1

ジュリア0.6、16バイト

÷整数除算が必要なことを除けば、これは単なるJavaソリューションです。

n->~n÷2*~-(n&2)

オンラインでお試しください！

— gggg
ソース

めまい整数列挙

SOGL V0.12、8つの 6 バイト

パイソン2、26の 24バイト

JavaScript（ES6）、18バイト

デモ

C、25バイト

Haskell、26バイト

Pyke、6バイト

説明

ゼリー、6バイト

Python 2、21バイト

Mathematica、24バイト

Haskell、25 43 42バイト

Python 3、29バイト

Pyth、9バイト

Haskell、36バイト

05AB1E、6バイト

バッチ、29バイト

JavaScript（ES6）、18バイト

Javascript、17バイト

通常、23バイト

TI-Basic（TI-84 Plus CE）、20バイト

dc、16バイト

Java 8、15バイト

Brain-Flak、86 74 72 70バイト

説明

Perl 5、32 + 1（-p）= 33バイト

プロトン、23バイト

プロトン、23バイト

QBIC、27 26バイト

説明

Clojure 122バイト

Excel VBA 32ビット、39 37バイト

ジュリア0.6、16バイト

Perl 5、32 + 1（`-p`）= 33バイト

Excel VBA 32ビット、₃₉ 37バイト