อาจเป็นไปไม่ได้ที่ลูกบาศก์


17

ปัญหา

รับอินพุตaเมื่อ a เป็นค่าความจริง / เท็จส่งออก cube ที่เป็นไปไม่ได้ที่แน่นอนด้านล่างหากความจริงและ cube ปกติที่แน่นอนด้านล่างหาก falsey

อินพุตtruthy:

         ___________________________________
        / _______________________________  /|
       / / _____________________________/ / |
      / / /| |                         / /  |
     / / / | |                        / /   |
    / / /| | |                       / / /| |
   / / / | | |                      / / / | |
  / / /  | | |                     / / /| | |
 / /_/___| | |____________________/ / / | | |
/________| | |_____________________/ /  | | |
| _______| | |____________________ | |  | | |
| | |    | | |___________________| | |__| | |
| | |    | |_____________________| | |____| |
| | |   / / _____________________| | |_  / /
| | |  / / /                     | | |/ / /
| | | / / /                      | | | / /
| | |/ / /                       | | |/ /
| | | / /                        | |   /
| | |/_/_________________________| |  /
| |______________________________| | /
|__________________________________|/

อินพุตfalsy:

         ___________________________________
        / _______________________________  /|
       / / _____________________________/ / |
      / / /| |                         / /  |
     / / / | |                        / /   |
    / / /| | |                       / / /| |
   / / / | | |                      / / / | |
  / / /  | | |                     / / /| | |
 / /_/___|_|_|____________________/ / / | | |
/__________________________________/ /  | | |
| ________________________________ | |  | | |
| | |    | | |___________________| | |__| | |
| | |    | |_____________________| | |____| |
| | |   / / _____________________| | |_  / /
| | |  / / /                     | | |/ / /
| | | / / /                      | | | / /
| | |/ / /                       | | |/ /
| | | / /                        | |   /
| | |/_/_________________________| |  /
| |______________________________| | /
|__________________________________|/

กฎระเบียบ

  • อนุญาตช่องว่างต่อท้าย
  • ขึ้นบรรทัดใหม่ที่ได้รับอนุญาต
  • ค่าความจริง / เท็จอาจถูกสลับ (ความจริงสำหรับคิวบ์จริงและปลอมแปลงสำหรับคิวบ์ที่เป็นไปไม่ได้)
  • ควรระบุรูปแบบการป้อนข้อมูล
  • รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

1
เราจำเป็นต้องเอาท์พุทคิวบ์นั้นหรือคิวบ์ที่เป็นไปไม่ได้หรือไม่?
dzaima

1
@dzaima คิวบ์ที่แน่นอน
LiefdeWen

8
เมื่อมองแวบแรกฉันคิดว่าอินพุตเป็นศิลปะ ASCII ถอนหายใจด้วยความโล่งอก
Arnauld

2
@Arnauld ที่จะกลายเป็นเรื่องไม่สำคัญเพราะคุณสามารถดูตัวละครตัวหนึ่งในสถานที่ที่เฉพาะเจาะจงและบอกทั้งสองแยก
JAD

8
@JarkoDubbeldam True สิ่งที่ฉันมีในใจได้มากขึ้นเช่น"ใช้การป้อนข้อมูลที่คล้ายกันที่มีขนาดใดและคิดออกว่าก้อนนั้นถูกต้องหรือไม่"
Arnauld

คำตอบ:


4

SOGL V0.12 , 145 ไบต์

─3n{_⁰
ā"¹K╚=+ƨψ≡tšÆA%εW#žt─M^_ξ0“6²⁰ _*ž}"⁵æκLνbΡ°■=μθΝv╝xxΛTγ►℮ΞyF“'№⁰┐∙ž}"⁸Βλμž╚⅔\Ρ═⁴-θ=╚_>◄4℮`ε║t“'¦⁰ā;∫0 /ž}╬5}'Æ6«@┐2Ο3∙:Aža.?X"≥YΤ%‘5n}L9ž

ลองที่นี่!
โปรแกรมนี้จัดเก็บข้อมูลบรรทัดเป็น 3 หมายเลขฐาน 36-46 แยกและถอดรหัสแต่ละžค่าในอาร์เรย์หลัก
เนื่องจากวิธีการที่ไม่เหมาะสมของวิธีการวาดเส้นทแยงมุมเอาต์พุตมี 27 บรรทัดของบรรทัดที่มีช่องว่าง (ซึ่งอนุญาตโดย OP)

อินพุต:
0 - เป็นไปไม่ได้
1 - เป็นไปได้

คำอธิบาย:

The first line is basically a substitute ⁰ with ─3n{_

ā                   push an empty array (the canvas for the whole cube)
 "...“              pushes 29714643711764388252557994982458231735529743027583646902
      6²─           base-36 decodes it
         3n{     }  for each group of 3 numbers do (where the numbers are X, Y, length)
            _         put all the contents on the stack (in the order X, Y, length)
              _*      get POP amount of underscores
                ž     in the canvas at the positions x;y (the position of the 1st char, 1-indexed) put the underscores

"...“             pushes 19564601770087915522037775830252836261712294966673526596188
     '№─          base-46 decodes it
        3n{    }  for each group of 3 numbers do
           _        put all the contents on the stack
            ┐∙      get an array of "|"s with the length of POP
              ž     in the canvas at the position x;y (position of the top char, 1-indexed) put the vertical bar

"...“                    pushes 124633728256573776407884156928319785312464662536125755768
     '¦─                 base-40 decodes it
        3n{           }  for each group of 3 numbers do
           _               put all the contents on the stack
            ā;             one below the stack put an empty array (canvas for the diagonal line)
              ∫    }       for range(length) do
               0             TMP
                 /           push "/"
                  ž          at the position (iter; 0), 1-indexed put a "/". This extends the array one line upward and causes the extra spaces.
                    ╬5     in the canvas at the position x;y(1-indexed, the top position) put the diagonal line canvas without overriding with spaces

'Æ             push 36
  6«           push 12
    @┐2Ο       push two spaces, encased in vertical bars - "| | |"
        3∙     get an array of 3 of those
          :A   save on variable A
            ž  in the canvas, at the positions 36; 12 put the array

a                 push the variable A
 .?         }     if the input is non-0, then
   X                remove the variable A off of the stack
    "≥YΤ%‘          push "|_|_|__________"
          5n        chop that into an array of strings of length 5
             L9ž  at positions 10;9 insert the top of stack (either the ["| | |","| | |","| | |"] or ["|_|_|","_____","","_____"]) in the canvas

มันเปลี่ยนไปอย่างไรจากอินพุต?
LiefdeWen

0 - เป็นไปไม่ได้ 1 - เป็นไปได้
dzaima

ไม่ควรนำเข้า1ผลลัพธ์ในผลลัพธ์เดียวกันกับอินพุตจริงอื่น ๆ เช่น"test"?
Jonathan Allan

@ โจนาธานทุกคนควรหรือไม่ ใน SOGL การป้อนหมายเลขความจริงคือหมายเลขที่ไม่ใช่ 0 การพิมพ์testในช่องป้อนข้อมูลส่งผลให้เกิดข้อผิดพลาด ถ้ามันเป็นปัญหาใหญ่ฉันก็แค่เอามันใส่สตริงที่ "" จะเป็นเท็จและทุกอย่างอื่นจริง
dzaima

โอ้ถูกต้องฉันเดาว่าภาษานั้นถูกพิมพ์ออกมาอย่างแรงแล้วจัดการกับอินพุตทุกชนิดอาจไม่อยู่ในขอบเขต
Jonathan Allan

9

เยลลี่ ,  187  166 ไบต์

ḣ9;⁾| ṁ5¤oµ€“µ½¿‘¦
“ _/ |/|”;€⁶;”_ṁ"“¡ẇḞ6’D¤ṃ@“Ė⁸ġṾṗ¢œƝṇRK⁹ṄẸŒÐ¤ɓḂı)ḥṆqƓị¹÷ḄƝṁPʠVW1JĊTc;[¤ÆWŒṠṬ#ʋÆ6ẉ⁷ZḷƊḤƑẹẠGḊ|qi×Ƭ®ÐėƁ1(⁸ṪU¹Bgoƭ<Gḋ×c:ȦṚƇĊ¬e*⁽%ḷİ°U’Fs27ǹ⁸?x€15¦€19Y

โปรแกรมเต็มรูปแบบ

ลองออนไลน์!

อย่างไร?

103 ไบต์เป็นหมายเลขฐาน 101 หลักซึ่งเป็นการบีบอัดฐาน 8 ของคิวบ์ที่เป็นไปได้โดยมีการเว้นวรรคต่อท้ายเพื่อเพิ่มความยาวแถวให้เท่ากันโดยไม่มีบรรทัดใหม่และไม่มีอักขระ 18 ตัวจากกึ่งกลางของแต่ละแถวเช่นนี้ แต่ไม่มีบรรทัดใหม่:

         _________________ 
        / _____________  /|
       / / ___________/ / |
      / / /| |       / /  |
     / / / | |      / /   |
    / / /| | |     / / /| |
   / / / | | |    / / / | |
  / / /  | | |   / / /| | |
 / /_/___|_|_|__/ / / | | |
/________________/ /  | | |
| ______________ | |  | | |
| | |    | | |_| | |__| | |
| | |    | |___| | |____| |
| | |   / / ___| | |_  / / 
| | |  / / /   | | |/ / /  
| | | / / /    | | | / /   
| | |/ / /     | | |/ /    
| | | / /      | |   /     
| | |/_/_______| |  /      
| |____________| | /       
|________________|/        

8 หลัก -8 หลักแสดงถึงสตริงของอักขระ:

1      2    3    4    5    6        7        0
"   ", "_", "/", " ", "|", "/ / /", "| | |", "_____"

ดังนั้นการบีบอัดจึงเหมือนกับด้านล่างที่จะแทนที่1s, 6s, 7s และ0s ด้วยสตริงที่แสดงด้านบน:

111000__111/ 00___  /|11 / / 00_/ / |116| |11 / /  |1  6 | |11/ /1|1 671  6| |16 71 6 | |  6  7167 6___|_|_|__6 7/000_/ /  7| 00____ | |  771 7_7__771 | |___7____| |71/ / ___7_  / / 7  6176  7 61 7 / /1761  7/ /1 7 / /11| |1/1  7/_/0__| |  /11| |00__| | /11 |000_|/11  

โปรแกรมกลับกระบวนการและเปลี่ยนอักขระที่ต้องเปลี่ยนถ้าคิวบ์ควรเป็นไปไม่ได้:

“ _/ |/|”;€⁶;”_ṁ"“¡ẇḞ6’D¤ṃ@“ ... ’Fs27ǹ⁸?x€15¦€19Y  Main link: V
                                                     ...splitting this up...
                                                     ...Main link part 1:
“ _/ |/|”;€⁶;”_ṁ"“¡ẇḞ6’D¤ - make the list of strings of characters
“ _/ |/|”                 - list of characters = " _/ |/|"
           ⁶              - literal space character
         ;€               - concatenate €ach -> ["  ","_ ","/ ","  ","| ","/ ","| "]
             ”_           - literal = '_'
            ;             - concatenate -> ["  ","_ ","/ ","  ","| ","/ ","| ", '_']
                        ¤ - nilad followed by link(s) as a nilad:
                 “¡ẇḞ6’   -   base 250 literal = 31111555
                       D  -   convert to decimal list -> [3,1,1,1,1,5,5,5]
                "         - zip with:
               ṁ          -   mould like
                          -   -> ["   ","_","/"," ","|","/ / /","| | |","_____"]

                                                     ...Main link, part 2:
...ṃ@“ ... ’Fs27 - make the rows of a possible cube without the middle repetitions:
...              - part 1, above
     “ ... ’     - the 101 digit base 250 number
   ṃ@            - base decompression with swapped @rguments
            F    - flatten (because the digit values we are using are actually lists)
             s27 - split into chunks of length 27 (into the rows)

                                                     ...Main link part 3:
...ǹ⁸?x€15¦€19Y - make "impossible" if need be, add the row middles and output
...              - part 2, above
       ?         -  if:
      ⁸          -    chain's left argument = V
   Ç             - ...then: call last link (1) as a monad
                 -          (make it an impossible cube - see link 1, below)
    ¹            - ...else: identity (do nothing)
            €    - for €ach
         ¦       - apply sparsely:
       15        - ...to index: 15
     x€    19    - ...this: repeat €ach nineteen times
               Y - join with newlines
                 - implicit print

ḣ9;⁾| ṁ5¤oµ€“µ½¿‘¦  Link 1, replace characters to make impossible: rows
                 ¦  apply sparsely:
            “µ½¿‘   ...to indexes: code-page indexes = [9,10,11]
                    ...this:
          µ€          for €ach:
ḣ9                      head to index 9
        ¤               nilad followed by link(s) as a nilad:
   ⁾|                     list of characters = ['|',' ']
      ṁ5                  mould like 5 = ['|',' ','|',' ','|']
  ;                     concatenate
         o              logical or (vectorises) with the row
                          (which has the effect of appending the rest of the row)

ฉัน "อ้วน" คิวบ์ตามจุดประสงค์และคุณใช้ประโยชน์จากมัน +1
LiefdeWen

5

JavaScript (ES6),  352   344  333 ไบต์

บันทึก 2 ไบต์ด้วย @YairRand

x=>[...'mnopqrstuvwxyz01~'].reduce((p,c)=>(l=p.split(c)).join(l.pop()),`1yup
1z uux z|
1/z uu_/z |
yqswtqvy|
yys wtyvq|
qs0t sw
ys 0ts w
 snt/v0
v_/x${x?0:'|_|_|'}m/v 0
/~_${b=x?0:'o_'}p/zn
| ~${b}m wnrynuo_0__0ryywp0owryv p0_ vr st0/vrst 0vr/vtn/zrvtqwyzr/_/pow z
wuu__wz
|um|/~xo1yyq0w |z /q o__w| |szp~t111svzr
0qy pu~ox_ny0muxx`)

การสาธิต


การลบa=และแทนที่การอ้างอิงหนึ่งรายการด้วย0(ซึ่งเท่ากับเสมอเมื่อมีการอ้างอิง) จะบันทึกสองไบต์
Yair Rand

3

ถ่าน 188 ไบต์

__¶____¶_¶↙¹↓↑⁷↗³P↓⁶↗²↓↓⁷←↙⁴↓↓↓↙↗⁸↑¹²←P←×_³⁵↓↙⁹↑←×_³⁴P↗⁹↓↓¹¹↗→×_³⁴↑¹¹↖P←×_²⁹↗⁷←P←×_³¹↙←×_²⁹↓↙⁶↑←_P↗⁷↓↘P↓⁹←←P×_³²↓↓⁹↗→×_³⁰P↑⁹↖←×_²⁷↗⁶←←↙⁵↘→→↗⁵UO²¹±²_↗↗P×_¹⁹←↙|←P↑²←←↑²FNUO⁵±³ |↑↑P↑⁴F²«→→P↑⁶

ลองออนไลน์! ลิงก์คือเวอร์ชันที่ผิดพลาด เปลี่ยนอินพุตจาก0เป็น1สำหรับเวอร์ชันจริง นี่คือรหัส verbose โดยประมาณสำหรับโปรแกรมด้านบน:

Print("__\n____\n_\n");

พิมพ์ส่วนหลังที่มองเห็นผ่าน "รู" ด้านขวา

Print(:DownLeft, 1);
Move(:Down);
Print(:Up, 7);
Print(:UpRight, 3);
Multiprint(:Down, 6);
Print(:UpRight, 2);
Move(:Down);
Print(:Down, 7);
Move(:Left);
Print(:DownLeft, 4);

พิมพ์ "รู" ที่ถูกต้อง

Move(3, :Down);
Move(:DownLeft);
Print(:UpRight, 8);
Print(:Up, 12);
Move(:Left);
Multiprint(:Left, Times("_", 35));
Move(:Down);
Print(:DownLeft, 9);
Move(:Up);
Print(:Left, Times("_", 34));
Multiprint(:UpRight, 9);
Move(:Down);
Print(:Down, 11);
Move(:UpRight);
Print(Times("_", 34));
Print(:Up, 11);

พิมพ์ขอบด้านนอกของลูกบาศก์

Move(:UpLeft);
Multiprint(:Left, Times("_", 29));
Print(:UpRight, 7);
Move(:Left);
Multiprint(:Left, Times("_", 31));
Move(:DownLeft);
Print(:Left, Times("_", 29));
Move(:Down);
Print(:DownLeft, 6);
Move(:Up);
Print(:Left, "_");
Multiprint(:UpRight, 7);

พิมพ์ "รู" ด้านบนของลูกบาศก์

Jump(1, 2);
Multiprint(:Down, 9);
Move(2, :Left);
Multiprint(Times("_", 32));
Move(:Down);
Print(:Down, 9);
Move(:UpRight);
Print(Times("_", 30));
Multiprint(:Up, 9);
Move(:UpLeft);
Print(:Left, Times("_", 27));

พิมพ์ "รู" ด้านหน้าของคิวบ์

Print(:UpRight, 6);
Move(2, :Left);
Print(:DownLeft, 5);
Jump(3, 1);
Print(:UpRight, 5);
Oblong(21, Negate(2), "_");
Move(2, :UpRight);
Multiprint(Times("_", 19));
Move(:Left);
Print(:DownLeft, "|");
Move(:Left);
Multiprint(:Up, 2);
Move(2, :Left);
Print(:Up, 2);

พิมพ์ส่วนของด้านหลังที่มองเห็นผ่าน "รู" ด้านหน้า

for (InputNumber()) Oblong(5, Negate(3), " |");

ทำให้ลูกบาศก์เป็นไปไม่ได้ถ้าจำเป็น

Move(2, :Up);
Multiprint(:Up, 4);
for (2) {
    Move(2, :Right);
    Multiprint(:Up, 6);
}

พิมพ์ส่วนของด้านหลังที่มองเห็นผ่าน "รู" ด้านบน

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.