Bir ASCII-sanat kutum var ve açmak için bir programa ihtiyacım var.

Örnekler

Giriş:

-------
|     |
|_____|

Çıktı:

      /
     /
    /
   /
  /
 /
/
|     |
|_____|

Şartname

• İlk satır sadece -en az 3 tanesinden oluşacaktır.
• Ortadaki satırlar |boşluklarla başlayacak ve bitecek|
  • Tüm orta sıralar aynı olacak
• Son satır ile başlayacak |olan _ve a ile sona|
• Tüm satırlar aynı uzunlukta olacak

Kutuyu açmak:

• Her -bir değiştirilmelidir /hatları ve pozisyon artan içinde.

CJam, 14 bayt

l,{N'/@S*}%W%q

Çevrimiçi deneyin!

Nasıl çalışır

l               Read the first line from STDIN.
 ,              Compute the line's length. Result: L
  {      }%     Map; for each I in [0 ... L-1]:
                  (implicit) Push I.
   N              Push a linefeed.
    '/            Push a slash.
      @           Rotate I on top of the stack.
       S*         Turn I into a string of I spaces.
           W%   Reverse the resulting array of strings and characters.
             q  Read the remaining input from STDIN.

JavaScript ES6, 57 bayt

s=>s[r="replace"](/-+/,s=>s[r](/-/g,`
$'/`))[r](/-/g,' ')

Önde gelen bir yeni hat çıkarır. -S satırını alıp bunları bir üçgene dönüştürerek çalışır, sonra -s'yi boşluklarla değiştirir .

Düzenleme: @ edc65 sayesinde 5 bayt kaydedildi.

pb (NONCOMPETING), 125 bayt

^w[B!0]{>}w[B!45]{<w[B=10]{t[T+1]b[0]}}v[X]vw[T!0]{vb[124]<[X]b[124]>w[B=0]{>}t[T-1]}w[X!1]{<b[95]}<w[B!0]{^}w[Y!-1]{b[47]>^}

Bu cevabı çalıştırmanız gereken pbi sürümü, sorudan daha yeni. Girdide yeni satırlara izin vermek için hiç uğraşmamam dışında, eski sürümlerde işe yarayacaktı. Oh iyi.

İlk olarak, bu girdideki yeni satırları sayarak kutunun yüksekliğini belirler. Bunu bir kez öğrendiğinde, kutunun sağ tarafının Y konumuna gider, olması gereken yere iner ve duvarları ve zemini çizerek kapakla bitirir.

Bu eğlenceli animasyona göz atın!

Uzun duraklama, girişin üzerinden geçen fırçadır.

Ungolfed:

^w[B!0]{>}                # Go to the end of the input
w[B!45]{<                 # Head left until hitting a hyphen
    w[B=10]{                # For each newline on the way:
            t[T+1]                # Count it
            b[0]                  # Delete it
    }
}

v[X]                      # Move down as far as it is right + the number of \n
v                         # ...plus one

w[T!0]{                   # While the counting variable is nonzero:
    vb[124]                 # Go down and draw a pipe
    <[X]b[124]              # Draw a pipe on the left as well
    >w[B=0]{>}              # Go back to the right side
    t[T-1]                  # Decrement variable
}

w[X!1]{<b[95]}            # Draw the bottom of the box
<w[B!0]{^}                # Go up the left wall
w[Y!-1]{b[47]>^}          # Go up and right, drawing the lid

Pyth, 16 14 bayt

j+_m+*;d\/Uz.z

açıklama

   m      Uz   - [V for d in range(len(input()))]
    +*;d\/     - " "*d + "/"
  _            - ^[::-1]
j+          .z - "\n".join(^+rest_of_input())

Yeni algoritma için @FryAmTheEggman teşekkürler !

Burada dene.

Retina, 34 20 bayt

- (= (-? *)) ¶?
1 $ / ¶
-
 

İlk adımda her -biri -onu takip eden, a /ve newline ile değiştirilir. Orijinal ilk satırın sonundaki yeni satır silinir. İkinci adımda, yenilerini -istenen çıktıya yol açan boşluklara değiştiririz .

Burada çevrimiçi deneyin.

Matl , 14 15 bayt

' /'jnXyPQ)`jt

Girdide izleyen bir satırsonu olmalı.

Çevrimiçi deneyin!

açıklama

' /'       % push string (will be indexed into to generate the open lid)
jn         % read first line of input and push its length
Xy         % identity matrix with that size
P          % flip vertically
Q          % add 1. Now the matrix contains 1 and 2, to be used as indices
)          % index into string. Produces a 2D char array for the lid
`          % do-while loop
  j        %   push input line
  t        %   duplicate. Truthy if nonempty
           % implicitly end loop. The loop condition is the top of the stack,
           % that is, the input line that has just been read.
           % This is truthy if non-empty; and in that case another line will
           % be read in the next iteration.
           % implicitly display stack contents, bottom to top

Japt, 28 26 25 22 18 17 bayt

Ur-@"
{SpUa- -Y}/

Çevrimiçi test edin!

OP'ye göre kabul edilebilir bir öncü yeni satır çıkarır.

Nasıl çalışır

Ur-@       // Replace each hyphen X in the input and its index Y with this function:
"          //  Start a string that contains a newline.
{        } //  Insert here:  
   Ua- -Y  //   Take the index of the last hyphen in the input, subtract Y,
 Sp        //   and return that many spaces.
/          //  Finish off the string with a slash.

Menteşenin kutunun sağ kenarında olmasına izin verilirse, bu 4 bayt daha kısa olacaktır:

Ur-@"
{SpY}\\

JavaScript (ES6), 66

b=>([a,t]=b.split`-
`,[...a+0].map(_=>(t=l+`/
`+t,l+=' '),l=''),t)

ÖLÇEK

f=b=>([a,t]=b.split`-\n`,[...a+0].map(_=>(t=l+`/\n`+t,l+=' '),l=''),t)

var box = `-------
|     |
|_____|`

console.log=x=>O.textContent=x

console.log(f(box))

<pre id=O></pre>

Java 8, 158 118 bayt

Bu sadece bir başlangıç, ama hey, FGITWFTW.

n->{String o="";int z=n.lastIndexOf("-"),i=z;for(;i-->0;o+="/\n")for(int y=i;y-->0;o+=" ");return o+n.substring(z+2);}

Bir dize olarak girdi bekliyor, kutuyu döndürür.

Python 3, 1̶7̶0̶ 88 bayt

İşte kısa (er) kodum: EDIT: Şimdi 82 bytes @Dennis'in Kodu ile Daha Kısa.

f=open('f.txt')
d=len(f.readline())-1
a=f.read()
while d:d-=1;print(' '*d+'/')
print(a)

Python 3, 421 bayt

Alternatif olarak, sadece eğlence için, yavaşça açan bir tane kullanabilirsiniz:

import time
import os
f = open('f.txt', 'r')
e = f.readline()
a = f.read()
d = len(e)
c = 0
t = e + a
g = ''
clear = lambda: os.system('cls')
while c <= d - 1:
    clear()
    print(("\n" * ((d - 1) - (c))) + t)
    c += 1
    e1 = e[0:(d - c)  -1]
    e2 = e[(d - c):len(e)]
    e1 += '/'
    e2 = ' ' * len(e2)
    y = (' ' * len(e1)) + '/' + '\n'
    g += y
    t = (g + e1 + e2 + '\n' + a)[d:len(g + e1 + e2 + '\n' + a)]
    time.sleep(0.2)
f.close()

Her ikisini de kullanmak için, aynı dizinde 'f.txt' adında herhangi bir genişlik veya derinlikte bir ascii kutusu içeren bir metin dosyası oluşturmanız gerekir. Daha sonra o kutuyu açacaktır.

Bash, 85 84 79 karakter

(Saf Bash sürümü, kullanılan harici komut yok.)

r(){
a="${a/-
/
$s/
}"
s+=\ 
[[ $a = -* ]]&&r
}
mapfile a
r
IFS=
echo "${a[*]}"

Önde gelen bir yeni hat çıkarır.

Örnek çalışma:

bash-4.3$ bash open-the-box.sh <<< $'-------\n|     |\n|_____|'

      /
     /
    /
   /
  /
 /
/
|     |
|_____|

Perl, 61 54 33 + 3 = 36 karakter

s^-^" "x(length$')."/\n"^ge&chomp

Olarak çalıştır

perl -ple 's^-^" "x(length${chr 39})."/\n"^ge&chomp' closed_box_file

Her -ilk satırında bazı sayısının birleştirme bir sonucudur bir dize ile değiştirilir , /ve \n. ${chr 39}perl'in (in) ünlü $'aka $POSTMATCHözel değişkenini değerlendirir. Son olarak, chomp sonuncusu için eklenen sondaki yeni satır karakterinden kurtulur.- karakter .

7 + daha fazla karakter tasarrufu için @ manatwork sayesinde.

Bonus - s^-^" "x$i++."\\\n"^ge&&chopkutuyu sağ taraftan 29 + 3 karakterle açar :). Olarak çalıştır:

gowtham@ubuntu:~$ cat a
----
|  |
|__|
gowtham@ubuntu:~$ perl -plE 's^-^" "x$i++."\\\n"^ge&&chop' closed_box_file
\
 \
  \
   \
|  |
|__|

Pyth, 26 23 bayt

jXK.z0jm+*\ t-lhKd\/lhK

Yuck. Kesinlikle daha kısa olabilir; hala üzerinde çalışıyor.

Python3, 76 bayt

f=open(0)
w=len(f.readline())
while w:w-=1;print(' '*w+'/')
print(f.read())

1. İlk giriş satırının uzunluğunu alın.
2. /Azalan boşluk sayısından önce gelen satırları yazdırın .
3. Geri kalanını stdindümdüz itin stdout.

EDIT: Kodumun, @ Monster'ın kısa Python3 kodunun @Dennis'in yorum düzenleme ile neredeyse aynı olduğunu fark ettim, tek fark, geri kalanını stdinbir değişkende saklamak yerine doğrudan yazdırmak . Büyük beyinler!

Tuval , 6 4 bayt

ｊＬ／ｏ

Burada dene!

Açıklama:

j      remove 1st line of the input
 L     get the width of the remaining input
  /    push a diagonal of that size
   o   and output that diagonal
       and implicitly output the remaining input

Python 2, 100 bayt

def o(b):
 m=b.split('\n')[1:]
 print"\n".join(["/".rjust(i)for i in range(len(m[0]),0,-1)]+m)

Dizeyi ogirdi olarak alan bir işlevi tanımlar . (Tam program soruda belirtilmedi).

PowerShell, 55 bayt

$d,$b=$args-split"`n";($d.length-1)..0|%{" "*$_+"/"};$b

Girişi alır $args, bir dizi olarak -splityeni satırlar üzerinde s `n _{( referans renkli )} , mağaza içinde ilk satırı $d(bir karakter dizisi) içine geri kalan $b(şeritlerinin bir dizi olarak). Daha sonra lengthilk satırın içinden (eksi 1) 0ve her yinelemede bu boşluk sayısını artı a /. Sonunda çıktı$b varsayılan olarak her satıra bir tane çıkacak olan (giriş dizesinin geri kalanı).

Örnek Çalıştırma

PS C:\Tools\Scripts\golfing> .\help-me-open-the-box.ps1 "----`n|  |`n|__|"
   /
  /
 /
/
|  |
|__|

JavaScript (Node.js) , 56 bayt

a=>a[b="replace"](/-+/,c=>c[b](d=/-/g,`
$'/`))[b](d,' ')

Çevrimiçi deneyin!

Bir yorum olarak yazılmalıdır @Neil bireyin cevap ama henüz bir yorum yaratamaz

05AB1E (eski) , 9 bayt

g'/1.Λ|»»

Çevrimiçi deneyin! (Eski okunur)

Nasıl çalışır

g'/1.Λ|»» – Full program. Takes input from STDIN.
g         - Length. Only takes the first line into account.
 '/       – Push a slash character, "/".
   1.Λ    – And diagonally up-right, draw a line of slashes of the given length.
      |»  – Push the remaining inputs (all other lines) joined on newlines.
        » – Then join the stack on newlines.

Kömür , 14 bayt

↙Ｌ§⪪θ¶⁰Ｍ→✂⪪θ¶¹

Çevrimiçi deneyin (ayrıntılı) veya çevrimiçi deneyin (yalnızca saf) .

Açıklama:

Girdiyi yeni satırlara bölün, ilk satırın uzunluğunu alın ve bu uzunluktaki bir satırı Üst-Sağdan Aşağı-Sola doğru yazdırın:

Print(:DownLeft,Length(AtIndex(Split(q,"\n"),0)))
↙Ｌ§⪪θ¶⁰

Bir kez sağa hareket et:

Move(:Right)
Ｍ→

Girişi tekrar satırsonlarına bölün ve ilk öğeyi kaldırın ve örtük olarak kalanları yazdırın:

Slice(Split(q,"\n"),1)
✂⪪θ¶¹

(NOT: (İki kez yukarıdaki bunu beri) bir değişkene satırbaşıyla giriş bölünmüş koymak olduğunu artık 1 bayt (teşekkür biraz farklı bir yöntem kullanılarak da 14 byte @Neil ):
≔⮌⪪θ¶θ↙Ｌ⊟θＭ→⮌θ Çevrimiçi (ayrıntılı) Deneyin veya çevrimiçi denemek (saf) ).

JavaScript ES6, 106 bayt

q=>(q=q.split`
`,n=q[0].length,eval('for(i=0,r="";i<n;i++)r+=" ".repeat(n-i-1)+"/\\n"'),r+q.slice(1).join`
`)

Yeterince basit: İlk satırın uzunluğunu elde etmek, sondaki boşluk ile üçgen oluşturmak / ve bunu orijinaline eklemek, dilimlenmiş ve birleştirmek.

Test et! (Yalnızca ES6 :()

F=q=>(q=q.split`
`,n=q[0].length,eval('for(i=0,r="";i<n;i++)r+=" ".repeat(n-i-1)+"/\\n"'),r+q.slice(1).join`
`)
function n(){q.innerHTML=F(o.value)}
o.onkeydown=o.onkeyup=o.onchange=o.onkeypress=n;
n();

*{font-family:Consolas,monospace;}textarea{width:100%;height:50%;}#q{white-space:pre;}

<textarea id=o>----
|  |
|__|</textarea><div id=q>

Python 2.7, 120 122 karakter

fOrijinal / kapalı kutulu bir dosyaya ihtiyaç duyulur , çıktı açılır. Fikir için @Monster'a şerefe ... daha sonra çok satırlı girişi anlamaya ve daha kısa olup olmadığını görmeye çalışacaktır.

for l in open('f').readlines():
 if l[1]==('-'):
  for x in range(1,len(l)):print(' '*(len(l)-x+1)+'/')
 else:print l[:-1]

Düzenle

• sadece en solun /önünde boşluk olduğunu fark ettim ; +2 bayt

Yakut, 59 karakter

(57 karakter kod + 2 karakter komut satırı seçenekleri.)

s=""
$_=$_.chars.map{(s<<" ")[1..-1]+?/}.reverse*$/if$.<2

Örnek çalışma:

bash-4.3$ ruby -ple 's="";$_=$_.chars.map{(s<<" ")[1..-1]+?/}.reverse*$/if$.<2' <<< $'-------\n|     |\n|_____|'
      /
     /
    /
   /
  /
 /
/
|     |
|_____|

Bash, 129 karakter

aKapalı kutu ile adlandırılan bir dosya gerektirir , stdout'a çıktı verir.

for i in $(seq `cat a|awk 'NR==1{print length($1)-1}'` -1 1);{ for j in `seq 1 $i`;{ printf " ";};echo "/";};echo "/";tail -n2 a

sedStdin ve piping kullanarak ve kullanarak daha kısa hale getirmek mümkün olabilir .

PHP, 127 karakter

$s=$argv[1];$l=strlen(strtok($s,"\n"));for($i=0;$i<$l;$i++)$s=preg_replace("/-/","\n".str_repeat(" ",$l-$i-1)."/",$s,1);echo$s;

Ungolfed versiyonu:

$s=$argv[1];
$l=strlen(strtok($s,"\n"));

for($i=0;$i<$l;$i++){
    $v="\n".str_repeat(" ",$l-$i-1)."/";
    $s=preg_replace("/-/",$v,$s,1);
}
echo $s;

Python, 125 bayt (110 kutusuz)

i="\n---\n| |\n|_|"
l,b,r=i.count("-"),i.split('\n'),range
for x in r(1,l):print" "*(l-x)+"/"
for x in r(2,len(b)):print b[x]

Birisi onu kısaltmak için bir fikir varsa, lütfen bana bildirin!

Awk, 47 46 karakter

(44 karakter kodu + 2 karakter komut satırı seçeneği.)

/-/{OFS=RS;for(i=NF;i;i--){$i=s"/";s=s" "}}1

Örnek çalışma:

bash-4.3$ awk -F '' '/-/{OFS=RS;for(i=NF;i;i--){$i=s"/";s=s" "}}1' <<< $'-------\n|     |\n|_____|'
      /
     /
    /
   /
  /
 /
/
|     |
|_____|

Gema, 51 49 31 karakter

-\P/-+/=@subst{-=\\ ;$1}/\n
-=/

Örnek çalışma:

bash-4.3$ gema -e '-\P/-+/=@subst{-=\\ ;$1}/\n;-=/' <<< $'-------\n|     |\n|_____|'
      /
     /
    /
   /
  /
 /
/
|     |
|_____|

K (ngn/k), 18 bytes

{(" /"@|=#*x),1_x}

Try it online!

05AB1E (legacy), 12 bytes

€ðƶ€¦'/«R|«»

Try it online!