接続文字


23

文字列として表される文字のブロックを受け取り、アルファベットで隣接する文字が接続された同様の文字列を出力または返すプログラムまたは関数を作成する必要があります。

視覚的な例(の形式input => output):

b     d               b     d        
                      |\   /|        
                      | \ / |        
             =>       |  X  |        
                      | / \ |        
      e               |/   \e        
c     a               c     a        

詳細

  • 入力は、スペース、改行、および最初のN小文字をそれぞれ1つだけ含む文字列になります。1 <= N <= 26
  • 入力の行にはスペースが埋め込まれ、完全な長方形のブロックが作成されます。
  • アルファベットで隣接する文字のペアはすべて、同じ行、列、または対角線上にあり、を使用して直線のアスキー線で接続する必要があります\ / | or -。(行の長さは0である場合があります。)
  • 次のタイプの2行オーバーラップを処理する必要があります。

    / and \ become X
    | and - become +
    / and / become /
    \ and \ become \
    | and | become |
    - and - become -
    [letter] and [anything] become [letter]
    
  • 他の種類の2行のオーバーラップは発生しません。

  • 3本以上の線が重なる場合、それらのペアはいずれも有効な重なりの1つであることが保証されます。(たとえば、[letter] / |トリプレットは発生しません)
  • スペースを\ / | - X and +入力と出力に変更することを除けば、同じでなければなりません。
  • 末尾の改行はオプションですが、入力と出力で同じでなければなりません。
  • これはコードゴルフなので、最短のエントリが優先されます。

入力:

b     d        


     h   gi    

      e  f     
c     a        

出力:

b     d        
|\   /|        
| \ / |        
|  X h+--gi    
| / \ |  |     
|/   \e--f     
c     a        

入力:

     dk    j   

 b    l        

 c   fg        

     a    m    

   i      h    
     e         

出力:

     dk----j   
    /||   /    
 b / |l  /     
 |X  | \/      
 c \ fg/\      
    \|/\ \     
     a  \ m    
    /|   \     
   i-+----h    
     e         

入力:

   eti  sqjh k  p  u  cfm vb owgzyx rnd la  

出力:

   eti--sqjh-k--p--u--cfm-vb-owgzyx-rnd-la  

入力:

a

出力:

a

本当に素敵なアスキーアート
オプティマイザー

2
Xと+の両方のオーバーラップが同じスポットにある場合はどうなりますか?それとも、説明すべきケースではありませんか?
-theonlygusti

@theonlygusti例として「つ以上のラインはそれらの任意の対が有効な重複のいずれかになり重複する場合」/-無効重複あるX+/ \ - and |)同じ位置で発生することができません。
randomra

まだ混乱しています。例を挙げてみませんか?
-theonlygusti

@theonlygusti:基本的に、説明すべきケースではありません
Claudiu

回答:


3

Perl、219

いくつかの改善はまだ可能かもしれません。

#!perl -p0
/
/;$x="@-";
sub g{map"(?=$_)(.@_)+[".chr(1+ord).chr(~-ord)."]",a..z}
sub f{for$p(g"{$x}"){s/$p/$&&((_."\177"x~-$x)x y!
!!)/se;$_=lc;s![\0\\]!@_!g}$x++}
f"/";y!\17!/!;f"|";f"\\";y/\17/X/;for$p(g){s/$p/$&=~y! |!-+!r/e}

私を試してください


6

JavaScriptの(ES6)246 266 280 285 307

かなりかさばる...

文字列パラメーターを持ち、変更された文字列を返す関数。入力が1行のみである場合を除き、末尾の改行はオプションです(行lenを見つけるには改行が必要です)

誰かを幸せにするためだけに

F=b=>b.match(/\w/g).sort().map(l=>(q=b.indexOf(l),~p)?[o=b.indexOf('\n'),~o,o+2,1].map((d,i)=>{k=(q-p)/d|0;if(k&&k*d+p==q)for(m='/|\\-'[i];(p+=k>0?d:-d)-q;c==m|c>'`'&c<'{'?0:b[p]=c>' '?c<'/'|c>'z'?'+':'X':m)c=b[p]}):p=q,p=-1,b=[...b])&&b.join('')

より読みやすい

F=b=>
  b.match(/\w/g).sort().map(l=>
    (q=b.indexOf(l),~p)?
    [o=b.indexOf('\n'),~o,o+2,1].map((d,i)=>{
      k=(q-p)/d|0;
      if(k&&k*d+p==q)
        for(m='/|\\-'[i];
              (p+=k>0?d:-d)-q;
              c==m|c>'`'&c<'{'?0:b[p]=c>' '?c<'/'|c>'z'?'+':'X':m)
            c=b[p]
    })
    :p=q
  ,p=-1,b=[...b])
  &&b.join('')

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

console.log(F('\
b     d\n\
       \n\
       \n\
       \n\
       \n\
      e\n\
c     a\n'))

console.log(F('\
     dk    j\n\
            \n\
 b    l     \n\
            \n\
 c   fg     \n\
            \n\
     a    m \n\
            \n\
   i      h \n\
     e      \n'))

console.log(F('\
b     d    \n\
           \n\
           \n\
     h   gi\n\
           \n\
      e  f \n\
c     a    \n'))

出力

b     d
|\   /|
| \ / |
|  X  |
| / \ |
|/   \e
c     a

     dk----j
    /||   / 
 b / |l  /  
 |X  | \/   
 c \ fg/\   
    \|/\ \  
     a  \ m 
    /|   \  
   i-+----h 
     e      

b     d    
|\   /|    
| \ / |    
|  X h+--gi
| / \ |  | 
|/   \e--f 
c     a    

341文字を数えます。
mbomb007

@ mbomb007インデントの空白と改行をカウントしない
-edc65
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.