最も少ないUnicode文字を使用して、3つのパラメーターを受け入れる関数を作成します。

• ドミノの総数
• n影響を受けたドミノ
• 影響を受けるドミノの倒れる方向（0またはL左、1またはR右）

ドミノを倒したら、残りのドミノを同じ方向に倒す必要があります。

あなたは、出力とドミノすべき|スタンディングドミノを表すと\し、/ドミノを表すには、それぞれ左右に倒します。

例

10, 5, 1戻る||||//////
6, 3, 0べきです\\\|||

ルビー、38（46）文字

e=->n,k,r{k-=r;'\|'[r]*k+'|/'[r]*n-=k}

この関数は、方向を整数として取ります（1右、0左）。文字列を受け取る関数は8文字長くなります。

d=->n,k,r{n-=k;r<?r??\\*k+?|*n :?|*~-k+?/*-~n}

使用例：

puts e[10, 5, 1] # or d[10, 5, 'r']
||||//////
puts e[10, 5, 0] # or d[10, 5, 'l']
\\\\\|||||

ハスケル、70

f R i l=(i-1)#'|'++(l-i+1)#'/'
f L i l=i#'\\'++(l-i)#'|'
(#)=replicate

型Directionがあり、コンストラクターRとLがあると仮定します。

J- 32 26文字

Jは、リストを使用せずに3つ以上の引数を処理することはできません。また、ボックス化せずに非同種リストを処理することはできません。したがって、入力を3つの整数のリストとして持つことが理想的です。パラメータの順序は、標準の順序の逆です。左が0、右が1、次に位置、そしてドミノの合計数です。この理由は、Jがそれらを右から左に通過するためです。

{`(('|/\'{~-@>:,:<:)1+i.)/

これが何が起こっているかです。F`G/リストに適用するx,y,zと評価されx F (y G z)ます。y G zドミノが倒れた可能性のある両方の方法を構築し 、2つのうちどちらをF使用xするかを選択するために使用します。

以下は、関数がどのように一緒に構築されるかを説明するJ REPLの前後です。インデントされた行はREPLに入力され、応答は左マージンと同じ高さになります。括弧がない限り、Jは厳密に右から左に評価することを思い出してください。

   1 ] 3 (]) 10            NB. ] ignores the left argument and returns the right
10
   1 ] 3 (] 1+i.) 10       NB. hook: x (F G) y  is  x F (G y)
1 2 3 4 5 6 7 8 9 10
   1 ] 3 (>: 1+i.) 10      NB. "greater than or equal to" bitmask
1 1 1 0 0 0 0 0 0 0
   1 ] 3 (-@>: 1+i.) 10    NB. negate
_1 _1 _1 0 0 0 0 0 0 0
   1 ] 3 (<: 1+i.) 10      NB. "less than or equal to"
0 0 1 1 1 1 1 1 1 1
   1 ] 3 ((-@>:,:<:)1+i.) 10          NB. laminate together
_1 _1 _1 0 0 0 0 0 0 0
 0  0  1 1 1 1 1 1 1 1
   1 ] 3 (('|/\'{~-@>:,:<:)1+i.) 10   NB. turn into characters
\\\|||||||
||////////
   1 { 3 (('|/\'{~-@>:,:<:)1+i.) 10   NB. select left or right version
||////////
   {`(('|/\'{~-@>:,:<:)1+i.)/ 1 3 10  NB. refactor
||////////
   {`(('|/\'{~-@>:,:<:)1+i.)/ 0 3 10
\\\|||||||

数文字を犠牲にして、順序を標準の順序にすることができ@|.ます。関数の最後に追加するだけです：

   |. 10 3 1
1 3 10
   {`(('|/\'{~-@>:,:<:)1+i.)/@|. 10 3 1
||////////

ただし、これを方向の文字列引数で動作するように適合させるには、はるかにコストがかかります。

PowerShell、66

filter d($n,$k,$d){"$('\|'[$d])"*($k-$d)+"$('|/'[$d])"*($n-$k+$d)}

おそらく他の人が持っていたのと同じ考え。

• 方向パラメーターとして0または1を取ります（それぞれ左と右）

Golfscript（44 53）

初めてのGolfscriptプログラム。必要以上に長くかかったし、おそらくもっと賢く、より簡潔な方法で行うことができました（誰かがそれを証明すると確信しています:)）：

:d;:j;:^,{:x j<d&'\\'{x^j)->d!&'/''|'if}if}%

サンプル入力は10 5 0です。

ゴルフをしていない：

:d;:j;:^      # save input in variables and discard from stack, except total length ^
,             # create an array of numbers of length ^
{             # start block for map call
  :x          # save current element (= index) in variable
  j<          # check whether we are left of the first knocked over domino
  d           # check whether the direction is to the left
  &           # AND both results
  '\\'        # if true, push a backslash (escaped)
  {           # if false, start a new block
    x^j)->    # check whether we are on the right of the knocked over domino
    d!        # check whether the direction is to the right
    &         # AND both results
    '/'       # if true, push a slash
    '|'       # if false, push a non-knocked over domino
    if
  }
  if
}%            # close block and call map

GolfScript、28 23文字

'\\'@*2$'|/'*$-1%1>+@/=

スタック上の引数、オンラインで試してください：

> 10 5 1
||||//////

> 10 5 0
\\\\\|||||

パイソン-45 52

これには1、右と0左が必要です。

x=lambda n,k,d:'\\|'[d]*(k-d)+"|/"[d]*(n-k+d)

ここで取りバージョンだrとlで、正しく58：

def x(n,k,d):d=d=='r';return'\\|'[d]*(k-d)+"|/"[d]*(n-k+d)

使用例...

>>> print(x(10,3,0))
\\\|||||||
>>> print(x(10,3,1))
||////////
>>> print(x(10,5,1))
||||//////
>>> print(x(10,5,0))
\\\\\|||||
>>> print(x(10,3,0))
\\\|||||||

JS（ES6） - 79 74 72 65 62

@nderscoreに感謝します！

3番目のパラメーターはブール値です（0：左/ 1：右）

d=(a,b,c)=>"\\|"[a-=--b,c].repeat(c?b:a)+"|/"[c].repeat(c?a:b)

// Test
d(10,3,1); // => "||////////"
d(10,3,0); // => "\\\\\\\\||"

Python2 / 3-54

最後にルールに追加されたものは非常に素晴らしかったです（ 'l' / 'r'の代わりに0/1）。鉱山を実際に既存のpythonソリューションよりも小さくしました。0は左、1は右

def f(a,b,c):d,e='\|/'[c:2+c];h=b-c;return d*h+e*(a-h)

# Usage:
print(f(10,5,1)) # => ||||//////
print(f(10,5,0)) # => \\\\\|||||

Haskell、42バイト

(n%k)b=["\\|/"!!(b-div(k-b-c)n)|c<-[1..n]]

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

ドミノ、「ドミノ倒れ、方向」のような入力(%) n k bをn受け取ります。kb

算術式を使用して文字インデックス0、1、または2を計算することによりc、1〜の範囲の各位置で文字を検索しnます。

ここから取ったテストケース。

Haskell、44バイト

(n%k)b=take n$drop(n+n*b+b-k)$"\\|/"<*[1..n]

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

少し長くなった興味深い戦略。各シンボルの連続コピーを含む文字列"\\|/"<*[1..n]を生成し、開始位置が算術的に決定された連続文字のnスライスをn取得します。

Python 2.7、68 65 61 59 58文字

d=1左とd=0右に 使用

f=lambda a,p,d:['|'*(p-1)+'/'*(a-p+1),'\\'*p+'|'*(a-p)][d]

注：さらにゴルフをしてくれた@TheRareに感謝します。

Javascript、46文字

0 = lおよび1 = rを行うために不正行為のように見えますが、あります。少し再帰して縮小します。

f=(a,p,d)=>a?'\\|/'[(p-d<1)+d]+f(a-1,p-1,d):''

編集：明らかなキャラクターを見逃した

JavaScript（ES6）61 63

編集それはバグだらけだった-私には恥。

@xemとそれほど違いはありませんが、自分で見つけたので短いです。左/右のパラメーターdは0/1

F=(a,p,d,u='|'.repeat(--p),v='\\/'[d].repeat(a-p))=>d?u+v:v+u

Firefoxコンソールでテストする

for(i=1;i<11;i+=3) console.log('L'+i+' '+F(10,i,0) + ' R'+i+' '+ F(10,i,1))

出力

L1 \\\\\\\\\\ R1 //////////
L4 \\\\\\\||| R4 |||///////
L7 \\\\|||||| R7 ||||||////
L10 \||||||||| R10 |||||||||/

Perl、 67 65文字

sub l{($t,$p,$d)=@_;$p-=$d;($d?'|':'\\')x$p.($d?'/':'|')x($t-$p)}

最初の3つのパラメーター（合計、位置、方向を整数[0左、1右]として）を割り当てます。エキストラはエーテルに入ります。右に向かっている場合は、位置から1を引くと、位置Xのドミノも反転します。

Haskell、57バイト

このヒントのおかげで4バイト節約

f 0 b _=[]
f a b c=last("|/":["\\|"|b>c])!!c:f(a-1)(b-1)c

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

Haskell、69 61 60 58バイト

(0!b)_=[]
(a!b)c|b==c=a!b$c+1|1>0="\\|/"!!c:((a-1)!(b-1))c

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

非常に複雑な答えではありませんが、既存のHaskellの両方の答えを打ち負かしています。

R、75 68 61 57バイト

無名関数。興味がある場合は、より詳細な説明を掲載します。

function(t,n,d)cat(c("\\","|","/")[(1:t>n-d)+1+d],sep="")

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

Haskell、51バイト

f a b c=("\\|"!!c<$[1..b-c])++("|/"!!c<$[b-c..a-1])

a=ドミノの数、b=タッチされたものの1 から始まるインデックス、c=方向（0左と1右）。

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

PHP-64

function f($a,$b,$c){for($w='\|/';++$i<=$a;)echo$w[$c+($i>$b)];}

単純なループ、およびキャラクターのエコー。

を生成しNotice: Undefined variable: i、エラーをサイレントにする別のバージョンがあります（65文字）：

function f($a,$b,$c){for($w='\|/';@++$i<=$a;)echo$w[$c+($i>$b)];}

エラーのないバージョン（69文字）：

function f($a,$b,$c){for($w='\|/',$i=0;++$i<=$a;)echo$w[$c+($i>$b)];}

PHPの他の機能：

sprintf/ printfパディング

function f($a,$b,$c){printf("%'{${0*${0}=$c?'|':'\\'}}{$a}s",sprintf("%'{${0*${0}=$c?'/':'|'}}{${0*${0}=$a-$b+$c}}s",''));}

str_pad/ str_repeat関数を介したパディング

function f($a,$b,$c){$f='str_repeat';echo$f($c?'|':'\\',$b-$c).$f($c?'/':'|',$a-$b+$c);}
function f($a,$b,$c){echo str_pad(str_repeat($c?'|':'\\',$b-$c),$a,$c?'/':'|');}

printfとstr_repeat関数の両方を使用する

function f($a,$b,$c){printf("%'{${0*${0}=$c?'|':'\\'}}{$a}s",str_repeat($c?'/':'|',$a-$b+$c));}
function f($a,$b,$c){$w='\|/';printf("%'$w[$c]{$a}s",str_repeat($w[$c+1],$a-$b+$c));}

Scala 75文字

def f(l:Int,p:Int,t:Char)=if(t=='l')"\\"*p++"|"*(l-p) else "|"*(l-p):+"/"*p

CJam-20

q~
:X-_"\|"X=*o-"|/"X=*

メインコードは2行目にあり、1行目は標準入力からパラメーターを取得するためのものです（そうでない場合は、パラメーターをコードに入れる必要があります）。

http://cjam.aditsu.net/で試してください

例：

12 4 1
|||/////////

8 5 0
\\\\\|||

説明：

:X変数Xに格納し、最後のパラメータ（0/1方向）
-ノックオーバー位置から減算X、文字の最初のシーケンス（レッツ・コールそれL）の長さを得ることは
_Lのコピーを作る
"\|"X=最初に使用する文字を取得します。\ためにX = 0及び|X = 1回の
*文字L回数こと反復
oストリングアウトプリントを、スタックからそれを除去する
-ドミノの数から減算L、文字の第二の配列の長さを求めるには（LETの呼び出しがR）
"|/"X=の文字を取得します次を使用：|X = 0の場合、/X = 1の場合
*、その文字をR回繰り返します

Common Lisp

これはコードゴルフでは勝てませんが、Common Lispの正当化フォーマットディレクティブを強調しています。

(lambda (n p d &aux (x "\\|/"))
   (format t "~v,,,v<~v,,,v<~>~>" n (aref x d) (+ d (- n p)) (aref x (1+ d))))

算術は悪くありません n。ドミノの総数です。p最初に倒れたドミノの位置です。dは、0または1（コメントで許可されているように）左右を表し、x; へのインデックスとして使用されます。 x文字列であり\、|と/。書式文字列は、2つの（ネストされた）位置合わせディレクティブを使用します。各ディレクティブはパディング文字を許可します。したがって：

(dotimes (d 2)
  (dotimes (i 10)
    ((lambda (n p d &aux (x "\\|/"))
       (format t "~v,,,v<~v,,,v<~>~>" n (aref x d) (+ d (- n p)) (aref x (1+ d))))
     10 (1+ i) d)
    (terpri)))

\|||||||||
\\||||||||
\\\|||||||
\\\\||||||
\\\\\|||||
\\\\\\||||
\\\\\\\|||
\\\\\\\\||
\\\\\\\\\|
\\\\\\\\\\
//////////
|/////////
||////////
|||///////
||||//////
|||||/////
||||||////
|||||||///
||||||||//
|||||||||/

PHP、89文字

function o($a,$p,$d){for($i=0;$i<$a;$i++)echo$d==0?($i+1>$p)?'|':'\\':($i+1<$p?'|':'/');}

PHPが大好きだからです。

編集：次のコードは同じことを行います。

function dominoes ($number, $position, $direction) {
    for ($i=0; $i<$number; $i++){
        if ($direction==0) {
            if (($i+1) > $position) {
                echo '|';
            } else {
                echo '\\';
            }
        } else {
            if (($i+1) < $position) {
                echo '|';
            } else {
                echo '/';
            }
        }
    }
}

J、23 21 19バイト

'|/\'{~{:-(>i.)~`-/

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

入力は、標準の順序の整数のリストです。

05AB1E、19 バイト

αα©„\|³è×¹®-„|/³è×J

私はまだそれが少し長い感じがしますが、それは動作します。

入力順序は、チャレンジの場合と同じです：合計の長さ、インデックス、1/ 0それぞれ左/右。

オンラインそれを試してみてくださいまたは両方のテストケースを確認してください。

説明：

α                     # Take the absolute difference of the first two (implicit) inputs
                      #  i.e. 10 and 5 → 5
                      #  i.e. 6 and 3 → 3
 α                    # Then take the absolute difference with the third (implicit) input
                      #  i.e. 5 and 1 → 4
                      #  i.e. 3 and 0 → 3
  ©                   # Store this number in the register (without popping)
   „\|                # Push "\|"
      ³è              # Use the third input to index into this string
                      #  i.e. 1 → "|"
                      #  i.e. 0 → "\"
        ×             # Repeat the character the value amount of times
                      #  i.e. 4 and "|" → "||||"
                      #  i.e. 3 and "\" → "\\\"
         ¹®-          # Then take the first input, and subtract the value from the register
                      #  i.e. 10 and 4 → 6
                      #  i.e. 6 and 3 → 3
            „|/       # Push "|/"
               ³è     # Index the third input also in it
                      #  i.e. 1 → "/"
                      #  i.e. 0 → "|"
                 ×    # Repeat the character the length-value amount of times
                      #  i.e. 6 and "/" → "//////"
                      #  i.e. 3 and "|" → "|||"
                  J   # Join the strings together (and output implicitly)
                      #  i.e. "||||" and "//////" → "||||//////"
                      #  i.e. "///" and "|||" → "///|||"

C ++ 181

#define C(x) cin>>x;
#define P(x) cout<<x;
int n,k,i;char p;
int main(){C(n)C(k)C(p)
for(;i<n;i++){if(p=='r'&&i>=k-1)P('/')else if(p=='l'&&i<=k-1)P('\\')else P('|')}
return 0;}

PHP - 105,97, 96

 function a($r,$l,$f){$a=str_repeat('|',$l-$f);$b=str_repeat($r?'/':'\\',$f);echo$r?$a.$b:$b.$a;}

Example results:

a(true,10,4);  -> \\\\||||||
a(false,10,5); -> |||||/////
a(false,10,2); -> ||||||||//

Javascript, 81 85 characters

function e(a,b,c){l='repeat';d='|'[l](--a-b++);return c>'q'?d+"/"[l](b):"\\"[l](b)+d}

First time trying codegolf, was fun thanks :)

JavaScript - 85 chars

function d(a,b,c){for(r=c?"\\":"/",p="",b=a-b;a--;)p+=c?a<b?"|":r:a>b?"|":r;return p}

1 = Left, 0 = Right

d(10,3,1)
\\\|||||||
d(10,3,0)
||////////
d(10,7,1)
\\\\\\\|||
d(10,7,0)
||||||////

Clojure, 81 chars

(defn g[a,p,d](apply str(map #(nth "\\|/"(+(if(>= % (- p d)) 1 0) d))(range a))))

vb.net (~75c)

Dim f=Function(l,p,d)(If(d="l",StrDup(p,"\"),"")& StrDup(l-p-If(d="l",1,0),"|")).PadRight(l,"/")