Ya iki paralel aynadan oluşan bir koridorumuz varsa?

|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |
|          |

Şimdi aşağı bir lazer parlıyoruz.

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

Oh bak. Sonuna doğru orada sıçradı.

Ya iki lazer çizersek, ama ters yönde ilerlersek?

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

Hmm, orada tanışmamışlardı. Bu uygun. Her iki lazer de aynı alanı kaplarsa ne olur?

|  \     / |
|   \   /  |
|    \ /   |
|     X    |
|    / \   |
|   /   \  |
|  /     \ |
| /       \|
|/        /|
|\       / |

Sanırım bu oldukça açıktı, ha?

Bu şemaları elle çizmek oldukça zahmetlidir (bu konuda bana güven). Belki bazı kodlar bizim için yapabilir?

• İki paralel ayna, iki sıçrayan, kesişen lazerler üretmek için bir kod yazın.
• Giriş (tüm tam sayılar):
  • Koridorun genişliği
  • Koridorun uzunluğu
  • Doğru lazerin başlama pozisyonu (sıfır indeksli, genişlikten az olmalıdır)
  • Soldaki lazerin başlangıç ​​konumu (sıfır indeksli, genişlikten az olmalıdır)
• süreç
  • Bir lazer doğru gidiyorsa, aşağıdaki satırda sağa bir boşluk çizilecektir.
  • Bir lazer devam ederse, aşağıdaki satırda sola bir boşluk bırakılır.
  • Bir lazer yan adım alamazsa, yönünü değiştirir, ancak konumunu değiştirmez.
  • Her iki lazer de aynı endeks ise, o endekste bir büyük harf X yazdırın.
• Çıktı
  • Birden çok satır içeren bir dize
  • Her satır bir boru karakteriyle (|) başlar ve biter
  • Sağa giden lazer bir ters eğik çizgi ile gösterilir (\)
  • Soldaki lazer, eğik çizgiyle (/) gösterilir.
  • İki lazerin kesişimi büyük harf X ile gösterilir.
• Herhangi bir dil
• TIO'yu görmek isterim linklerini
• En küçük bayt sayısında düzeltmeyi dene

Test durumları

genişlik: 6 uzunluk: 10 sağa doğru: 1 sola doğru: 4

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

genişlik: 6 uzunluk: 10 sağa doğru: 0 sola doğru: 1

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

genişlik: 4 uzunluk: 10 sağa doğru: 2 sola doğru: 0

|/ \ |
|\  \|
| \ /|
|  X |
| / \|
|/  /|
|\ / |
| X  |
|/ \ |
|\  \|

genişlik: 20 uzunluk: 5 sağa doğru: 5 sola doğru: 15

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

genişlik: 5 uzunluk: 6 sağa gidiyor: 2 sola gidiyor: 2

|  X  |
| / \ |
|/   \|
|\   /|
| \ / |
|  X  |

genişlik: 1 uzunluk: 2 sağa gidiyor: 0 sola gidiyor: 0

|X|
|X|

Stax , 40 bayt

àù@○⌡┼PY¼îαφu^·A☺°É⌠■╟¡Åt^◘v(µ╩Ñ♣t{╓○xß╦

Koş ve hata ayıkla

Çevrimiçi deneyin!

Bundan daha iyi golf oynayabileceğinden eminim.

Giriş şeklinde width [right-going left-going] length(yorum başına @EngineerToast).

ASCII eşdeğeri:

xHXdmzx);hi+x%Y92&;Hi-x%cy=41*47+&2ME:R\{|+m'||S

JavaScript (ES6), 149 bayt

Körleme sözdiziminde girdi alır (w)(h)([a,b]).

w=>h=>g=(p,d=[1,-1],s=Array(w).fill` `)=>h--?`|${p=p.map((x,i)=>~(k=d[i],s[x]='/X\\'[x-p[i^1]?k+1:1],x+=k)&&x<w?x:x+(d[i]=-k)),s.join``}|
`+g(p,d):''

Çevrimiçi deneyin!

Yorumlananlar

w => h =>                  // w = width, h = height
  g = (                    // g = recursive function taking:
    p,                     //   p[] = array holding the point coordinates
    d = [1, -1],           //   d[] = directions
    s = Array(w).fill` `   //   s = array of w spaces (we can't use a string because it's
  ) =>                     //       immutable in JS)
    h-- ?                  // if we haven't reached the last row yet:
      `|${                 //   append the left pipe
      p = p.map((x, i) =>  //   for each x at position i in p[]:
        ~(k = d[i],        //     k = direction for this point
          s[x] = '/X\\'[   //     insert either '/', 'X' or '\' at position x in s
            x - p[i ^ 1] ? //     if p[0] != p[1]:
              k + 1        //       use the direction
            :              //     else:
              1            //       force 'X'
          ], x += k        //     add k to x
        ) &&               //     if the result is not equal to -1
        x < w ?            //     and is less than w:
          x                //       use the current value of x
        :                  //     else:
          x + (d[i] = -k)  //       change the direction and restore the initial value of x
      ),                   //   end of map()
      s.join``}|\n` +      //   join and append s; append the right bar and a linefeed
      g(p, d)              //   followed by the result of a recursive call
    :                      // else:
      ''                   //   stop recursion

Python 2 , 119 bayt

w,l,a,b=input()
exec"print'|%s|'%''.join(' \/X'[sum(i==k%(2*w)for k in[a,~b]+[~a,b]*2)]for i in range(w));a+=1;b-=1;"*l

Çevrimiçi deneyin!

Python 2 , 168 bayt

w,n,r,l=input()
R=L=1
exec"""
d=[~r*R,-~l*L].count
print'|%s|'%''.join(' /\X'[2*d(~x)|d(x+1)]for x in range(w))
if-1<r+R<w:r+=R
else:R=-R
if-1<l-L<w:l-=L
else:L=-L"""*n

Çevrimiçi deneyin!

Python 2 , 187 181 179 177 174 172 171 bayt

def f(w,l,a,b,A=1,B=-1):
 while l:l-=1;print'|%s|'%''.join(' \X/'[[0,A,B,2][(i==a)+2*(i==b)]]for i in range(w));a,A=[a,a+A,-A,A][-1<a+A<w::2];b,B=[b,b+B,-B,B][-1<b+B<w::2]

Çevrimiçi deneyin!

yinelemeli:

Python 2 , 172 bayt

def f(w,l,a,b,A=1,B=-1):
 if not-1<a<w:A=-A;a+=A
 if not-1<b<w:B=-B;b+=B
 if l:print'|%s|'%''.join(' \X/'[[0,A,B,2][(i==a)+2*(i==b)]]for i in range(w));f(w,l-1,a+A,b+B,A,B)

Çevrimiçi deneyin!

Özyinelemeli, alternatif baskı:

Python 2 , 172 bayt

def f(w,l,a,b,A=1,B=-1):
 if not-1<a<w:A=-A;a+=A
 if not-1<b<w:B=-B;b+=B
 if l:L=[' ']*w;L[a]=' \/'[A];L[b]=[' \/'[B],'X'][a==b];print'|%s|'%''.join(L);f(w,l-1,a+A,b+B,A,B)

Çevrimiçi deneyin!

C (clang) , 240 236 208 bayt

#define g(a,b) b?a++,a==x&&(a=x-1,b=0):a--,a==-1&&(a=0,b=1)
i,m,n,o,p,t[]={47,92};f(x,y,r,l){for(m=1,n=0;y--;puts("|"),g(r,m),g(l,n))for(printf("|"),i=0;i<x;o=i==r,p=i++==l,putchar(o*p?88:o?t[m]:p?t[n]:32));}

Çevrimiçi deneyin!

f () parametreleri aşağıdaki gibi alır:

x= width,
y= length,
r= Başlangıçta sağa giden çizgi başlangıç ​​konumu
l= Başlangıçta sola giden başlangıç ​​konumu

-4 bayt. Kevin Cruijssen kredileri. Teşekkürler

Tuval , 66 40 bayt

｛²Ｘø⁶╵［⁷／²２％［↔｝∔｝；ｘ╷？⁷∔⁷＋╷｝［ｊ｝｝ｎ⁶［|ＰＪｐ|ｐ

Burada dene!

Kömür , 56 50 bayt

↷ＰＩθＭ⊕η→ＩθＦ²«Ｊ⊕⎇ιεζ⁰ＦＩθ«✳§⟦↘↙⟧ι∨⁼ＫＫψX¿⁼ＫＫ|«¿ι→←≦¬ι

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Düzenleme: Döndürme güvenini azaltarak 6 bayt kurtardı. Açıklama:

↷ＰＩθＭ⊕η→Ｉθ

Yanları yazdır.

Ｆ²«

İki lazer üzerinde döngü.

Ｊ⊕⎇ιεζ⁰

Lazer başlangıcına git.

ＦＩθ«

Yüksekliği üzerinde döngü.

✳§⟦↘↙⟧ι∨⁼ＫＫψX

Kare boş değilse, a \veya /uygun yönde çizin, bu durumda bir çizin X.

¿⁼ＫＫ|«

Bir tarafa mı çarptık?

¿ι→←≦¬ι

Eğer öyleyse, bir adım yanlara doğru atın ve sürüş yönünü ters çevirin.

Java (JDK 10) , 186 bayt

(w,h,r,l)->{var x="";for(int i=0,j,R=1,L=-1;i++<h;l+=L,l+=l<0|l>=w?L=-L:0,r+=R,r+=r<0|r>=w?R=-R:0,x+="|\n")for(j=0,x+="|";j<w;j++)x+="/X\\ ".charAt(j==r?j==l?1:R+1:j==l?L+1:3);return x;}

Çevrimiçi deneyin!

PHP, 177 169 166 bayt

[,$w,$h,$a,$b]=$argv;for($e=-$d=1;$h--;$s[$a+=$d]^L?:$a+=$d=-$d,$s[$b+=$e]^L?:$b+=$e=-$e){$s=str_pad("",$w)."|";$s[$b]="X\/"[$e];$s[$a]="X\/"[$a-$b?$d:0];echo"|$s
";}

gerektirir PHP 7.1 negatif dize endeksler, için PHP 5.5 veya daha yeni indeksleme dize hazır.
için PHP <7.1 , kaldırmak ^Lyerine, "X\/"birlikte "/X\\", :0ile +1:1, [$e]birlikte [$e+1], kaldırmak ."|"ve takın |yeni satır önce. (+3 bayt)
için PHP <5.5 , yerine "/X\\"ile $pve uç$p="/X\\"; başında. (+2 bayt)

komut satırı argümanlarından girdi alır. Çevrimiçi olarak koşun -nrveya deneyin .

Python 3 , 162 bayt

from numpy import*
def f(w,h,u,v):
 v=w+w-v-1;T=eye(w);M=vstack([T,2*T[::-1]]*2*h)
 for r in M[u:u+h,:]+M[v:v+h,:]:print('|%s|'%''.join(' \/X'[int(i)]for i in r))

Çevrimiçi deneyin!

Ruby , 117 bayt

->w,h,a{a[1]-=w;(1..h).map{s=' '*w;a.map!{|x|d=x<0?-1:1;s[x]='X\\/'[s[x][/ /]?d:0];x+=d;x==w ?-1:x<-w ?0:x};?|+s+?|}}

Çevrimiçi deneyin!

Anonim lambda genişlik w, yükseklik hve başlangıç ​​noktaları dizisi olarak girdi alıyor a.

PowerShell , 243 233 222 205 bayt

param($w,$h,$a,$b)$l,$r,$s=1,-1,' \/'
1..$h|%{$p,$p[$b],$p[$a]=[char[]](' '*$w),$s[$r],($s[$l],"x")[!($a-$b)]
if($a+$l-in($z=0..($w-1))){$a+=$l}else{$l*=-1}if($b+$r-in$z){$b+=$r}else{$r*=-1}"|$(-join$p)|"}

Çevrimiçi deneyin!

Oooof. Bu mantık blokları büyük ve kirli ve çoğunlukla çoğaltılmış. Bir sonraki adım, onları tekrar yazmak olacak, bu yüzden else ifadesine gerek kalmayacak.

Python 2, 165 164 bayt

w,h,x,y=input()
a,b,s=1,-1,' \/'
exec"""l=[' ']*w
l[x],l[y]=s[a],s[b]if x-y else'X'
if-1<x+a<w:x+=a
else:a=-a
if-1<y+b<w:y+=b
else:b=-b
print'|%s|'%''.join(l)
"""*h

Jonathan Frech sayesinde bir bayt kaydedildi.
Çevrimiçi deneyin!

K (ngn / k) , 58 bayt

{" \\/X|"4,'(+/3!1 2*(x#'e+2*|e:=2*x)(2*x)!z+(!y;-!y)),'4}

Çevrimiçi deneyin!

Üç argümanı kabul eden adsız işlev: xgenişlik, yuzunluk, zlazerler için başlangıç ​​konumu çifti

C (gcc) , 169 bayt

A,B,c;f(w,l,a,b){for(A=1,B=-1;l--;a+=A,a<0|a==w?A=-A,a+=A:0,b+=B,b<0|b==w?B=-B,b+=B:0,puts("|"))for(c=-1;c<w;c++)putchar(c<0?'|':a^c?b^c?32:B>0?92:47:b^c?A>0?92:47:88);}

Çevrimiçi deneyin!

Kotlin , 322 311 302 bayt

Lazer yönünü 11 baytlık dizgede kullanma şeklimi değiştirdim. 9 bayt için atama işlemi taşındı.

{w:Int,h:Int,r:Int,l:Int->{var a=""
var f=r
var d=1>0
var s=l
var t=!d
for(o in 1..h){a+="|"
for(c in 0..w-1)a+=when{c==f&&c==s->"X"
c==f&&d||c==s&&t->"\\"
c==f||c==s->"/"
else->" "}
a+="|\n"
if(d){if(++f==w){--f
d=!d}}else if(--f<0){f=0
d=!d}
if(t){if(++s==w){--s
t=!t}}else if(--s<0){s=0
t=!t}}
a}()}

Çevrimiçi deneyin!