Wiseは、私がしばらく前に設計した単純なビット単位の言語です。Pythonのビット演算に基づいています。いくつかの操作があり、これらのほとんどはPythonの同等のシンボルと同じか、非常に似ています。

• : スタックの一番上を複製する

• ? スタックの上部を下部に回転させます

• ! スタックの下部を上部に回転させます

• [ ] スタックの最上部がゼロでないときにループする

• ~スタックの最上部ではない（-(n+1)）

• -スタックのトップを無効にします（-n）

• >スタックの一番上を一度右にビットシフトします（n//2）

• <スタックの一番上を一度左にビットシフトします（n*2）

• ^xorスタックの上位2項目（Pythonと同じ）

• |またはスタックの上位2項目（Pythonと同じ）

• &スタックの上位2項目（Pythonと同じ）

Wiseで整数を作成するのは非常に簡単で、ゼロを作成し::^て増分できる~-ので、ゼロを作成して何度も増分できます。しかし、-物事を削除すると、もう少し面白くなります。

残りの操作を使用して、すべての番号を作成できます。たとえば、ここは3です

~<<~

TIO

これ~は、無限の0ビット列であるゼロを負のビット、無限のビット列に変換し1、それぞれが最後にビットを<追加する0ために機能します。終了すると、~それぞれ0が2つ1のsが続くsの文字列になります、またはほとんどの人がそれを呼ぶように3。

仕事

正の整数を指定すると、そのソース（出力のソース、独自のソースで使用可能）nなしで数値を作成するWiseプログラムを出力するプログラムを作成します。スタックの先頭に既にゼロがあると仮定することができます。--

これはメタゴルフで はなく コードゴルフなので、必ずしも出力ではなくソースコードの生成を最小限にすることを目指してください。

出力例

このリストは網羅的ではなく、単に可能な出力です

1  -> ~<~
2  -> ~<~<
3  -> ~<<~
4  -> ~<~<<
5  -> ~<~:<<|
6  -> ~<<~<
7  -> ~<<<~
8  -> ~<~<<<
9  -> ~<~:<<<|
10 -> ~<~:<<|<
11 -> ~<<~:><<<|
12 -> ~<<~<<
13 -> ~<<~:<<<|>
14 -> ~<<<~<
15 -> ~<<<<~
16 -> ~<~<<<<

Japt、10バイト

¤d0'<1"~<~

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

基本的な考え方：数のバイナリ表現を取り、マップ0に<して1まで~<~。1-10の出力：

 1: ~<~
 2: ~<~<
 3: ~<~~<~
 4: ~<~<<
 5: ~<~<~<~
 6: ~<~~<~<
 7: ~<~~<~~<~
 8: ~<~<<<
 9: ~<~<<~<~
10: ~<~<~<~<

JavaScript（ES6）、34 33バイト

f=n=>n?f(n&1?~n:n/2)+'<~'[n&1]:''

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

任意の32ビット整数で機能します。

Haskell、38バイト

PPCGがHaskellを本当に改善しているように感じます。白猫をストロークします。

f n=mapM(["<","~<~"]<$f)[1..n]!!n>>=id

fを取り、Intを返しますString。

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

（<$fちなみに私はそれを参照しています。それは、文字を保存し\_->ます。）

（typeの関数）のFunctorインスタンスには、次のものがあります。唯一の制限はそれで、最終版は同じソースタイプを使用する必要があります。インスタンスは完全に遅延しているため、これは評価されません。(->) aax <$ f = fmap (const x) f = const x . f = const xfconst xaf

または、長さは同じで悪さは少ない（(l!!)匿名関数）：

(l!!)
l=(++)<$>"":tail l<*>["<","~<~"]

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

これらの両方は、@ ETHproductionsのJapt回答と同じ表現を使用しますが、特に最初の回答では、最初にいくつかの冗長なものが提供される場合があります<。

最初のものはn "<"、"~<~"文字列と文字列のすべての組み合わせを計算し、結果のリストにインデックスを付けます。

2番目のものは、リストに既にある各要素にを""追加"<"して"~<~"文字列を追加することで、新しい要素を作成することで形成される無限リストを再帰的に計算します（実際には、""を有効にするために少し短くなりまし"<"た）。

ルビー、118の 116 109 107 105 91バイト

cyoceのおかげで2バイト節約できました！

->n{o={0=>""}
o.dup.map{|c,k|["~~c","<c*2"].map{|t|o[eval t[1..9]]=k+t[0]}}until o[n]
o[n]}

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

これは、整数を入力として受け取り、その整数を表す文字列をWiseで返す関数です。ここでは、1からすべての整数でこのプログラムをテストする、無料版を見つけることができます。

基本的な考え方は、定数の「プール」を記録することです。次に、「ステップ」ごとに、可能な機能ごとに定数がプールに追加されます。私は、機能を選択している~、<と>私はすべての数を表すのに十分であると信じています、。（少なくとも、10,000未満のすべての数字。）

Python2、54 52 51バイト。

lambda x:'<'.join('>~<~'*int(i)for i in bin(x)[2:])

2バイトを節約してくれたWheat Wizardと、1バイトのØrjanJohansenに感謝します！これはETHproductionのJapt回答と同じアイデアを使用しますが、置換文字列が異なります（つまり、バイナリ表現を使用）

05AB1E、11バイト

bS'<…~<~‚èJ

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

ETHproductionsのJapt回答に似ています。

@Adnanのおかげで4バイト節約されました！

パイソン2、123の 110バイト

def w(x):a=map(int,bin(x)[2:]);return x%2*("~<~:<"+"<".join(":"*e for e in a[-2::-1])+"|"*sum(a))or w(x/2)+"<"

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

としても lambda

w=lambda x:x%2*("~<~:<"+"<".join(":"*int(e)for e in bin(x)[-2:2:-1])+"|"*sum(map(int,bin(x)[2:])))or w(x/2)+"<"

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

短くすることもできますが、これが私の解決策です。バイナリ表現を受け取り、コードに変換します。

Japt、23バイト

?Uu ?ß~U +'~:ßU/2 +'<:P

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

ゼリー、11 10バイト

Bị“~<~“<”F

これはETHproductionsのJaptの回答の移植版です。ETHproductionsといえば、彼らは私を1バイト節約しました！