ドランクールズジャーニーホーム

この課題では、酔っぱらいが酒場から帰る途中でつまずくのをシミュレートするプログラムを作成します。

入力：

入力は、酔っぱらいが通ることができるパスを表す隣接行列（有向グラフを表す）になります。各場所で、酔っぱらいはランダムに1つのパスを選択します（各オプションはほぼ等しいチャンスを持ち、以前の選択とは無関係です）。

酔っぱらいは常にバー（隣接行列の最初の行）から始まると仮定します。

酔っぱらいが行き止まりになった場合、彼は帰宅したか、公的な酔いで逮捕されたと考えられ、プログラムは彼の道を返すはずです。

グラフには常に少なくとも1つの行き止まりが含まれると想定できます。

また、酔っぱらいは常にバーを出ることができ（最初の行はすべてゼロではありません）、酔っぱらいが特定の場所に留まる場合、その行はすべてゼロで表されると想定することもできます。

出力：

出力は、酔っぱらいが家に帰ろうとする試みでたどった経路になります。場所の値は、0または1つのインデックス付きのいずれかです。

例：

Input
[1,0,1,1]
[0,0,0,0]
[1,0,0,0]
[1,1,1,1]

Possible Outputs
[0,2,0,3,2,0,0,3,1]
[0,3,0,3,1]


Input
[0,1,1,1,0,1]
[1,0,1,0,1,1]
[0,0,0,0,0,0]
[0,0,0,0,0,1]
[1,0,0,0,0,0]
[0,0,0,0,0,0]

Possible outputs
[0,1,5]
[0,5]
[0,1,4,0,2]
[0,3,5]
[0,3,0,1,4,0,5]

Deterministic path:

Input
[0,0,1,0]
[0,0,0,1]
[0,1,0,0]
[0,0,0,0]

Output
[0,2,1,3]

Mathematica、72バイト

{1}//.{r___,x_}:>{r,x,n=1;Check[RandomChoice[#[[x]]->(n++&/@#)],##&[]]}&

これは、引数として行列を取り、リストを返す関数です。1インデックスを使用します。

基本的な考え方は、

{1}//.

{1}変更が停止するまで、リストに続くルールを繰り返し適用します。ルールはパターンに一致します

{r___,x_}:>

つまり、「0個以上の要素が呼び出されたr後に、という要素が続くリスト」を意味しますx。これはx現在のリストの最後の要素として与えられ、リストを

{r,x,<stuff>}

これは、<stuff>追加された元のリストです。問題のものは

RandomChoice[#[[x]]->(n++&/@#)]

とる#[[x]]（x重みのリストとして入力行列の番目の要素）を、それらをマッピングするn++&/@#ためのショートである、Range@Length@#（すなわち、{1,2,3,...}適当な長さを有します）。これは、重みがすべてゼロの場合にエラーをスローします。

Check[...,##&[]]

##&[]エラーメッセージが生成された場合に返されます。これは単なるSequence[]「空の」要素として機能する（と{1,2,Sequence[],3}評価される{1,2,3}）ための洗練された方法であるため、リストを変更せずに置き、//.置換を停止させます。

R、72 69 66バイト

function(m,o=1)while({print(o);any(x<-m[o,])})o=sample(which(x),1)

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

入力をlogical行列として受け取り、1ベースのインデックスをコンソールに出力します。

Perl 5の -a0、53の 51バイト

入力行列をSTDINの個別のタイトな文字列として指定します

$!/usr/bin/perl -a0
$n=!say$%;$F[$%]=~s:1:($%)=@-if 1>rand++$n:eg&&redo

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

@Fループボディ中の損傷が、それによって修復されますredo

MATL、15バイト

1`GyY)ft?th1ZrT

出力は1ベースです。

オンラインでお試しください！最初の入力。2番目の入力。3番目の入力。

説明

1          % Push 1: initial value of current row index
`          % Do...while
  G        %   Push input matrix
  y        %   Duplicate from below: pushes copy of current row index
  Y)       %   Get that row
  f        %   Find: push (possibly empty) array of indices of non-zero entries
  t        %   Duplicate
  ?        %   If non-empty
    th     %     Attach a copy of itself. This is needed in case the array
           %     contains a single number n, because then the randsample
           %     function would incorrectly treat that as the array [1 2 ... n]
    1Zr    %     Randsample: pick 1 entry at random with uniform probability
    T      %     Push true
           %   End (implicit)
           % End (implicit). Proceed with a new iteration if the top of the
           % stack is truthy. This happens if the current row had some
           % non-zero entry, in which case true was pushed (and is now
           % consumed). If the current row was all zeros, the top of the stack
           % is an empty array that was produced by the find function, which is
           % falsy (and is also consumed now). In that case the loop is exited,
           % and then the stack contains a collection of numbers which
           % collectively describe the path
           % Implicit display

Perl 6、38バイト

{0,{.[$^l].grep(?*,:k).roll}...^!*.kv}

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

Python、136バイト

randrangeがインポートされていると仮定して、ゼロインデックスを使用します。入力mを隣接行列として受け取ります

113インポートなし

s=lambda m,c=0,p=[0],x=0:1 in m[c]and(m[c][x]and s(m,x,p+[x],randrange(len(m)))or s(m,c,p,randrange(len(m))))or p

136インポートあり

import random as r;s=lambda m,c=0,p=[0],x=0:1 in m[c]and(m[c][x]and s(m,x,p+[x],r.randrange(len(m)))or s(m,c,p,r.randrange(len(m))))or p

ルビー、70 67 65バイト

f=->m,i=0{m[i].sum<1?[]:m[i][x=rand(m.size)]<1?f[m,i]:[x]+f[m,x]}

^{2バイトを節約してくれたbenj2240に感謝します！}

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

JavaScript（ES6）、87バイト

f=(a,y=0)=>[y,.../1/.test(r=a[y])?f(a,(g=_=>r[k=Math.random()*r.length|0]?k:g())()):[]]

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

代替バージョン、81バイト

入力をバイナリ文字列の配列として受け取ります。サポートされる最大サイズは16x16です。

f=(a,y=0)=>[y,...+(r=a[y])?f(a,(g=_=>+r[k=Math.random()*r.length|0]?k:g())()):[]]

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

Java 10、135バイト

m->{var R="0 ";for(int r=0,c,t;;R+=(r=c)+" "){t=0;for(int x:m[r])t+=x;if(t<1)return R;for(t=c=m.length;m[r][c*=Math.random()]<1;)c=t;}}

0インデックス付き

説明：

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

m->{                   // Method with integer-matrix parameter and String return-type
  var R="0 ";          //  Result-String, starting at "0 "
  for(int r=0,         //  Row-integer, starting at 0
          c,           //  Column-integer
          t;           //  Temp-integer
      ;                //  Loop indefinitely
       R+=             //    After every iteration: Append the result with:
          (r=c)+" "){  //     The current column and a delimiter-space,
                       //     And set the current row to this column at the same time
    t=0;               //   (Re-)set `t` to 0
    for(int x:m[r])    //   Loop over the values of the current row
      t+=x;            //    And add them to `t`
    if(t<1)            //   If the entire row only contained zeroes:
      return R;        //    Return the result
    for(t=c=m.length;  //   Set `t` (and `c`) to the size of the matrix
        m[r][c*=Math.random()]<1;)
                       //   Loop until we've found a 1,
                       //   picking a random column in the range [0,`c`)
      c=t;}}           //    Reset the range of `c` to `t` (the size of the matrix)

Haskell、123 118バイト

import System.Random
i#m|sum(m!!i)<1=pure[]|1<2=do{x<-randomRIO(0,length m-1);[i#m,x#m>>=pure.(x:)]!!(m!!i!!x)}
f=(0#)

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

APL（Dyalog Unicode）、32 34バイト

t←⎕
{}{s[?≢s←⍸⍵⊃t]}⍣{~0∊t⊃⍨⎕←⍵}1

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

ネストされたバイナリ配列を入力として受け取ります。各反復を別々の行に出力します。

Python、97 94バイト

f=lambda a,i=0,j=0:sum(a[i])and[i]*a[i][j]+f(a[:],(i,j)[a[i][j]],id(a)**7%~-2**67%len(a))or[i]

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

乱数ジェネレーターの詳細については、この回答を参照してください。

id(a)**7%~-2**67