建物解体

11

チャレンジ

毎秒1フロアのレートで特定の建物を解体するための完全なプログラム/機能を記述します。

入力

入力がある建物を通してSTDIN（またはあなたの言葉で呼ばれているもの）、または貫通ARGUMENT関数の。 t = 0 s 

   |
  |#|
  {#}
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

入力は以下で構成されます：

  • | フロアの開始と終了をマークします。
  • {、}爆発物で床をマークします。
  • # は装飾用の窓です。
  • それはそこ#にない床の中のどこにでもあるスペースです。
  • T 地面をマークします（取り壊すことはできません）。
  • * 爆発した床をマークします。

入力規則：

  • 建物は1 |から始まり、地面で終わります（no（T）= no（char used in ground floor））。
  • 窓#はすべてのフロア内のすべての奇妙な場所にあります。
  • T 入力の終了をマークします。
  • 唯一の1階には爆発物で構成されています。
  • すべてのフロアは奇数で作られています。文字の。
  • 床を下るとき、床は前の床と同じサイズにすることも、2文字大きくすることもできます。
  • 入力のアレイとすることができるchars、またはstrings。

出力：

t = 0.5 s 

   |
  |#|
  ***
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 1秒 

   |
  |#|
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 1.5 s 

   |
  ***
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 2 s 

   |
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 2.5 s 

   *
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 3 s 

 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 3.5 s 

 *****
|# # #|
|# # #|
|# # #|
TTTTTTT

t = 4 s 

|# # #|
|# # #|
|# # #|
TTTTTTT

t = 4.5 s 

*******
|# # #|
|# # #|
TTTTTTT

t = 6.5 s 

*******
TTTTTTT

t = 7 s 

TTTTTTT

出力ルール：

  • すべてのフロアは1 newline文字で終わります。
  • 地面には末尾の改行がある場合とない場合があります。
  • 0.5秒ごとに建物（またはその建物）を出力します。
  • 出力は、0.5秒ごとに変更されて表示されるアニメーションのようなものです。
    （回答を含むGIFを自由に投稿してください）

これはCode-Golfなので、最短バイトのコードが勝ちです！
提出の最終日はちょうど5日後です

（しかし、あなたは何を知っていますか？

編集：入力方法を変更しました（実際には悪いことです）。

code-golf  string  ascii-art  animation 
— ムクル・クマール
ソース
今から1時間後に投稿される回答は何ですか？
— デニス
投稿から1時間。質問に関連する疑問を修正するために、少なくとも1時間を取得します。
— ムクルクマール
8
コミュニティがこの種の制限を強制するかどうかはわかりません。仕様が確実かどうかわからない場合は、メインに投稿する前に、サンドボックスにチャレンジドラフトを投稿してフィードバックを得ることができます。
— デニス
@dennisうーん...削除
— ムクルクマール
2つの質問：（1）どのフロアにも末尾に空白がないと仮定できますか？（2）地上の後に入力のラインがもうないことを仮定できますか？
— H・ウォルターズ

回答:

4

Vim、41 38バイト

qw:sl 500m␍q/{␍qqjk^v$r*@wdd:-␍@w@qq@q

ここで^は、文字通りのキャレットに使用されます。␍はCTRL-Mに使用されます。

説明

qw:sl 500m␍q0.5秒間スリープし、0.5秒間のスリープをマクロwとして記録します。/{␍爆発物で床に移動します。 qqマクロqの記録を開始します。マクロqはそれ自体を再帰的に呼び出します。

jk上下に移動します。最後の行（グラウンド）にいる場合、これはエラーを生成します。エラーは再帰的なマクロを終了します。 ^v$r*最初の非空白文字から行末までのすべてを*で置き換えます。 @w0.5秒待ってからdd、現在のフロアを削除します。 :-␍トップラインにいる場合は、マクロを終了せずにフロアを上に移動します。 @wその後、さらに0.5秒待機し@q、qマクロ（最初は空）を呼び出します。

q@q マクロqの記録を停止してから呼び出し、再帰をトリガーします。

アニメーション

vim解体

— Hウォルターズ
ソース
GIFを見て飢えていました!!
— ムクルクマール
私は誰もgifを入れていないことに気づきましたが、あなたは「気軽に」と言ったので、私の投稿には必須です！V.に書き換えられた場合とにかく、私の答えは、さらに「golfed」することができ
— H・ウォルターズ
my answer could be "golfed" further...ではないですそれは十分では？：P
— ムクルクマール
4

JavaScript（ES6）、208 198バイト

f=
(t,s=f=>setTimeout(f,500),v=t.value.split(/(\S.*\n)/),i=v.findIndex(s=>/}/.test(s)),c=_=>t.value=v.join``,d=_=>c(v.splice(--i,2),v[3]&&s(e,i?--i:++i)),e=_=>c(v[i]=v[i].replace(/./g,'*'),s(d)))=>s(e)
<textarea id=t rows=9>
   |
  |#|
  {#}
 |# #|
|# # #|
|# # #|
|# # #|
TTTTTTT
</textarea><input type=button value=Go! onclick=f(t)>
スニペットを展開

— ニール
ソース
2

Java 7、589 477 476バイト

import java.util.*;void x(List<String>b,int x)throws Exception{Thread.sleep(500);int i=0,l=b.size(),z=x;String w;for(;i<l;i++){System.out.println(w=b.get(i));if(w.contains("{"))x=i;}System.out.println();w=b.get(x);i=w.contains("*")?1:0;if(i>0)b.remove(x);else b.set(x,z<0?r(w,'{','}'):r(w,'|','|'));if(l>1)x(b,i>0&x>0?x-1:x);}String r(String s,char y,char z){int a,b;return s.substring(0,a=s.indexOf(y))+s.substring(a,b=s.lastIndexOf(z)+1).replaceAll(".","*")+s.substring(b);}

OK、それは混乱/長いですが、この課題にはJavaにとって非常に多くの迷惑なことがあります。Thread.sleep(500)これにはthrows Exception; 2つの区切り文字間の部分文字列を等しい量に置き換え*ます。など
このすべては、それがよっぽどいくつかのより多くのgolfedすることができます。..プログラムは非常に大きなことになり多分別のアプローチで半減したが、少なくとも、答えは今そこにあります。;）

ゴルフをしていない：

void x(List<String>b, int x) throws Exception{
  Thread.sleep(500);
  int i = 0,
      l = b.size(),
      z = x;
  String w;
  for(;i<l; i++){
    System.out.println(w=b.get(i));
    if(w.contains("{")){
      x = i;
    }
  }
  System.out.println();
  w = b.get(x);
  i = s.contains("*")
       ? 1
       : 0;
  if(i>0){
    b.remove(x);
  }
  else{
    b.set(x, z < 0
              ? r(s, '{', '}')
              : r(s, '|', '|'));
  }
  if(l>1){
    x(b, i > 0 & x > 0
          ? x-1
          : x);
  }
}

String r(String s, chary, char z){
    int a, b;
    return s.substring(0, a=s.indexOf(y)) + s.substring(a, b=s.lastIndexOf(z) + 1).replaceAll(".", "*") + s.substring(b);
}

テストコード：

import java.util.*;

class M{
  void x(List<String>b,int x)throws Exception{Thread.sleep(500);int i=0,l=b.size(),z=x;String w;for(;i<l;i++){System.out.println(w=b.get(i));if(w.contains("{"))x=i;}System.out.println();w=b.get(x);i=w.contains("*")?1:0;if(i>0)b.remove(x);else b.set(x,z<0?r(w,'{','}'):r(w,'|','|'));if(l>1)x(b,i>0&x>0?x-1:x);}String r(String s,char y,char z){int a,b;return s.substring(0,a=s.indexOf(y))+s.substring(a,b=s.lastIndexOf(z)+1).replaceAll(".","*")+s.substring(b);}

  public static void main(String[] a){
    try{
        List<String> l = new ArrayList(){{
            add("   |   ");
            add("  |#|  ");
            add("  |#|  ");
            add(" {# #} ");
            add("|# # #|");
            add("|# # #|");
            add("|# # #|");
            add("TTTTTTT");
        }};
        new M().c(l, -1);
    }
    catch(Exception e){}
  }
}

ここで試してみてください。（ideoneでは、一度に出力し、sleep..を無視します。）

— ケビン・クルーッセン
ソース
例外をキャッチすると、数バイト節約できます。それともtry{...}finally{return;}？
— ニール
おかげで@Neilが、私は今、私はシングルを持って、両方の方法をマージするために管理してきましたthrows Exception
— ケビンCruijssen
2

Haskell、245 221バイト

import System.Posix.Unistd
r=reverse
c#l|(i,j)<-span(<'!')l=i++(c<$j)
f[b]=[[b]]
f s|(h@(a:b),d:c)<-break(elem '{')s=(h++'*'#d:c):(h++c):f(init h++'{'#last h:c)|1<2=r<$>(f$r s)
mapM((usleep 500000>>).mapM putStrLn).init.f

使用例：

mapM((usleep 500000>>).mapM putStrLn).init.f $ ["  |"," {#}"," |#|","|# #|","|# #|","TTTTT"]

使い方：

c#l|(i,j)<-span(<'!')l=i++(c<$j)    -- helper function that takes a char c and
                                    -- a string l and keeps the leading spaces
                                    -- of l and replaces the rest with c

                                    -- f takes a building (list of strings) and
                                    -- makes the sequence of collapsing buildings
                                    -- as a list of list of strings
f[b]=[[b]]                          -- base case. Stop when there's only a single
                                    -- floor left
f s                                 -- if the building has at least two floors
   |(h@(a:b),d:c)<-break(elem '{')s --   if there is at least one floor above the
                                    --   explosion
        =(h++'*'#d:c) :             --     return the current building with the
                                    --     floor to explode replaced by *
        (h++c) :                    --     followed by the current building with
                                    --     the exploded floor removed 
        f(init h++'{'#last h:c)     --     followed by a recursive call
                                    --     with the next to explode floor marked
                                    --     with '{'
   |1<2=r<$>(f$r s)                 --   if all top floors have exploded, reverse
                                    --   the left over floors, let them explode
                                    --   and reverse the floors of each building
                                    --   again.

                      f             -- let the building collapse
                 init               -- f comes with an additional building with
                                    -- a single floor of * only -> drop it
mapM(     )                         -- for every building
     (usleep 500000>>)              --   delay 0.5 sec
             mapM putStrLn          --   and print the floors

注：threadDelayfromのGHC.Conc代わりにusleepfrom System.Posix.Unistdが少し短くなっていますが、GHCコンパイラでのみ機能するため、一般的なHaskell答えにはなりません。

— ニミ
ソース
2

C、 314 287 281 271バイト

s,e,t,i;f(char**b){char*p;do{system("CLS");i=0;do{while(!(p=b[i]))i++;if(!*b&&e==1)e=i;while(*p<33)putchar(*p++);if(!t)e=*p=='{'?i:e,s+=2;do{putchar(e==i&&t%2&&*p>16?'*':*p);}while(*p&&*p++>16);}while(*b[i++]-84);if(t++%2)b[e]=0,*b&&e>0?e--:e++;Sleep(500);}while(t<s-1);}

-10 （可能な場合はcharリテラルに変更!=し-て回避した後）とisspace（H Waltersに感謝します）。しかし、改変されていないコードは変更されていません。

s,e,t,i;f(char**b){char*p;do{system("CLS");i=0;do{while(!(p=b[i]))i++;if(!*b&&e==1)e=i;while(isspace(*p))putchar(*p++);if(!t)e=*p=='{'?i:e,s+=2;do{putchar(e==i&&t%2&&*p>0xF?'*':*p);}while(*p&&*p++>0xF);}while(*b[i++]!='T');if(t++%2)b[e]=0,*b&&e>0?e--:e++;Sleep(500);}while(t<s-1);}

コマと{}2 を削除した後、-6バイトif。

s,e,t,i;f(char**b){char*p;do{system("CLS");i=0;do{while(!(p=b[i]))i++;if(!*b&&e==1)e=i;while(isspace(*p))putchar(*p++);if(!t){s+=2;e=*p=='{'?i:e;}do{putchar(e==i&&t%2&&*p>0xF?'*':*p);}while(*p&&*p++>0xF);}while(*b[i++]!='T');if(t++%2){b[e]=0;e=*b&&e>0?e-1:e+1;}Sleep(500);}while(t<s-1);}

-最適化を少し行った後、不要な括弧を削除し、ローカル変数をグローバル（自動0初期化）に変更しb[0]、さらに*b。

f(char**b){int s=0,e=0,t=0;char*p;do{system("CLS");int i=0;do{if(!t){s+=2;if(strchr(b[i],'}'))e=i;printf(b[i]);}else{while(!(p=b[i]))i++;if(!b[0]&&e==1)e=i;do{putchar((e==i&&t%2&&!isspace(*p))?'*':*p);}while(*p&&*p++!='\n');}}while(b[i++][0]!='T');if(t%2){b[e]=0;e=(b[0]&&e)?e-1:e+1;}t++;Sleep(500);}while(--s>1);}

ungolfedでテストコードf：

#include <stdio.h>
#include <windows.h> // to use Sleep and system

s, e, t, i;
f(char**b)
{
    char*p;
    do{
        system("CLS");
        i = 0;
        do
        {
            while (!(p=b[i]))i++; // skip demolished floors
            if (!*b && e==1) e = i;
            while (isspace(*p)) putchar(*p++); // print spaces 
            if (!t){ s += 2; e = *p == '{' ? i : e; } // find a bomb and count steps at the first iteration
            do{
                putchar(e == i && t%2 &&*p>0xF ? '*' : *p); // print floor or * for next floor at odd step
            } while (*p && *p++ >0xF); // >0xF is instead of !='\n'
        } while (*b[i++] != 'T'); // until the ground
        if (t++ % 2)
        {
            b[e] = 0; // delete the demolished floor
            e = *b&&e>0 ? e-1 : e+1; // and determine next floor to be demolished
        }
        Sleep(500);
    } while (t<s-1);
}

int main(void)
{
    char * arr[] = { "   |\n",
                     "  |#|\n",
                     "  {#}\n",
                     " |# #|\n",
                     "|# # #|\n",
                     "|# # #|\n",
                     "|# # #|\n",
                     "TTTTTTT" };
    f(arr);
}
— VolAnd
ソース
1
あなたは定義することができs,e,t、このように外部のグローバルs,e,t;
— Mukulクマール
@MukulKumarよろしいですか？
— マークイースリー16年
いや、必ず先に行くとそれを試して...、また含んi他の人と。
— ムクルクマール
私はいくつかの他の最適化を試み、あなたの提案も使用します
— VolAnd
@MukulKumarアドバイスありがとうございます... -23バイト
— -VolAnd
1

Perl、153バイト

for(@a=<>;$a[$i]!~/{/;$i++){}for(;$a[0]!~/^T/;`sleep .5`){if($P=!$P){$a[$i]=~s/(\S.*\S|\S)/"*" x length($1)/e}else{splice(@a,$i,1);if($i){$i--}}print@a}

これはGNUスリープコマンドを使用して500ミリ秒待機します。

非ゴルフバージョン

for(@a=<>;$a[$i]!~/{/;$i++){}
for(;$a[0]!~/^T/;`sleep .5`){
    if($P=!$P){
       $a[$i]=~s/(\S.*\S|\S)/"*" x length($1)/e
    } else { 
       splice(@a,$i,1);
       if($i){$i--}
    }
    print @a
 }
— アダム
ソース
1

PHP、286 282 274 234 229バイト

<?for($a=$argv,array_shift($a);!strstr($a[+$i++],"{"););while($a[0][0]!=T){$x=&$a[$i-=$i>0];$x=str_pad(substr($x,0,strspn($x," ")),strlen($x),"*");eval($p='echo join("\n",$a),"\n\n";usleep(5e5);');array_splice($a,$i,1);eval($p);}

コマンドライン引数から文字列のリストとして入力を受け取ります（改行文字はありません！）

ファイルに保存して実行 php <filename> ' |' ' |#|' ' {#}' ' |# #|' '|# # #|' '|# # #|' '|# # #|' 'TTTTTTT'

壊す

<?
for($a=$argv,array_shift($a);   // import input
    !strstr($a[+$i++],"{"););   // find explosives
while($a[0][0]!=T)              // loop while ground not reached:
{
    $x=&$a[$i-=$i>0];               // move up if possible, reference floor
    $x=str_pad(
        substr($x,0,strspn($x," ")  // keep leading spaces
    ),strlen($x),"*");              // replace rest with asterisks
                                    // print and wait
    eval($p='echo join("\n",$a),"\n\n";usleep(5e5);');
    array_splice($a,$i,1);          // remove current floor
    eval($p);                       // print and wait
}
— タイタス
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.