それで、私は自分でコンソールに蛇を印刷するワンライナーを書きました。ちょっと面白くて、どうすればコードを圧縮できるのだろうと思いました...

以下に（短い）出力例を示します。

                +
                 +
                  +
                   +
                   +
                   +
                  +
                   +
                    +
                    +
                    +
                     +
                     +
                      +
                      +
                       +
                      +
                     +
                     +
                    +

仕様は次のとおりです。

• 各行では、単一の非空白文字（好きな方）がコンソールに出力されます。最初は、その左側に29〜31個のスペースが埋め込まれます。
• 各反復で、これら3つのアクション間でランダムな決定が行われます
  • パディングの量は1ずつ減少します
  • パディングの量は同じままです
  • パディングの量は1ずつ増加します

これを30回実行して、30セグメント長の蛇をコンソールに出力します。

バイト単位の最短回答が優先されます。

05AB1E、15 14バイト

30DF2Ý<+ΩD0sú,

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

を使用し0ます。

説明

30DF2Ý<+ΩD0sú,
30D            # Push 30 to the stack (One for the amount of iterations we are going to perform and one for the initial padding)
   F           # Pop one of the 30s and perform the following that many times...
    2Ý          # Push [0,1,2] ...
      <         # and create [-1,0,1] from that
       +        # Add the last padding to every entry (e.g. 30 in the beginning resulting in [29,30,31]
        Ω       # Pick one of the results at random ...
         D      # and push it to the stack twice
          0     # Push 0 (Any character will work fine here) ...
           sú   # and pad it with the randomly chosen amount of spaces in the front
             ,  # Finally print the result with a trailing newline

ランダムBrainfuck、123の122 121バイト

+[--[<]>>+<-]>+[->+>+>+<<<]++++++++++>>++<[>>[->+<<.>]>[-<+>]>?>+++<[>->+<[>]>[<+>-]<<[<]>-]>-->,<[-<<<+>>>]<<<<+.-<<.>-]

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

Random BrainfuckはBrainfuckの拡張機能で?、現在のセルをランダムバイトに設定するコマンドが追加されています。これは!sで作られた蛇を印刷します。これは、面白くて蛇よりも足跡のように見えます。

使い方：

+[--[<]>>+<-]>+ Create the value 30
[->+>+>+<<<]    Copy it three times
++++++++++      Create a newline cell
>>++<            Adds 2 to the second copy to make it a space and move to the counter
[ While counter
  >>[->+<<.>]>[-<+>] Print out the padding cell number of spaces
  ?>+++<[>->+<[>]>[<+>-]<<[<]>-] Get 3-(random byte%3)
  >-->,<[-<<<+>>>]   Add (result-2) to the padding cell
  <<<<+.-<           Print an exclamation mark
  <<.                Print a newline
  >-                 Decrement counter
] end loop

精神ではなく、質問の文字にこだわる別の解決策。

87バイト

+[--[<]>>+<-]>+[->+>+>+<<<]++++++++++>++>[>[->+<<<.>>]>[-<+>]?[,<+>]?[,<->]<<<+.-<.>>-]

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

これは、パディングをそのままにする方向に大きく偏っていますが、パディングの増減はどちらも等しく可能です。それぞれに、発生する可能性は256分の1未満です。

C（gcc）、61 58 56バイト

ルールの変更を反映するように編集された回答...

i;f(s){for(s=i=31;--i;printf("%*d\n",s+=1-rand()%3,8));}

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

網膜、24バイト

30* +
-29{¶<`^
 
S,2@1`

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

説明

30* +

作業文字列を最初の行、つまり30個のスペースとaに初期化します+。

-29{¶<`^
 

2行目にスペースがあります。-29{プログラムの残りの部分をループでラップし、29回実行します。¶<各ループの繰り返しの先頭に作業文字列を末尾の改行とともに出力します。アトミックステージ自体は、文字列の先頭にスペースを挿入します（基本的な考え方は、スペースを1つ挿入し、0〜2個のスペースをランダムに削除することです。

S,2@1`

これにより、空の正規表現が入力と照合され、文字間のすべての位置（および文字列の開始と終了）が得られます。次に,2、最初の3つの一致、つまりゼロ、1、2つのスペースの後の一致のみを保持します。@これら3つの一致からランダムに1つを選択します。次に、分割ステージ（S）がその一致の周りで入力を分割します。そして、1分割の2番目の部分のみを保持するように指示します。つまり、ランダムマッチまですべてを破棄します。

最終ループ反復の結果である30行目は、プログラムの最後に暗黙的に出力されます。

VBA、60 59 49バイト

For l=1To 30:?Spc(30+i)"+":i=i+Sgn(Rnd()-.5):Next

イミディエイトウィンドウに貼り付けて、Enterキーを押します。（明示的な宣言がオフになっていることを確認してください！）

行にとどまるよりも移動する可能性がはるかに高い（つまり、アクションの重みが等しくない）が、それは指定された要件ではありませんでした（幸いなことに！）

{編集} との間のスペースを削除して1バイトを保存=1しましたTo

{ EDIT2 } Remoelのコメントのおかげで10バイト節約

古いバージョン：

'V1
i=30:For l=1 To 30:?String(i," ")&"+":i=i+Sgn(Rnd()-.5):Next
'V2
i=30:For l=1To 30:?String(i," ")&"+":i=i+Sgn(Rnd()-.5):Next

C＃（.NET Core）、112 110 106 100 99 98バイト

v=>{var r="";for(int t=30,i=t;i-->0;r+="+\n".PadLeft(t+=new System.Random().Next(3)-1));return r;}

@raznagulのおかげで-1バイト。@auhmaanの
おかげで-1バイト。

説明：

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

v=>{                      // Method with empty unused parameter and no return-type
  var r="";               //  Result-string, starting empty
  for(int t=30,           //  Temp-integer, starting at 30
      i=t;i-->0;          //  Loop 30 times
    r+=                   //   Append the result-String with:
       "+\n"              //    The character and a new-line,
            .PadLeft(     //    left-padded with `t` spaces,
                     t+=new System.Random().Next(3)-1));
                          //    after `t` first has been changed with -1, 0, or 1 randomly
  return r;}              //  Return the result-string

C、56バイト

n;f(p){n>29?n=0:f(printf("%*d\n",n++?p-rand()%3:31,0));}

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

説明：

n; // As a global variable, n is initialized to zero.
f(p)
{
    // Call the function recursively until n > 29.
    n > 29

        // At the end, set n back to zero.
        ? n=0

        // On the first iteration, n == 0 and p has an indeterminate value.
        // 'n++ ? p-rand()%3 : 31' returns 31 (without reading p), and thus
        // 30 spaces get printed. printf() returns the number of characters
        // printed, 32 (30 spaces + '0' + '\n').
        //    On subsequent iterations, p has the value the previous printf
        // call returned, which is the padding on last iteration + 2. Also,
        // n > 0, so the same expression now returns p-rand()%3, and thus
        // the padding changes either by -1, 0, or 1 spaces. The function
        // is again called with the value of the current line's padding + 2.
        : f(printf("%*d\n", n++ ? p-rand()%3 : 31, 0));
}

C（gcc）、55バイト

n;f(p){n=n<30&&f(printf("%*d\n",n++?p-rand()%3:31,0));}

関数のnに割り当てられた値を「返す」fに依存します。これは未定義の動作ですが、最適化が有効になっていない場合はgccと一貫して動作します。

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

JavaScript（ES8）、63 62 60バイト

末尾の改行が含まれます。1バイトの節約のため*2-1に置き換えることができます-.5が、各行が前の行と同じ長さである可能性は大幅に増加します。もちろん、チャレンジで「ランダム」が定義されていないため、合計バイト数が55のRNG に置き換えることができます。new Date%3-1

f=(x=y=30)=>x?``.padEnd(y+=Math.random()*2-1)+`+
`+f(--x):``

名前をキャッチする前にコメントを削除してくれた誰かに感謝しました。私は実際にそれをこのようにしようとしただろうrepeatし、padStartしかししようとするとは思いませんでしたpadEnd-なぜ知りません！

o.innerText=(
f=(x=y=30)=>x?``.padEnd(y+=Math.random()*2-1)+`+
`+f(--x):``
)()

<pre id=o>

ボーナス

同じバイト数の場合、入力として開始スペースと反復の数を取るバージョンがあります。

f=(x,y=x)=>x?``.padEnd(y)+`+
`+f(--x,y+Math.random()*2-1):``

o.innerText=(
f=(x,y=x)=>x?``.padEnd(y)+`+
`+f(--x,y+Math.random()*2-1):``
)(i.value=30);oninput=_=>o.innerText=f(+i.value)

<input id=i type=number><pre id=o>

Java 8、89 87バイト

最初のゴルフは、もっと良くなると確信しています。

編集：Steadyboxのおかげで最初の行が修正されました。

l->{for(int a=31,b=a;--a>0;){System.out.printf("%"+b+"c\n",'+');b+=2-Math.random()*3;}}

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

 l->{                                           //Begin lambda
    for(int a=31,b=a;--a>0;)                  //Initialise vars, loop through 30 lines
    {
        System.out.printf("%"+b+"c\n",'+');     //Print result
        b+=2-Math.random()*3;                   //Change padding by -1, 0, or 1
    }

Python 2、 83の 65、64バイト

簡単なアプローチ：

import os
k=30
exec"print' '*k+'+';k+=ord(os.urandom(1))%3-1;"*k

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

いくつかのバイトを保存してくれた@Rodに感謝します！-1バイトの@ovsに感謝します！

編集：変数名と出力文字列を文字「s」に変更

88バイトのヘビのような出力：

from random import*
s=[30,0]
exec"print' '*sum(s)+'(S)'[s[-1]+1];s+=[randint(-1,1)];"*30

APL（Dyalog）、20バイト

ngnのおかげで1バイト節約

↑'+'↑⍨¨-+\30,2-?29⍴3

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

炭、14バイト

× ³⁰Ｆ³⁰«↙+Ｍ‽³→

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

× ³⁰            Print 30 spaces (forces the desired indentation)
    Ｆ³⁰«        Repeat 30 times
        ↙+      Print a `+` and move down and left one square
          Ｍ‽³→  Move right a random number of squares from 0 to 2

初期インデントの要件がなかった場合、わずか10バイトになります。

PHP、61バイト

for($p=32;$i<30;$i++)echo str_pad("+
",$p+=rand(-1,1),' ',0);

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

ジャワ8、131の 129 127 126 119 108 101バイト

v->{String r="";for(int i=30,j,t=i;i-->0;r+="+\n")for(j=t+=Math.random()*3-1;j-->0;r+=" ");return r;}

説明：

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

v->{                     // Method with empty unused parameter and String return-type
  String r="";           //  Result-String, starting empty
  for(int i=30,j,t=i;    //  Two index integers, and a temp integer (starting at 30)
      i-->0;             //  Loop 30 times:
      r+="+\n")          //    After every iteration: Append the character and a new-line
    for(j=t+=Math.random()*3-1;
                         //   Change `t` with -1, 0, or 1 randomly
        j-->0;r+=" ");   //    And append that many spaces to the result-String
  return r;}             //  Return the result-String

古い119バイトの回答：

v->{String s="",r=s;int i=90,t=30;for(;i-->t;s+=" ");for(;i-->0;t+=Math.random()*3-1)r+=s.substring(t)+"+\n";return r;}

説明：

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

v->{                      // Method with empty unused parameter and String return-type
  String s="",            //  Temp-String, starting empty
         r=s;             //  Result-String, starting empty
  int i=90,t=30;          //  Temp integer, starting at 30
  for(;i-->t;s+=" ");     //  Fill the temp String with 60 spaces
  for(;i-->0;             //  Loop 30 times:
      t+=Math.random()*3-1//    After every iteration: Change `t` with -1, 0, or 1 randomly
    r+=s.substring(t)     //   Append the result with `60-t` amount of spaces
       +"+\n";            //   + the character and a new-line
  return r;}              //  Return the result-String

R、72 69 67バイト

cat(sprintf(paste0("% ",cumsum(c(30,sample(3,29,T)-2)),"s"),"+\n"))

モーザロに感謝に2バイト追加して！

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

Japt、13バイト

行の配列を返します。

30ÆQù1nH±1n3ö

試して

説明

30Æ               :Create the range [0,30) and pass each through a function
   Q              :  The " character
    ù             :  Pad start to length...
           3ö     :    Random element from the range [0,3)
         1n       :    Subtract 1
       H±         :    Add the result of that to H (inititally 32)
     1n           :    Subtract 1 to avoid the possibility of the first line being 33 characters long in total

ボーナス

2バイト少ない場合、開始スペースと反復の数を入力として受け取るバージョンがあります。

U°ÆQùU±1n3ö

それを試してみてください

代替RNG

最後の4バイトは、次のいずれかに置き換えることができます。

MrJ1     :A random float between -1 and 1
Jõ ö     :Generate the range [-1,1] and return a random element
3ö É     :An alternative way of writing the method used above
½nMr     :0.5 subtracted from a random float between 0 and 1

Swift、101バイト

import UIKit
var g=29;for _ in 0...g{print((0..<g).map{_ in" "}.joined(),0);g+=Int(arc4random()%3)-1}

説明

完全なプログラム。これはかなり奇妙なトリックを使用しています：モジュールのarc4random()メンバーですが、この関数がインストールされているため、バイトを節約できます:)また、Swiftゴルフのヒントの 1つを使用して、任意の回数文字列を繰り返します。DarwinUIKit

import UIKit        // Imports the UIKit module, necessary for the RNG.
var g=29;           // Declares an integer variable g by assigning it to 30.
for _ in 0 ... g {  // Execute the code block 30 times (for each integer in [0; g]):
 print(             // Output the following:
  (0..<g).map       // For each integer in [0; g)...
   {_ in" "}        // ... return a literal space character. 
    .joined()       // ... And join the result to a single string.
             ,0     // Also print a "0" preceded by a single space (g starts from 29).
 );
g+=                 // Increment the variable g by...
   arc4random()%3   // ... A random integer, modulo 3...
   Int(...)-1       // ... Casted to an integer (yes, this is needed!) and decremented.
}

Perl、36バイト

perl -E '$#a=29;map{$#a+=rand(3)-say"@a -"}@a'

R、 54 53バイト

cat(sprintf('
%*s',cumsum(c(30,sample(3,29,T)-2)),0))

上記と同様のアイデアですが、sprintfコードが短く、文字列リテラルが短くなっています。\n（2バイト）の代わりに、リテラルの改行（1バイト）を使用しています。

Try it online!

ルビー、45 39バイト

x=30
x.times{puts' '*(x+=rand(3)-1)+?S}

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

xループ中に変更しても、ループカウンターには影響しません。私は特にヘビのような出力キャラクターとしてSを選びました。

-6バイト：のrand(3)-1代わりに使用します[-1,0,1].sample。ありがとう、エリック・ダミニル！

SenseTalk、237 198バイト

これは、約10年前に私が知って愛するようになった言語です。自動テストツールEggplant Functionalを駆動するのはスクリプト言語です。しばらく入社する前、私は長年ツールの熱心なユーザーでした。それは最もゴルフに対応した言語ではありませんが、書くのはとても楽しいと思います。言語は冗長で英語に似ていることを意図しているので、実際にゴルフをするのは非常に難しいです... 237バイトまで。

set s to "                              +"&lf
set p to s
repeat 30
set a to random(0,2)
if a equals 0
delete first char of p
else if a equals 1
put " " before p
end if
put p after s
end repeat
put s

非ゴルフ/説明

set the_snake to "                              +"&lf #assign the first line of the snake
set previous_line to the_snake                        #set up for the loop

repeat 30 times                                       #loop 30x
    set action to random(0,2)                         #random add/subtract/stay the same

    if action equals 0
        delete the first character of previous_line   #SenseTalk really shines at string manipulation
    else if action equals 1
        put " " before previous_line                  #insert a character at the beginning
    end if

    put previous_line after the_snake                 #plop the new segment into the string
end repeat                                            #close the loop

put the_snake                                         #print to standard out

編集：@mustachemosesのおかげで36バイトを保存しました

J、23バイト

echo(8":~+/)\31,1-?29$3

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

PowerShell、42バイト

1..($l=30)|%{" "*$l+"x";$l+=-1,0,1|Random}

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

から1にループし$l=30ます。各反復では、$lスペースとxパイプラインを文字列としてパイプライン上に配置し、次に次のループのイント+=に-1, 0, 1基づいています。これらの文字列はパイプラインから収集され、暗黙的に改行で区切られたリストが無料で提供されます。Get-Random$lWrite-Output

バッシュ、53

• @Dennisのおかげで3バイト節約

for((i=p=30;i--;p+=RANDOM%3-1));{ printf %${p}s+\\n;}

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

ゼリー、18バイト

1ŒRX+
30ǒС⁶ẋ;€0Y

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

選択された文字は0です。文字のリストのリストを返すことが許可されている場合、そのリストをYドロップして、提出物を17バイトのニラディックチェーンに変えることができます。。代替。

使い方

30Ç'С⁶ẋ;€0Y | Niladicメインリンク。
30 | 30から始まる...
  Ç'С| ...ヘルパーリンクを29回繰り返し、結果をリストに収集します。
             | （このリストには最初の30個が含まれているため、実際には30個の数字があります）。
      ⁶ẋ| リスト内のアイテムごとに、スペースを何度も繰り返します。
        ;€0 | それぞれに0を追加します。
           Y | そして、改行で参加します。
------------- +
1ŒRX+ | モナドヘルパーリンク。または、Çの代わりにµ1ŒRX + µを使用できます。
1 | 文字通り。
 ŒR| -1〜1の対称範囲。
   X + | その中の乱数を選択し、引数に追加します。

ゼリー、16バイト

私とErikのソリューションとJonathanのソリューションを組み合わせることで、これを16バイトまでゴルフできます。選択された文字は1です。

’r‘X
30ǒСṬ€o⁶Y

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

ヘッズアップをしてくれたJonathan Allanに感謝します（上Ṭ€o⁶）。

オクターブ、53 51 50 49バイト

printf('%*d\n',[a=31+cumsum(randi(3,1,30)-2);~a])

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

ループを行わないことで1バイトを節約しました。Octave printfと同様に別のものを保存しましたfprintf。

この新しいコードは、範囲内に30個のランダムな整数の配列を作成します-1:1。次に、配列を累積的に合計し、30を加算して、目的のシーケンスを提供します。

結果はfprintf、「10進数、指定された幅にパディングされ、その後に改行が続く」という形式で出力されます。幅は最初の値入力、10進数は2番目の値入力になります。入力値の値がこれより多い場合、Octaveは自動的に印刷を繰り返して、目的の出力を取得します。

ループを実現するには、シーケンス配列の間にゼロをインターリーブするだけでよいので、fprintf関数はシーケンスの各値を幅として使用し、各ゼロを印刷する数字として使用します。

次のような出力を印刷します。

                              0
                             0
                              0
                             0
                              0
                               0
                              0
                               0
                              0
                              0
                             0
                            0
                           0
                           0
                           0
                          0
                           0
                            0
                             0
                              0
                              0
                             0
                             0
                              0
                               0
                              0
                              0
                               0
                               0
                                0

上記のコードは、最初の行に常に正確に30個のスペースを印刷するとは限りません。29、30、または31のいずれかになります。それを修正するには、この53バイトバージョンを使用します。

x=31;for i=2:x;fprintf('%*d\n',x,0);x+=randi(3)-2;end

ルア、 81 75バイト

n=30;for i=1,n do print(("%-"..n.."s+"):format(" "))n=n-2+math.random(3)end

でto_exp 1バイトを保存し、ループに入る前に一度だけ評価されます。for i=1,n ... n

-6 @ user202729に感謝

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

パイソン3.6、84の 73 69バイト

from random import*
x=30
exec("print(' '*x+'+');x+=randint(-1,1);"*x)

-11バイトの@WheatWizardに感謝します。-4バイトの@JoKingに感謝します。

ES5、 97 95 81バイト

for(p=i=30;i--;)console.log(Array(p).join(" ",r=Math.random()*3|0,p+=r>1?-1:r)+0)

ES5、 112関数形式が必要な場合は98バイト：

function a(){for(p=i=30;i--;)console.log(Array(p).join(" ",r=Math.random()*3|0,p+=r>1?-1:r)+0)}a()

赤、54バイト

loop n: 30[loop n[prin" "]print"+"n: n - 2 + random 3]

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