คำ -> เส้นขอบฟ้าเมือง

40

ความท้าทาย

โปรแกรมหรือฟังก์ชั่นของคุณจะยอมรับอินพุตสตริงเดียวจาก STDIN หรือพารามิเตอร์ฟังก์ชั่น คุณสามารถสันนิษฐานได้ว่าการป้อนข้อมูลจะมีเพียงตัวอักษรตัวอักษร (a-zA-Z) ช่องว่างและหยุดเต็ม ข้อมูลที่ป้อนเข้านั้นไม่ตรงตามตัวพิมพ์ใหญ่และตัวพิมพ์ดังนั้นคุณควรปฏิบัติต่อ 'a' เหมือนกับที่คุณปฏิบัติกับ 'A'

สำหรับอักขระแต่ละตัวในสตริงคุณจะแสดงผลลัพธ์ของสิ่งปลูกสร้างตามข้อกำหนดต่อไปนี้

อาคารแต่ละหลังจะต้องมีหลังคาที่กำหนดโดยขีดล่างบนบรรทัดบนสุดจากนั้นใช้เครื่องหมายทับ, ช่องว่าง, เครื่องหมายแบ็กสแลชในบรรทัดที่สอง

 _
/ \

จากนั้นคุณจะมีจำนวนชั้นตรงกับหมายเลขตัวอักษร (a = 1, b = 2, c = 3 ฯลฯ ) ซึ่งแสดงโดยผนัง (|) แต่ละด้านและช่องว่างตรงกลาง พื้นด้านล่าง (และชั้นล่างเท่านั้น) ควรมีฐานรากซึ่งเป็นขีดล่างระหว่างผนัง แบบนี้...

|_|

ตัวอย่างเช่น 'b' จะมีลักษณะเช่นนี้

 _
/ \
| |
|_|

ตอนนี้เรารู้แล้วว่าอาคารที่แคบและสูงมากไม่สามารถยืนได้และจะต้องกว้างขึ้นที่ฐานดังนั้นจึงไม่มีอาคารใดที่สามารถยืนสูงกว่าสามชั้นได้โดยไม่ต้องมีการสนับสนุนเพิ่มเติม ดังนั้นทุกสามระดับ (ไม่น้อยกว่า) คุณควรเพิ่ม 'เลเยอร์การขยับขยาย' เลเยอร์ที่กว้างขึ้นประกอบด้วยเครื่องหมายทับและแบ็กสแลชโดยตรงเหนือผนังของส่วนด้านล่างและส่วนด้านล่างควรมีช่องว่างสองช่องกว้างกว่าส่วนด้านบน ชั้นพิเศษไม่นับรวมกับความสูงของอาคาร

อาคารไม่ควรทับซ้อนกัน แต่ไม่ควรมีช่องว่างที่ไม่จำเป็นระหว่างพวกเขาและพื้นดินราบเสมอดังนั้นอาคารทั้งหมดควรมีฐานอยู่ในระดับเดียวกัน

ตัวอย่างเช่น 'abcdefga' จะมีลักษณะเช่นนี้

                           _
                          / \
                     _    | |
                _   / \   | |
           _   / \  | |   | |
          / \  | |  | |  /   \
       _  | |  | |  | |  |   |
    _ / \ | |  | | /   \ |   |
 _ / \| | | | /   \|   | |   |  _
/ \| || |/   \|   ||   |/     \/ \
|_||_||_||___||___||___||_____||_|

ช่องว่างในอินพุตสตริงควรแสดงด้วยเว้นวรรคสองครั้ง

การหยุดแบบเต็มในอินพุตสตริงควรแสดงด้วยเศษหินหรืออิฐเช่นนี้

/\/\

ตัวอย่างเพิ่มเติม

อินพุต = Hello world.

เอาท์พุท =

                                                   _                                                  
                                                  / \                                                 
                                                  | |                                                 
                                                  | |                                                 
                                                  | |                                                 
                                                 /   \                                                
                                                 |   |                                                
                                                 |   |                       _                        
                                                 |   |                      / \                       
                                                /     \                     | |                       
                                                |     |                     | |                       
                                   _            |     |          _          | |                       
                                  / \           |     |         / \        /   \                      
                                  | |          /       \        | |        |   |                      
                                  | |          |       |        | |        |   |                      
                _        _        | |          |       |        | |        |   |        _             
               / \      / \      /   \         |       |       /   \      /     \      / \            
               | |      | |      |   |        /         \      |   |      |     |      | |            
               | |      | |      |   |        |         |      |   |      |     |      | |            
               | |      | |      |   |        |         |      |   |      |     |      | |            
   _          /   \    /   \    /     \       |         |     /     \    /       \    /   \           
  / \         |   |    |   |    |     |      /           \    |     |    |       |    |   |           
  | |         |   |    |   |    |     |      |           |    |     |    |       |    |   |           
  | |         |   |    |   |    |     |      |           |    |     |    |       |    |   |           
  | |    _   /     \  /     \  /       \     |           |   /       \  /         \  /     \          
 /   \  / \  |     |  |     |  |       |    /             \  |       |  |         |  |     |   _      
 |   |  | |  |     |  |     |  |       |    |             |  |       |  |         |  |     |  / \     
 |   |  | |  |     |  |     |  |       |    |             |  |       |  |         |  |     |  | |     
 |   |  | | /       \/       \/         \   |             | /         \/           \/       \ | |     
/     \/   \|       ||       ||         |  /               \|         ||           ||       | | |     
|     ||   ||       ||       ||         |  |               ||         ||           ||       |/   \    
|_____||___||_______||_______||_________|  |_______________||_________||___________||_______||___|/\/\

อินพุต = lorem ipsum

                                                                                             _                  
                                                                                            / \                 
                                                                              _             | |                 
                                                                             / \            | |                 
                          _                                                  | |            | |                 
                         / \                                                 | |           /   \                
                         | |                                    _            | |           |   |                
                         | |                                   / \          /   \          |   |                
              _          | |                                   | |          |   |          |   |                
             / \        /   \                                  | |          |   |         /     \               
             | |        |   |              _                   | |          |   |         |     |         _     
             | |        |   |             / \                 /   \        /     \        |     |        / \    
    _        | |        |   |             | |                 |   |        |     |        |     |        | |    
   / \      /   \      /     \            | |                 |   |        |     |       /       \       | |    
   | |      |   |      |     |            | |                 |   |        |     |       |       |       | |    
   | |      |   |      |     |           /   \               /     \      /       \      |       |      /   \   
   | |      |   |      |     |           |   |        _      |     |      |       |      |       |      |   |   
  /   \    /     \    /       \          |   |       / \     |     |      |       |     /         \     |   |   
  |   |    |     |    |       |          |   |       | |     |     |      |       |     |         |     |   |   
  |   |    |     |    |       |         /     \      | |    /       \    /         \    |         |    /     \  
  |   |    |     |    |       |         |     |      | |    |       |    |         |    |         |    |     |  
 /     \  /       \  /         \   _    |     |     /   \   |       |    |         |   /           \   |     |  
 |     |  |       |  |         |  / \   |     |     |   |   |       |    |         |   |           |   |     |  
 |     |  |       |  |         |  | |  /       \    |   |  /         \  /           \  |           |  /       \ 
 |     |  |       |  |         |  | |  |       |    |   |  |         |  |           |  |           |  |       | 
/       \/         \/           \ | |  |       |   /     \ |         |  |           | /             \ |       | 
|       ||         ||           |/   \ |       |   |     | |         |  |           | |             | |       | 
|       ||         ||           ||   |/         \  |     |/           \/             \|             |/         \
|_______||_________||___________||___||_________|  |_____||___________||_____________||_____________||_________|

อินพุต = a.a.a.x.x.x.a.a.a

                             _                    _                    _                             
                            / \                  / \                  / \                            
                            | |                  | |                  | |                            
                            | |                  | |                  | |                            
                            | |                  | |                  | |                            
                           /   \                /   \                /   \                           
                           |   |                |   |                |   |                           
                           |   |                |   |                |   |                           
                           |   |                |   |                |   |                           
                          /     \              /     \              /     \                          
                          |     |              |     |              |     |                          
                          |     |              |     |              |     |                          
                          |     |              |     |              |     |                          
                         /       \            /       \            /       \                         
                         |       |            |       |            |       |                         
                         |       |            |       |            |       |                         
                         |       |            |       |            |       |                         
                        /         \          /         \          /         \                        
                        |         |          |         |          |         |                        
                        |         |          |         |          |         |                        
                        |         |          |         |          |         |                        
                       /           \        /           \        /           \                       
                       |           |        |           |        |           |                       
                       |           |        |           |        |           |                       
                       |           |        |           |        |           |                       
                      /             \      /             \      /             \                      
                      |             |      |             |      |             |                      
                      |             |      |             |      |             |                      
                      |             |      |             |      |             |                      
                     /               \    /               \    /               \                     
 _      _      _     |               |    |               |    |               |     _      _      _ 
/ \    / \    / \    |               |    |               |    |               |    / \    / \    / \
|_|/\/\|_|/\/\|_|/\/\|_______________|/\/\|_______________|/\/\|_______________|/\/\|_|/\/\|_|/\/\|_|

กฎระเบียบ

  • ของหลักสูตรนี้เป็นรหัสกอล์ฟคะแนนต่ำสุดเป็นไบต์ชนะ
  • ใช้กฎช่องโหว่มาตรฐาน
  • จำนวนบรรทัดว่างเพิ่มเติมใด ๆ ก่อนหรือหลังเอาต์พุตอนุญาต
  • คุณสามารถเลือกที่จะแสดงผลลัพธ์ทั้งหมดในสตริงเดียวหรือเสนอเอาท์พุทเป็นอาร์เรย์ที่แต่ละองค์ประกอบแทนหนึ่งบรรทัดของเอาต์พุตหรือส่งไปยัง STDOUT

บันทึก

นี่คือการโพสต์แรกของฉันเพื่อ PPCG ดังนั้นโปรดไปกับฉัน ผ่านกล่องทรายมาแล้ว จุดลบหรือการปรับปรุงใด ๆ ที่เป็นไปได้โปรดโพสต์เป็นความคิดเห็นและฉันจะทำสิ่งที่ฉันทำได้

code-golf  ascii-art 
— Darren H
แหล่งที่มา
7
แปลง[a,z]และ[A,Z]จะ[1,26]ดูเหมือนว่าเป็นความต้องการที่ไม่มีจุดหมาย มันจะเป็นการดีกว่าถ้าคุณใช้จำนวนเต็มรายการเป็นอินพุต (ต้อง0เป็นอินพุตสำหรับเศษหินหรืออิฐ) นอกจากนี้การโพสต์ความท้าทายของคุณหลังจากที่อยู่ใน Sandbox เพียง 21 ชั่วโมงโดยไม่ต้องรอรับคะแนนโหวตหรือข้อเสนอแนะจากผู้ใช้มากกว่าหนึ่งรายจะไม่นับว่ามีการ "ผ่านแซนด์บ็อกซ์" ขอแนะนำให้ทิ้งความท้าทายไว้ใน Sandbox เป็นเวลาอย่างน้อย 48-72 ชั่วโมงเพื่อให้ผู้คนมีเวลามากพอที่จะทบทวนพวกเขา
— Mego
2
ทำให้ผมนึกถึงเรื่องนี้ มีความสุขความท้าทายแรก แต่ผมขอแนะนำให้คุณพิจารณาการเปลี่ยนแปลง[a,z], [1.26]ชิ้นส่วนชำเลืองกล่าวถึง การมีตัวเลือกมักจะดีที่สุด (เว้นแต่จะเป็นส่วนสำคัญของการท้าทาย (ไม่ใช่ที่นี่)
— Stewie Griffin
2
ฉันจะบอกว่านี่เป็นความท้าทายแรกที่ดีมาก ยินดีต้อนรับสู่เว็บไซต์!
— DJMcMayhem
1
ฉันสามารถเข้าใจประเด็นเกี่ยวกับการจับคู่ az กับจำนวนเต็ม มันสมเหตุสมผลในการทำซ้ำครั้งแรกของความท้าทาย แต่เนื่องจากการแก้ไขเพื่อความชัดเจนและความสั้น (มี backstory ที่ฉันได้ลบ) ตัวอักษรไม่เกี่ยวข้องอีกต่อไป ฉันจะแก้ไขอย่างเหมาะสมโดยเร็วที่สุด
— Darren H
1
ฉันชอบ az, space, period, personal
— isaacg

คำตอบ:

10

JavaScript (ES6), 330 326 ... 315 309 ไบต์

สร้างงานศิลปะ ASCII แบบวนซ้ำเริ่มต้นที่ชั้นล่างสุดและใช้การแสดงออกปกติหลายครั้งระหว่างแต่ละขั้นตอน:

(a,l,R=(E,b)=>E.split`:`.map((e,i)=>l=(l||a).replace(RegExp(e,'g'),b?b.split`:`[i]:n=>(x=(n.charCodeAt()-65)%32)<0?x+1?'/y/y':n+n:x%3+'_'.repeat((x/3<<1)+1)+0)))=>(L=l)?(R('/y:_:/xy:1:2:/xx(x+)y:0(x+)0:3','  :x: _ :3:1: 2$10 :/$1y:0'),L==l?(l=a.join`
`,R('\\d:x:y','|: :\\'),l):f([l].concat(a),l)):f(R('.'),l)

มันทำงานอย่างไร

1) ชั้นล่าง

เราเริ่มต้นโดยการแปลสตริงอินพุตให้เป็นชั้นล่างเช่น:

"ab cd.df.hcab"  -->  "0_01_0  2_00___0/y/y0___02___0/y/y1_____02_00_01_0"

ที่อยู่:

  • y เป็นนามแฝงที่สั้นกว่าสำหรับแบ็กสแลช (ซึ่งต้องมีการหลบหนี)
  • หลัก ( 0, 1หรือ2) ก่อนลำดับของ_เป็นผนังด้านซ้ายของอาคาร มันหมายถึงจำนวนของผนังที่จะต้องวางอยู่เหนือมันก่อน 'เลเยอร์กว้าง' ถัดไป
  • หลักหลังจากลำดับของเป็นผนังด้านขวาของอาคารและตั้งเสมอ_0

2) นิพจน์ทั่วไปที่ใช้ระหว่างแต่ละขั้นตอน

กระบวนการวนซ้ำประกอบด้วยการใช้การแทนที่ 9 ครั้งบนชั้นก่อนหน้าโดยใช้นิพจน์ทั่วไปต่อไปนี้:

  1. /\/y/g=> " "(ลบเศษหินหรืออิฐ)
  2. /_/g=> "x"(แทนที่รากฐานหรือด้านบนของอาคารด้วยบล็อกทึบ)
  3. /\/xy/g=> " _ "(แทนที่เลเยอร์การขยับขยายสุดท้ายด้วยด้านบนของสิ่งปลูกสร้าง)
  4. /1/g=> "3"(แทนที่1ด้วย3- ดูขั้นตอนสุดท้ายชั่วคราว)
  5. /2/g=> "1"(แทนที่2ด้วย1)
  6. /\/xx(x+)y/g=> " 2$10 "(แทนที่เลเยอร์การขยับขยายด้วยกำแพงใหม่ที่แคบกว่า)
  7. /0(x+)0/g=> "/$1y"(แทนที่ส่วนบนของผนังด้วยเลเยอร์กว้างขึ้น)
  8. /3/g=> "0"(แทนที่3ด้วย0)

ตัวอย่างเช่นนี่คือการแปลงต่อเนื่องของ2___0(ล่างสุดที่สร้างโดย a 'f'):

"2___0" > "1xxx0" > "0xxx0" > "/xxxy" > " 2x0 " > " 1x0 " > " 0x0 " > " /xy " > "  _  "

                                                                                   _   
                                                                        /xy       /xy  
                                                              0x0       0x0       0x0  
                                                    1x0       1x0       1x0       1x0  
                                          2x0       2x0       2x0       2x0       2x0  
                               /xxxy     /xxxy     /xxxy     /xxxy     /xxxy     /xxxy 
                     0xxx0     0xxx0     0xxx0     0xxx0     0xxx0     0xxx0     0xxx0 
           1xxx0     1xxx0     1xxx0     1xxx0     1xxx0     1xxx0     1xxx0     1xxx0 
 2___0     2___0     2___0     2___0     2___0     2___0     2___0     2___0     2___0

หมายเหตุ : xด้านบนของอาคารจะถูกแทนที่แล้วโดย สิ่งนี้ไม่ปรากฏในแผนภาพด้านบน

3) นิพจน์ทั่วไปที่ใช้กับผลลัพธ์สุดท้าย

การเรียกซ้ำจะหยุดลงเมื่อไม่มีสิ่งใดมาแทนที่ซึ่งหมายความว่าเราอยู่เหนือยอดสูงสุดของสิ่งปลูกสร้าง

ตอนนี้เราต้องล้างข้อมูลทุกอย่างด้วยนิพจน์ปกติอีกสองสามข้อ:

  1. /\d/g=> "|"(แทนที่ตัวเลขด้วยไพพ์)
  2. /x/g=> " "(แทนที่บล็อกทึบด้วยช่องว่าง)
  3. /y/g=> "\"(แทนที่yด้วยแบ็กสแลช)

ตัวอย่างเช่น

  _            _  
 /xy          / \ 
 0x0          | | 
 1x0          | | 
 2x0   -->    | | 
/xxxy        /   \
0xxx0        |   |
1xxx0        |   |
2___0        |___|

การสาธิต

let f =

(a,l,R=(E,b)=>E.split`:`.map((e,i)=>l=(l||a).replace(RegExp(e,'g'),b?b.split`:`[i]:n=>(x=(n.charCodeAt()-65)%32)<0?x+1?'/y/y':n+n:x%3+'_'.repeat((x/3<<1)+1)+0)))=>(L=l)?(R('/y:_:/xy:1:2:/xx(x+)y:0(x+)0:3','  :x: _ :3:1: 2$10 :/$1y:0'),L==l?(l=a.join`
`,R('\\d:x:y','|: :\\'),l):f([l].concat(a),l)):f(R('.'),l)

console.log(f('ab cd.df.hcab'));
ขยายตัวอย่างข้อมูล

ผู้ร่วมให้ข้อมูล:
4 ไบต์บันทึกไว้ขอบคุณ Hedi
บันทึกไว้ 8 ไบต์ขอบคุณ Not Not Charles

— Arnauld
แหล่งที่มา
ใครก็ตามที่ต้องการป้อนข้อมูลเป็นจำนวนเต็มยินดีต้อนรับ แต่ฉันขอแนะนำรายการดังกล่าวไม่ควรแข่งขัน
— mbomb007
@ mbomb007 - แก้ไขแล้ว การเพิ่มประสิทธิภาพปัจจุบันของฉันไม่ได้ชดเชยค่าใช้จ่ายของน่าอับอาย.charCodeAt()แม้ว่า
— Arnauld
คุณไม่ต้องการnew ในnew RegExp(e,'g')
— Hedi
ฉันชอบวิธีนี้มาก ความคิดบางอย่างที่อาจช่วยได้: 1. ใช้ตัวอักษรแบบyที่ไม่ต้องหลบหนีสำหรับเครื่องหมายสแลชของคุณ 2. ถ้าคุณใช้_สำหรับพื้นคุณยังสามารถแยกความแตกต่างด้านบนด้วย regex /_ /นี้:
— ไม่ใช่ชาร์ลส์ที่
1
@NotthatCharles - จริง ๆ แล้วฉันไม่เคยสังเกตเห็นกฎ "double space" ;) สิ่งนี้ได้รับการแก้ไขแล้ว
— Arnauld
7

PHP, 386 376 367 364 362 358 356 ไบต์

แนวทางแรก อาจยังเล่นกอล์ฟได้

foreach(str_split($argv[1])as$c)for($n=28,$w='.'!=$c?1+2*ceil(1/3*$n=31&ord($c)):4,$p=$y=0;$y<36;){$s=str_pad("",$w,$y||!$n?" ":_);if($n>26&&!$y){$s="/\\/\\";$n=-1;}elseif($n-->0){$s[$p]=$s[$w-$p-1]="|";if($n%3<1){$o[$y++].=$s;$s=str_pad("",$w);$s[$p]="/";$s[$w-++$p]="\\";}}$o[$y++].=$s;if(!$n)$o[$y++].=str_pad(_,$w," ",2);}for($y=36;$y--;)echo"$o[$y]
";

PHP, 366 362 361 360 357 ไบต์

วิธีการที่คล้ายกันกับฟังก์ชั่นย่อย:

function a($p,$r){global$o,$w,$y;$o[$y++].=str_pad(str_pad($r[0],2*$p,$r[1]).$r[2],$w," ",2);}foreach(str_split($argv[1])as$i=>$c)for($n=28,$w='.'!=$c?1+2*$p=ceil(1/3*$n=31&ord($c)):$p=4,$y=0;$y<36;)if($n>26&&!$y)$o[$n=$y++].="/\\/\\";elseif($n-->0){a($p,$y?"| |":"|_|");if($n%3<1)a($p--,"/ \\");if(!$n)a(1," _");}else a(0,"");for($y=36;$y--;)echo"$o[$y]
";

รายละเอียดสำหรับวิธีที่สอง

function a($p,$r)
{
    global$o,$w,$y;
    $o[$y++].=                  // 3. add result to current line, increase line counter
        str_pad(                // 2. pad ...
        str_pad($r[0],2*$p,$r[1]).$r[2]     // 1. A + inner width(=2*$p-1) times B + C
        ,$w," ",2);             // ... to $w with blanks on both sides # 2==STR_PAD_BOTH
}

foreach(str_split($argv[1])as$i=>$c)
    for(
    $n=28,
    $w='.'!=$c                          // $w=total width
        ?1+2*$p=ceil(1/3*$n=31&ord($c)) // $n=storey count, $p=(inner width+1)/2
        :$p=4                           // $n=28, $p <= $w=4 for rubble
    ,
    $y=0;$y<36;)                        // $y=line counter
        if($n>26&&!$y)
            $o[$n=$y++].="/\\/\\";      // bottom line=rubble, $n=0
        elseif($n-->0)
        {
            a($p,$y?"| |":"|_|");       // add storey
            if($n%3<1)a($p--,"/ \\");   // add widening layer/roof
            if(!$n)a(1," _");           // add roof top
        }
        else
            a(0,"");                    // idk why str_pad doesn´t yield a warning here

for($y=36;$y--;)if($s=rtrim($o[$y]))echo"$s\n"; // output

16 ไบต์ถ้าการขึ้นบรรทัดใหม่ชั้นนำที่ไม่ได้รับอนุญาต:
แทนที่ด้วยecho"$o[$y]\n;if($s=rtrim($o[$y]))echo"$s\n";

-3 ไบต์สำหรับใด ๆ ของ;<=>?[\]^_{|}~เศษ: แทนที่ 1) ($n=31&ord($c))กับ$n2) $n=28,$w='.'!=$cด้วย($n=31&ord($c))<27และ 3) ด้วย4($n=28)/7

อีก -8 สำหรับ>, ^หรือ~เศษ: เลิกทำ 3)

— ติตัส
แหล่งที่มา
1
if(!$n){$o[$y++].=str_pad(_,$w," ",2);}-2 Bytes สำหรับวงเล็บ
— JörgHülsermann
และผลลัพธ์สามารถทำได้สั้นลง 3 ไบต์: for($y=36;$y--;)echo"$o[$y]\n";; แต่ฉันมีวิธีการใหม่ที่ช่วยประหยัดอีก 2 ไบต์
— ติตัส
1
php.net/manual/en/functions.anonymous.phpสำหรับวิธีที่สอง `ใช้ฟังก์ชัน ($ p, $ r) ($ o, $ w, $ y, $ y) 'แทนทั่วโลก
— JörgHülsermann
@ JörgHülsermann: useใช้ได้กับฟังก์ชั่นที่ไม่ระบุชื่อเท่านั้น มันจะประหยัด 2 ไบต์; แต่ฉันจะต้องเก็บฟังก์ชั่นนั้นในตัวแปร$a=แทนที่จะให้ชื่อ (+3 ไบต์) และเพิ่มการ$โทรแต่ละครั้ง
— ติตัส
4

Pyth, 93 79 ไบต์

K"/\\"j_.tsm?hJxGdC_m.[hyNk\ +\_mj*hy/k4?nkJ\ \_?%k4"||"Kh=+J=Nh/J3[F*2|@d;Krz0

ลองออนไลน์ ชุดทดสอบ

คำอธิบาย

ฉันซ่อนสิ่งนี้ไว้เป็นค่าเริ่มต้นเนื่องจากมันยาวเกินไป

แสดงตัวอย่างโค้ด

— PurkkaKoodari
แหล่งที่มา
4

Perl, 147 146 ไบต์

รวม +1 สำหรับ -p

เรียกใช้ด้วยอินพุตบน STDIN เช่น

citysky.pl <<< " abcdefgxyz."

citysky.pl:

#!/usr/bin/perl -p
s%.%@{[map chr~-ord(lc$&)*4/3-4*(abs||-9),-9..9]}%g;y/M\xa248
A|-\xc6\0-\xff/MA||
A}-\xc6A/d,$a=(lc$a).$_ for($_)x36;*_=a;s/\x9f.*?\K\x9f/\xa3/g;y%A\xc6\x9f-\xa3\x0b-\xff%__/|||\\ %

ทำงานตามที่แสดง แต่แทนที่ค่า\xhhEscape ด้วยค่าตัวอักษรเพื่อให้ได้คะแนนที่อ้างสิทธิ์ คุณสามารถทำได้โดยใช้ commandline นี้:

perl -0pi -e 's/\\x(..)/chr hex $1/eg;s/\n$//' citysky.pl

ฉันไม่ได้สำรวจวิธีการอื่น ๆ ดังนั้นนี่อาจจะเป็นสิ่งที่เอาชนะได้มาก ...

— ต้นพระวรสาร
แหล่งที่มา
2

Haskell ขนาด 289 ไบต์

c?l=c++l++c
c%s=("|"?(drop 2(r s)>>c)):s
g 46=["/\\"?""]
g 32=["  "]
g x="_"%h(mod x 32)
h 1=["/ \\"," _ "]
h x=(" "%h(x-1))!x
v!x|mod x 3/=1=v|z<-'/':r v++"\\"=z:map(" "?)v
r v=v!!0>>" "
f t|l<-map(g.fromEnum)t,m<-maximum(map length l)-1=unlines[l>>= \x->(x++cycle[r x])!!i|i<-[m,m-1..0]]
— ดาเมียน
แหล่งที่มา
2

ทับทิม, 245

->s{a=['']*36
w=' '
s.chars{|c|a[u=0]+=c<?!?w*2:c<?/?"/\\"*2:(h=c.upcase.ord-64
1.upto(1+h+=(h-1)/3){|t|u=[u,l=1+2*((f=h-t)/4)].max
a[t]+=w*(a[0].size-a[t].size)+(f<-1?w:f<0??_:(f%4<1?[?/,?\\]:[?|]*2)*(w*l)).center(u+2)}
"|#{?_*u}|")}
a.reverse}

คุณอนุญาตให้ขึ้นบรรทัดใหม่ได้มากเท่าที่คุณต้องการดังนั้นฉันจึงแสดงความคิดเห็น นอกเหนือจากนั้นกระบวนการดังต่อไปนี้:

  1. aเริ่มต้นอาร์เรย์เอาท์พุท
  2. สำหรับแต่ละถ่าน:
    1. ถ้ามัน '', เพิ่ม การa[0]
    2. ถ้ามัน '' เพิ่ม/\/\เพื่อa[0]
    3. มิฉะนั้น:
      1. คำนวณความสูง ( c.upcase.ord + (c.upcase.ord-1)/3)
      2. สำหรับแต่ละแถวในa:
        1. รองแถวด้วยช่องว่าง a[t]+=w*(a[0].size-a[t].size)
        2. หากเราอยู่ข้างบนhให้อยู่ตรงกลาง_
        3. มิฉะนั้นถ้าเราสูงเหนือระดับกลาง 
        4. อื่นถ้าเราอยู่ต่ำกว่าความสูงกึ่งกลาง| |หรือ/ \ความกว้างที่เหมาะสม ( 1+2*((h-t)/4) ขึ้นอยู่กับว่าh-t%4==0
        5. เพิ่ม"|___|"ความกว้างที่ถูกต้องให้กับa[0]
  3. กลับ a.reverse

ฉันพนันว่าฉันจะทำให้มันเล็กลงถ้าฉันคำนวณคณิตศาสตร์เพื่อหลีกเลี่ยง reverse

— ไม่ว่าชาร์ลส์
แหล่งที่มา
2

PHP, 297 ไบต์

foreach(str_split($argv[1])as$c)for($j=0,$h=ord($c)-64,$g=$h+$f=ceil($h/3),$w=$v=$h<0?$h<-18?2:4:2*$f+1;$j<36;$j++,$g--,$v-=$h>0&&$v>1?($g%4||!$j)?0*$n="|$s|":2+0*$n="/$s\\":$v+0*$n=['','_','',0,'/\/\\'][$v],$o[$j].=str_pad($n,$w,' ',2))$s=str_repeat($j?' ':'_',$v-2);krsort($o);echo join($o,'
');

รุ่นที่อ่านได้มากขึ้น:

foreach (str_split($argv[1]) as $character) {
    for (
        $line = 0,
        $buildingHeight = ord($character) - 64,
        $floorsLeft = $buildingHeight + $supportFloors = ceil($buildingHeight / 3),
        $buildingWidth = $widthOnThisFloor = $buildingHeight < 0
            ? $buildingHeight < -18
                ? 2
                : 4
            : 2 * $supportFloors + 1;

        $line < 36;

        // The body of the for-loop is executed between these statements

        $line++,
        $floorsLeft--,
        $widthOnThisFloor -= $buildingHeight > 0 && $widthOnThisFloor > 1
            ? ($floorsLeft % 4 || !$line)
                ? 0 * $floorString = "|$middleSpacing|"
                : 2 + 0 * $floorString = "/$middleSpacing\\"
            : $widthOnThisFloor + 0 * $floorString = ['', '_', '', 0, '/\/\\'][$widthOnThisFloor],
        $outputArray[$line] .= str_pad($floorString, $buildingWidth, ' ', 2)
    ) {
        $middleSpacing = str_repeat($line ? ' ' : '_', $widthOnThisFloor - 2);
    }
}
krsort($outputArray);
echo join($outputArray, '
');
— chocochaos
แหล่งที่มา
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.