একটি ঘড়ির মুখ প্রদর্শন করুন

39

একটি ঘড়ির মুখে 12 নম্বর ঠিক ঠিক এর মতো প্রদর্শন করুন:

           12            
     11           1      

 10                   2  


9                       3


  8                   4  

      7           5      
            6

গ্রিডটি আরও ভালভাবে দেখতে, এখানে বিন্দু সহ একটি:

...........12............
.....11...........1......
.........................
.10...................2..
.........................
.........................
9.......................3
.........................
.........................
..8...................4..
.........................
......7...........5......
............6............

নোট করুন যে গ্রিডটি আরও বর্গক্ষেত্র দেখতে আরও দুটি ফ্যাক্টর দ্বারা প্রস্থে প্রসারিত করা হয়েছে।

আরও মনে রাখবেন যে দুই-অঙ্কের সংখ্যাগুলি তাদের সংখ্যার জায়গায় স্থায়ীভাবে সংযুক্ত করা হয়েছে। 9 সংখ্যার বাম দিকে ফ্লাশ করা উচিত।

মাল্টিলাইন স্ট্রিং (লাইনের তালিকা নয়) হিসাবে ফলাফলটি ফিরে আসুন বা মুদ্রণ করুন। যে কোনও চলমান স্থান alচ্ছিক। চূড়ান্ত নিউলাইনও optionচ্ছিক।

code-golf  ascii-art  kolmogorov-complexity 
— xnor
সূত্র

উত্তর:

25

কাঠকয়লা , 40 বাইট

Ｆ¹²«Ｍ⁻↔⁻¹⁴⊗÷×⁴鳦⁸⁻⁴↔⁻⁷÷×⁴﹪⁺³ι¹²¦³Ｐ←⮌Ｉ⊕ι

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। ব্যাখ্যা: গাণিতিকভাবে প্রতিটি অঙ্কের মধ্যে অফসেটগুলি গণনা করে। কাঠকয়লাটি 0-সূচকযুক্ত (এভাবে⊕ আউটপুট ) হয়, সুতরাং অনুভূমিক এবং উল্লম্ব অফসেটের সূত্রগুলি নীচে রয়েছে:1…12

δx=|14−2⌊4i3⌋|−8δy=4−|7−⌊4i′3⌋|

যেখানে ।i′=i+3(mod12)

— নিল
সূত্র
22

জাভাস্ক্রিপ্ট (নোড.জেএস) , 91 বাইট

খুব চালাক দৃষ্টিভঙ্গি নয়, তবে আমি এই মুহুর্তে আরও ছোট কিছু খুঁজে পেতে ব্যর্থ হয়েছি।

_=>`K12
E11K1

A10S2


9W3


B8S4

F7K5
L6`.replace(/[A-Z]/g,c=>''.padEnd(Buffer(c)[0]&31))

এটি অনলাইন চেষ্টা করুন!

— Arnauld
সূত্র
4
আমি বিকল্প হিসাবে বাফার () এর ব্যবহার পছন্দ করিcharCodeAt()
— ডাওনগোট
1
@ ডাওনগোট যা আমাকে অবাক করে তোলে যে নোডের নির্দিষ্ট বৈশিষ্ট্যগুলির জন্য নোড.জেএস প্রশ্নে গল্ফ করার জন্য আমাদের কোনও পরামর্শ থাকতে হবে কিনা । যদিও এটি মূল্যবান তা নিশ্চিত নয়।
— আর্নল্ড
হতে পারে একটি পৃথক উত্তর যুক্ত করুন যাতে সমস্ত নোডের নির্দিষ্ট বৈশিষ্ট্য রয়েছে, বা কমপক্ষে একটি তালিকা সমস্ত ভিন্ন উত্তরকে সংযুক্ত করে?
15

05AB1E , 39 33 31 বাইট

6 টি বাইট সংরক্ষণের জন্য ম্যাজিক অক্টোপাস উরনকে ধন্যবাদ !

কোড

6xsG12N-N•°£•NèØú«тR∞Nè¶×]\6».c

কিছু 33 বাইট বিকল্প:

711ćŸā•Σ°w•₂вú‚øJƵt3в¶×‚ø»6xŠ».c¦
6xsŸ5L•Σ°w•₂вúõ¸ì‚ζJï2Ý«ƶ×)ø».c
6xsG¶12N-N•Θ{©•₂вNèú«ƵB∞Nè¶×]6J.c
6xsG12N-N•Θ{©•₂вNèú«тR∞Nè¶×]6s».c

05AB1E এনকোডিং ব্যবহার করে । এটি অনলাইন চেষ্টা করুন!

— আদনান
সূত্র
চমৎকার উত্তর! আমি খুব আসল ÿসহ এর ব্যবহার পছন্দ করি .V! এবং মজাদার আপনি কীভাবে 12¤উভয় 12এবং 2স্ট্যাকের জন্য ব্যবহার করেছেন। আমি সম্ভবত সবেমাত্র ব্যবহার করতে পারতাম 12Y, তবে আমি অনুমান করি কীভাবে অপ্রাসঙ্গিক, যেহেতু উভয়ের স্ট্যাকের উপর 12 এবং 2 রয়েছে। যদি আমি 05AB1E এ এই চ্যালেঞ্জটি চেষ্টা করতাম তবে আমি বাইট-কাউন্টে আরও উচ্চতর পথটি শেষ করে দিতাম .. অনুমান করি আমার এখনও শিখার অনেক কিছুই আছে। ;)
— কেভিন ক্রুইজসেন
@ কেভিন ক্রুজসেন ওহ হ্যাঁ, আমি ভুলে গেছি Y। এটি একটি সহজ বিকল্প হাহাহা হত।
— আদনান
আমি জানি না যে আমি 6 বंडरটি 6 বাইটের নীচে ঠিক করছি কিনা: 6xsŸ5L•δ;Ì’•2ôúð.ø‚ζJ012∞S¶×‚ζJ.cতবে আপনি এখানে কোনও ব্যবহারের ক্ষেত্রে স্বাগত।
— ম্যাজিক অক্টোপাস আরন
1
@ ম্যাজিক অ্যাক্টপাস ইউরান জিপটি নিয়ে দুর্দান্ত কৌশল, আমি তা ভেবে দেখিনি।
— আদনান
1
@ আদনানও প্রপস করেন 6xŠ», আমি কখনই সে বিষয়ে ভাবিনি।
— ম্যাজিক অক্টোপাস আরন
10

6502 মেশিন কোড (সি 64), 82 76 73 বাইট

00 C0 A2 0E BD 38 C0 29 03 A8 A9 0D 20 25 C0 BD 38 C0 4A 4A A8 A9 20 20 25 C0
BD 29 C0 20 D2 FF CA 10 E1 60 20 D2 FF 88 10 FA 60 36 35 37 34 38 33 39 32 30
31 31 31 31 32 31 31 2C 1A 4C 0B 5C 03 4C 00 06 2C 00 15 00 2C
  • -6 বাইটস, চতুর ধারণার জন্য আর্নল্ডকে ধন্যবাদ :)
  • আরনাউল্ডের শীর্ষস্থানীয় 1অঙ্কগুলি বিশেষভাবে না বিবেচনা করার ধারণার পরে আর একটি -3 বাইট

এখানে ধারণাটি হ'ল কেবলমাত্র সমস্ত সংখ্যার অঙ্কগুলি তাদের প্রয়োজনীয় ক্রম অনুসারে সংরক্ষণ করা। অতিরিক্ত তথ্যের প্রয়োজন হ'ল প্রিপেন্ড করতে নতুন লাইনের সংখ্যা এবং সামনের জায়গাগুলির সংখ্যা।

সর্বাধিক সংখ্যক নিউলাইনগুলি হ'ল এর 3জন্য আমাদের এর জন্য 2 বিট প্রয়োজন, এবং সর্বাধিক সংখ্যক স্পেস রয়েছে 23তাই 5 বিটই যথেষ্ট। অতএব, প্রতিটি অঙ্ক মুদ্রণের জন্য, আমরা এই তথ্যটি একটি একক "কন্ট্রোল বাইটে" বার করতে পারি।

সুতরাং, এই সমাধানের ডেটা ঠিক 30 বাইট নেয়: 15 একক সংখ্যা এবং 15 সম্পর্কিত "কন্ট্রোল বাইট"।

অনলাইন ডেমো

ব্যবহার: SYS49152শুরু করতে।

মন্তব্য বিচ্ছিন্ন :

         00 C0                          ; load address
.C:c000  A2 0E       LDX #$0E           ; table index, start from back (14)
.C:c002   .mainloop:
.C:c002  BD 38 C0    LDA .control,X     ; load control byte
.C:c005  29 03       AND #$03           ; lowest 3 bits are number of newlines
.C:c007  A8          TAY                ; to Y register for counting
.C:c008  A9 0D       LDA #$0D           ; load newline character
.C:c00a  20 25 C0    JSR .output        ; repeated output subroutine
.C:c00d  BD 38 C0    LDA .control,X     ; load control byte
.C:c010  4A          LSR A              ; and shift by two positions for ...
.C:c011  4A          LSR A              ; ... number of spaces
.C:c012  A8          TAY                ; to Y register for counting
.C:c013  A9 20       LDA #$20           ; load space character
.C:c015  20 25 C0    JSR .output        ; repeated output subroutine
.C:c018  BD 29 C0    LDA .digits,X      ; load current digit
.C:c01b  20 D2 FF    JSR $FFD2          ; output
.C:c01e  CA          DEX                ; decrement table index
.C:c01f  10 E1       BPL .mainloop      ; still positive -> repeat
.C:c021  60          RTS                ; and done.
.C:c022   .outputloop:
.C:c022  20 D2 FF    JSR $FFD2          ; output a character
.C:c025   .output:
.C:c025  88          DEY                ; decrement counting register
.C:c026  10 FA       BPL .outputloop    ; still positive -> branch to output
.C:c028  60          RTS                ; leave subroutine
.C:c029   .digits:
.C:c029  36 35 37 34 .BYTE "6574"
.C:c02d  38 33 39 32 .BYTE "8392"
.C:c031  30 31 31 31 .BYTE "0111"
.C:c035  31 32 31    .BYTE "121"
.C:c038   .control:
.C:c038  31 2C 1A 4C .BYTE $31,$2C,$1A,$4C
.C:c03c  0B 5C 03 4C .BYTE $0B,$5C,$03,$4C
.C:c040  00 06 2C 00 .BYTE $00,$06,$2C,$00
.C:c044  15 00 2C    .BYTE $15,$00,$2C
— ফেলিক্স প্যালম্যান
সূত্র
2
JSR $FFD2 / DEY / BNE loop / LDA .control,X / RTSনতুন লাইন এবং স্পেস উভয়ের জন্য ডাকা সাব্রোটিন ব্যবহার করে আপনি কি 2 বাইট সংরক্ষণ করতে পারবেন ? আমি মনে করি এটি মূল কোডে +10 বাইট দীর্ঘ এবং সেভ -12 বাইট হবে।
— আর্নৌল্ড
1
প্রকৃতপক্ষে, আমি মনে করি সাব্রোটিনটি যদি করছে JSR $FFD2 / DEY / BPL loop / LDA .control,X / RTSএবং আপনি প্রবেশদ্বারটি হয় তবে আপনি আরও বাইট সঞ্চয় করতে পারবেন DEY। এইভাবে, আপনাকে 0মূল কোডে পরীক্ষা করতে হবে না ।
— আর্নল্ড
ধন্যবাদ সুন্দর ধারণা, পরে সম্পাদনা করবে। পরে অবশ্য কাজ করবে না, আমার এমন কেস দরকার যা পুরো লুপটি এড়িয়ে যায়।
— ফেলিক্স পামেন
1
যদি Y = 0, DEY / BPL / RTSকোনও প্রক্রিয়া না করে অবিলম্বে প্রস্থান করবে JSR $FFD2। (নোট করুন যে সেই প্রকল্পটি সহ, সাব্রুটিনের প্রবেশের স্থানটি অবশ্যই হওয়া উচিত DEY))
— আর্নল্ড
1
@ অ্যারনল্ড বেশ কিছু পরীক্ষা-নিরীক্ষার পরে, আমি মনে করি যে সমস্ত অঙ্ক সংরক্ষণের আপনার পরামর্শটি ব্যবহার করার সময়
— সাব্রুটিন
6

আর , 75 68 বাইট

write("[<-"(rep("",312),utf8ToInt('*`®÷ĥĹĚä—M'),1:12),1,25)

এটি অনলাইন চেষ্টা করুন!

সংখ্যার অবস্থানগুলি সংকুচিত করে। একটি ট্রিগনোমেট্রিক উত্তর (সম্পাদনার ইতিহাস দেখুন) নিয়ে আসার চেষ্টা করার পরে প্রচুর সময় ব্যয় করার পরে এটি কি হয়েছিল?

এই অন্য আর উত্তর দিয়ে অনুপ্রাণিত J.Doe কিনুন - এটি upvote!

জে.ডোকে 7 বাইট সংরক্ষণ করা হয়েছে।

— JayCe
সূত্র
68 বাইট - পাটিগণিত এড়াতে হ্যাশ পরিবর্তিত হয়েছে writeএবং ডিফল্ট বিভাজক ব্যবহারের জন্য কলটি পরিবর্তন করে ।
— জে .ডো
1
@ জে.ডো এটি এভাবে আরও বোধগম্য করে। অবশ্যই আমার গল্ফটি নথিভুক্ত না করে আমার কোনও ধারণা নেই যে আমি কেন প্রথম স্থানে একটি
— সংশ্লেষিত
5

এইচটিএমএল + জাভাস্ক্রিপ্ট (ক্যানভাস), 13 + 161 = 174 বাইট

স্বেচ্ছাসেবী ক্যানভাস পজিশনিং 6 বাইট ব্যবহার করে।

with(C.getContext`2d`)with(Math)for(font='9px monospace',textAlign='end',f=x=>round(sin(x*PI/6)*6)*measureText(0).width*2,x=13;--x;)fillText(x,f(x)+80,f(9-x)+80)
<canvas id=C>
স্নিপেট প্রসারিত করুন

তুলনার জন্য গ্রিড সহ:

with(C.getContext`2d`)with(Math){
    for(font='9px monospace',textAlign='end',f=x=>round(sin(x*PI/6)*6)*measureText(0).width*2,x=13;--x;)fillText(x,f(x)+80,f(9-x)+80)
    for(globalAlpha=0.2,y=-6;y<=6;y++)fillText('.'.repeat(25),6*measureText('.').width*2+80,y*measureText(0).width*2+80)
}
<canvas id=C>
স্নিপেট প্রসারিত করুন

অবস্থান নির্ধারণের সূত্রের ব্যাখ্যা

এসভিজি উত্তর সহ আমার জাভাস্ক্রিপ্ট দেখুন ।

— darrylyeo
সূত্র
8
আমি মনে করি না যে এটি গণনা করা হয়েছে কারণ যেহেতু এটি ASCII- আর্ট তাই আমাদের চ্যালেঞ্জের মধ্যে যথাযথ বাইট-স্ট্রিম নির্দিষ্ট করে দেওয়ার কথা রয়েছে, যখন এটি আউটপুট মতো দেখতে একটি চিত্র সরবরাহ করে।
— ডাউনগোট
5

জাভা 8 11, 141 138 বাইট

v->{for(var x:"92BCN5BB92BNN1BA991CNNNJ995DNNN2I991ENN6H92FN93G".getBytes())System.out.print(x<59?" ".repeat(x-48):(char)(x>76?10:x-17));}

এটি অনলাইনে ব্যবহার করে দেখুন (দ্রষ্টব্য: একই বাইট-কাউন্ট String.repeat(int)হিসাবে অনুকরণ করা repeat(String,int)হয়েছে, কারণ জাভা 11 টি টিও তে এখনও নেই))

ব্যাখ্যা নীচের মতো, তবে এটি " ".repeat(x-48)বিন্যাসের পরিবর্তে ফাঁকা জায়গাগুলির জন্য ব্যবহার করে "%"+(x-48)+"s"।

জাভা 8, 141 বাইট

v->{for(var x:"92BCN5BB92BNN1BA991CNNNJ995DNNN2I991ENN6H92FN93G".getBytes())System.out.printf("%"+(x>58?"c":x-48+"s"),x>76?10:x>58?x-17:"");}

এটি অনলাইনে চেষ্টা করুন।

ব্যাখ্যা:

v->{                        // Method with empty unused parameter and no return-type
  for(var x:"92BCN5BB92BNN1BA991CNNNJ995DNNN2I991ENN6H92FN93G".getBytes())
                            //  Loop over the bytes of the above String:
    System.out.printf("%"+  //   Print with format:
     (x>58?                 //    If the character is a letter / not a digit:
       "c"                  //     Use "%c" as format
      :                     //    Else:
       x-48+"s"),           //     Use "%#s" as format, where '#' is the value of the digit
     x>76?                  //    If the byte is 'N':
      10                    //     Use 10 as value (newline)
     :x>58?                 //    Else-if the byte is not a digit:
      x-17                  //     Use 48-58 as value (the 0-9 numbers of the clock)
     :                      //    Else:
      "");}                 //     Use nothing, because the "%#s" already takes care of the spaces

আরও ব্যাখ্যা 92BCN5BB92BNN1BA991CNNNJ995DNNN2I991ENN6H92FN93G:

  • সমস্ত অঙ্কগুলি স্থানের পরিমাণের সাথে প্রতিস্থাপন করা হবে। (11 টি স্পেসের জন্য এটি তাই 92))
  • সমস্ত 'এন' নতুন-লাইন
  • সমস্ত ['এ', 'জে'] হ'ল ঘড়ির অঙ্ক ([0,9])
— কেভিন ক্রুইজসেন
সূত্র
5

আর, 168 159 125 বাইট

একটি পাঠ্য ম্যাট্রিক্সে নির্ধারিত পয়েন্টগুলিতে সংখ্যাগুলি লেখার নিষ্পাপ সমাধান। পয়েন্টগুলি ইউটিএফ -8 অক্ষরের মাধ্যমে ডিকোড করে সংরক্ষণ করা হয়utf8ToInt

"!"=utf8ToInt
write("[<-"(matrix(" ",25,13),cbind(!"LMFGSBCWAYCWGSM",!"AABBBDDDGGJJLLM")-64,-64+!"ABAAAA@BICHDGEF"),1,25,,"")

writeম্যাট্রিক্স সংজ্ঞায়িত করতে এবং এড়াতে জাইসির পরামর্শ সহ 9 বাইট ফেলেছে ।

জাইসির স্টোরেজ পরামর্শ সহ আরও 34 বাইট ফেলেছে।

— J.Doe
সূত্র
হ্যালো এবং পিপিসিজিতে আপনাকে স্বাগতম! আমি মনে করি যে বিন্দুগুলি প্যাটার্নটি কল্পনা করতে সহায়তা করবে বলে মনে করা হচ্ছে তবে আউটপুটটির অংশ নয়।
— জোনাথন ফ্রেচ 9:48
পিপিসিজিতে আপনাকে স্বাগতম! আপনি কিছু বাইট সংজ্ঞায়িত mএবং ব্যবহার না করে প্রমাণ করতে পারেন write: টিআইও । PS: আপনি আপনার উত্তরে একটি টিআইও লিঙ্ক অন্তর্ভুক্ত করতে বাধ্য নন তবে এটি উত্তরটি আপনার জন্য সুন্দরভাবে বিন্যাস করে, টিআইও পৃষ্ঠার শীর্ষে লিঙ্ক আইকনটি দেখুন।
— জেসি
আপনি পয়েন্টগুলিকে স্ট্রিংয়ে সঞ্চয় করতে পারেন এবং !অপারেটরটিকে ওভারলোড করতে পারেন 125 টি পেতে । সত্যিই দুর্দান্ত সমাধান!
— জেসি
5

হাস্কেল, 88 87 বাইট

f=<<"k12{e11k1{{a10s2{{{9w3{{{b8s4{{f7k5{l6"
f c|c>'z'="\n"|c>'9'=' '<$['a'..c]|1<2=[c]

হাস্কেলের এনকোড-স্পেসস-এ-লেটার্স পদ্ধতি ( @ আর্নৌল্ডের উত্তরে প্রথম দেখা )। {এটিকে ব্যবহার এবং প্রসারিত \nকরা \nসরাসরি ব্যবহারের চেয়ে এক বাইট কম ।

এটি অনলাইন চেষ্টা করুন!

— nimi
সূত্র
5

ব্রেনফাক , 240 235 বাইট

++++++++++[>++>+>+++>+++++>++>++[<]>-]>>>++...........>-.+.<<.>.....>-..<...........>.<<..>.>.-.>-[<<.>>-]<++.<<...>>+++++++.>>+++[<<<.>>>-]<<------.<<...>..>+++++.<<<-[>>.<<-]>>>----.<<..>......>+++.<...........>--.<<.>............>+.

এটি অনলাইন চেষ্টা করুন!

মন্তব্য করা কোড

++++++++++                              Put 10 in cell 0
[>++>+>+++>+++++>++>++[<]>-]            Loop 10 times incrementing to leave 0 20 10 30 50 20 20 in memory 
>>>++                                   30 plus 2 = 32 (ascii space)
...........>-.+.                        print 11spaces followed by 12 (ascii 49 50)
<<.>.....>-..<...........>.             print 1newline 5spaces 11 11spaces 1 
<<..>.>.-.>-[<<.>>-]<++.                print 2newlines 1space 10 19spaces 2
<<...>>+++++++.>>+++[<<<.>>>-]<<------. print 3newlines         9 23spaces 3
<<...>..>+++++.<<<-[>>.<<-]>>>----.     print 3newlines 2spaces 8 19spaces 4
<<..>......>+++.<...........>--.        print 2newlines 6spaces 7 11spaces 5
<<.>............>+.                     print 1newline  12spaces 6

একটি বিরল উদাহরণ যেখানে পাঠ্যটি যথেষ্ট পুনরাবৃত্তিযোগ্য যে ব্রেনফাক প্রোগ্রাম আউটপুট দৈর্ঘ্যের দ্বিগুণ চেয়ে 1.6 গুণ কম !

জো কিংয়ের পরামর্শ অনুসারে 2 বাইট সংরক্ষণ করা হয়েছে: >>>>>>-->[<]>-

3 বাইট তৃতীয় 20 জায়গা downcounter পর্যন্ত ডান ASCII কোডের থেকে সরানোর দ্বারা সংরক্ষিত 10 30 50তাদের ছেড়ে চলে গেছে অবিলম্বে করতে। সংরক্ষণ <<>>যখন মধ্যে ফাঁক ভর্তি 8এবং 4কিন্তু লাইন 1 বাইট যোগ করা >>>++।

মূল সংস্করণ

++++++++++                              Put 10 in cell 0
[>+>+++>+++++>++>++>++<<<<<<-]          Loop 10 times incrementing to leave 0 10 30 50 20 20 20 in memory 
>>++                                    30 plus 2 = 32 (ascii space)
...........>-.+.                        print 11spaces followed by 12 (ascii 49 50)
<<.>.....>-..<...........>.             print 1newline 5spaces 11 11spaces 1 
<<..>.>.-.>-[<<.>>-]<++.                print 2newlines 1space 10 19spaces 2
<<...>>+++++++.>>+++[<<<.>>>-]<<------. print 3newlines         9 23spaces 3
<<...>..>+++++.>>>-[<<<<.>>>>-]<<<----. print 3newlines 2spaces 8 19spaces 4
<<..>......>+++.<...........>--.        print 2newlines 6spaces 7 11spaces 5
<<.>............>+.                     print 1newline  12spaces 6
— স্তর নদী সেন্ট
সূত্র
4

জেলি , 32 বাইট

⁶ẋ“¿×¿ Œ4ç4Œ!¿Ø‘ż“øn0œ’Œ?D¤Fs25Y

একটি পূর্ণ প্রোগ্রাম যা ফলাফল মুদ্রণ করে।

এটি অনলাইন চেষ্টা করুন!

কিভাবে?

(আমি এখনও “¿×¿ Œ4ç4Œ!¿Ø‘এই অংশের জন্য আমার কাছে দীর্ঘ বলে মনে হয় নি তার চেয়ে কম ছোট কিছুই খুঁজে পাইনি - বাউন্সিং / বেস-ডিকম্প্রেশন / ইনক্রিমেন্ট, কিছুই সংরক্ষণ করার মতো মনে হয় না!)

⁶ẋ“¿×¿ Œ4ç4Œ!¿Ø‘ż“øn0œ’Œ?D¤Fs25Y - Main Link: no arguments
⁶                                - space character
  “¿×¿ Œ4ç4Œ!¿Ø‘                 - code-page indices list = [11,17,11,32,19,52,23,52,19,33,11,18]
 ẋ                               - repeat (vectorises) -> [' '*11, ' '*17, ...]
                          ¤      - nilad followed by link(s) as a nilad:
                 “øn0œ’          -   base 250 number = 475699781
                       Œ?        -   first natural number permutation which would be at
                                 -   index 475699781 if all permutations of those same
                                 -   natural numbers were sorted lexicographically
                                 -   = [12,11,1,10,2,9,3,8,4,7,5,6]
                         D       -   to decimal lists = [[1,2],[1,1],[1],[1,0],[2],[9],[3],[8],[4],[7],[5],[6]]
                ż                - zip together = [[' '*11, [1,2]], [' '*17, [1,1]], ...]
                           F     - flatten = [' ',' ',...,1,2,' ',' ',...,1,1,...]
                            s25  - split into chunks of 25 (trailing chunk is shorter)
                               Y - join with new line characters
                                 - implicit print
— জোনাথন অ্যালান
সূত্র
LOL আমি আশ্চর্য হ'ল এটি নির্বুদ্ধ পদ্ধতি।
— এরিক আউটগল্ফার
4

সি (জিসিসি) , 145 137 125 বাইট

কেবলমাত্র ট্যাব অবস্থানগুলি হার্ড-কোডেড: সমস্ত লাইন স্পেসিং এবং ঘড়ির মান লুপে উত্পন্ন হয়।

পরামর্শের জন্য আবার সিলিংক্যাটকে ধন্যবাদ।

i,j,k;f(char*t){for(i=7;i--;t=memset(t+sprintf(t,"%*d%*d"+3*!j,"NHDA"[j]-65,6+i,"AMUY"[j]-65,6-i),10,k=j+i/4)+k)j=i>3?6-i:i;}

এটি অনলাইন চেষ্টা করুন!

— ErikF
সূত্র
সুপারিশ "\r\7\3"[j]পরিবর্তে"NHDA"[j]-65
— ceilingcat
3

পিএইচপি , 97 বাইট

<?=gzinflate(base64_decode(U1CAA0MjLghtqIAkyMWlYGiggAmMuLi4LBWwA2OgnIKCBRYZEy6IHQrmSIKmXMhKzAA));

এটি অনলাইন চেষ্টা করুন!

এটি একটি হার্ড কোডেড সংক্ষেপিত স্ট্রিং। এর চেয়ে কম সমাধান আমি খুঁজে পাই না!

— Night2
সূত্র
আপনি উত্স ফাইলটিতে বাইনারি সংক্ষিপ্ত স্ট্রিংটি স্থাপন করতে পারেন এবং বেস 64_ ডেকোডটি এড়িয়ে যেতে পারেন? আমি এটি চেষ্টা করেছি এবং আমি একটি 'জিজিনফ্লেট (): ডেটা ত্রুটি' পেয়েছি তবে এটি সম্ভব হতে পারে যদি উত্স ফাইলটি কোনও পাঠ্য সম্পাদকের পরিবর্তে উইথা হেক্স সম্পাদক লেখা থাকে।
— বিডএসএল
@ বিডিএসএল আসলে আমি এটি আগে করেছি এবং আপনার কোনও এইচএক্স সম্পাদক দরকার নেই, আপনি কেবল পিএইচপি ব্যবহার করতে পারেন file_put_contents($path, '<?=gzinflate("'.gzdeflate($clockString,9).'");');, তবে এটির ভিতরে বাইনারি ডেটা সহ কোনও কোড কীভাবে পোস্ট করা যায় তা আমি নিশ্চিত নই। এর মতো একটি ফাইল 70 বাইট।
— রাত 2
3

পাইকে , 37 বাইট

3B 32 35 75 07 0d 13 0c 22 14 35 18 44 74 5F 74 2B 46 6F 68 32 C4 52 7D 74 2A 31 32 25 31 32 7C 60 52 2D 29 73

এখানে চেষ্টা করুন! (কাঁচা বাইট)

;25Dt_t+Foh2.DR}t*12%12|`R-)s

এখানে চেষ্টা করুন! (মানব পাঠযোগ্য)

                              - o = 0
;25                           - set line width to 25 characters
                              -      `[13, 19, 12, 34, 20, 53, 24]`
                              -       (In hex version, encoded in base 256, regular version in input field)
    t_t                       -     reversed(^[1:])[1:]
   D   +                      -    ^^ + ^
        Foh2.DR}t*12%12|`R-)  -   for i in ^:
         o                    -            o++
          h                   -           ^+1
           2.DR               -          divmod(^, 2)
               }t             -         (remainder*2)-1
                 *            -        quotient * ^
                  12%         -       ^ % 12
                     12|      -      ^ or 12 (12 if 0 else ^)
                        `     -     str(^)
                         R-   -    ^.rpad(i) (prepend spaces such that length i)
                            s -  sum(^)
                              - output ^ (with newlines added)
— নীল
সূত্র
3

ব্রেনফাক , 315 313 বাইট

ওভসকে ধন্যবাদ 2 বাইট সংরক্ষণ !

++++[>++++<-]>[>+++>+++>+++>+++>>++>+++>+++>+++<<<<<<<<<-]>+++++>++++>+++>++>++++++++++>>+++++++>+><<<...........>>.<<<<.>.>.....>>..<<...........>>.<<<..>.>>.>.<<<...................<<.>...>>++.<.......................<<<.>>...>..>-.<...................<<<<.>>>..>......>-.<...........<<<<<.>>>>.>............>-.

এটি অনলাইন চেষ্টা করুন!

সমস্ত একটি কোড ব্লক:

++++[>++++<-]>[>+++>+++>+++>+++>>++>+++>+++>+
++<<<<<<<<<-]>+++++>++++>+++>++>++++++++++>>+
++++++>+><<<...........>>.<<<<.>.>.....>>..<<
...........>>.<<<..>.>>.>.<<<................
...<<.>...>>++.<.......................<<<.>>
...>..>-.<...................<<<<.>>>..>.....
.>-.<...........<<<<<.>>>>.>............>-.
— কনর ও ব্রায়ান
সূত্র
আপনি ++++[>++++<-]>শুরুতে 16 টির জন্য ব্যবহার করতে পারেন ।
— ovs
@ ওভস আহ, অবশ্যই, ধন্যবাদ !!
— কনর ও'ব্রায়েন
Lol, আপনি ><আপনার কোডে
— জো রাজা
3

পাওয়ারশেল, 94 88 82 বাইট

ডাইরেক্ট পাওয়ারশেল ফর্ম্যাট অপারেটর । {i,w}মানে সূচকযুক্ত প্যারামিটারের জন্য একটি স্থানধারক i, স্থানধারকের প্রস্থ wডান সারিবদ্ধ সঙ্গে।

"{11,13}
{10,7}{0,12}

 10{1,20}


9{2,24}


  8{3,20}

{6,7}{4,12}
{5,13}"-f1..12

পাওয়ারশেল, 88 বাইট

Arnauld এর জাভাস্ক্রিপ্ট উত্তর বন্দরের

-6 বাইটস @ অ্যাডমবার্কবার্ককে ধন্যবাদ

[RegEx]::Replace("K12
E11K1

A10S2


9W3


B8S4

F7K5
L6",'[A-Z]',{' '*("$args"[0]-64)})

গ্রিডটি আরও ভালভাবে দেখতে, '.'পরিবর্তে ব্যবহার করুন ' '।

— mazzy
সূত্র
1
.PadLeft88 বাইটের পরিবর্তে কেন গুণকে স্ট্রিং করা হচ্ছে না - অনলাইনে চেষ্টা করে দেখুন!
— অ্যাডমবর্কবর্ক
এটি একটি চতুর ব্যবহার -f। আপনি এটি অনলাইনে চেষ্টা করার লিঙ্কগুলিকে কেন অন্তর্ভুক্ত করবেন না ! সুতরাং অন্যরা দেখতে পাবে যে আপনার কোডটি কীভাবে কাজ করে?
— অ্যাডমবর্কবর্ক
আমার This site can’t be reachedকেবল ত্রুটি আছে । দুঃখিত।
— মজজি
আহ, এটা লজ্জাজনক। এটি একটি ভাল সম্পদ। :-(
— অ্যাডমবর্কবার্ক
আমি রাজি. ধন্যবাদ।
— mazzy
3

সি (জিসিসি) , 125 109 105 বাইট

x,*d=L"<;1:2938475640P`P05";main(i){for(;i=d[12];printf("%*d",i/4,*d++-48))for(x=i&3;x--;)puts("");}
  • -16 বাইট (-3 ভাল লুপ ব্যবস্থা জন্য, -13 সরাসরি মুদ্রণযোগ্য নয় এমন অক্ষর সহ) ধন্যবাদ জনাথন Frech ।
  • -4 বাইট একটি শিফ্টের জন্য একটি বিভাগ প্রতিস্থাপন করে এবং অনেক সিস্টেমে (যেটি হোস্টিং টিআইওর মতো) sizeof(wchar_t) == sizeof(int)- উইন্ডোতে কাজ করবে না - এই সত্যটি আপত্তিজনকভাবে ব্যবহার করে :) এরিকএফকে ধারণা দেওয়ার জন্য ধন্যবাদ ।

এটি অনলাইন চেষ্টা করুন!

এটি 6502 সি এর সমাধান থেকে আমার সাধারণ ধারণার একটি বন্দর এটি কিছুটা সংশোধন করা হয়েছে: শীর্ষস্থানীয়ের জন্য পতাকা রাখার পরিবর্তে 1, অক্ষরটি 48 কে বিয়োগ করে দশমিক হিসাবে মুদ্রিত হয়, সুতরাং 10 - 12 হিসাবে এনকোড করা :আছে <।

— ফেলিক্স প্যালম্যান
সূত্র
1
— জনাথন ফ্রেচ 14 ই
@ জোনাথনফ্রেচের সুন্দর লুপ পুনর্বিন্যাস, আমি আশ্চর্য হয়েছি যে আমি কীভাবে
— এটিটি
যতক্ষণ না ইউটিএফ -8 এ চরিত্রটি উপস্থাপন করা যায় ততক্ষণ এটি সংকলক প্রযুক্তিগতভাবে গ্রহণযোগ্য। এটি কোনও ভাল জিনিসের পরিবর্তে আপনি যা করছেন তার উপর নির্ভর করে :-)
— এরিকএফ
ইউনিকোডের কথা বলতে গেলে, আপনি প্রশস্ত অক্ষর ব্যবহার করে আরও 3 টি বাইট সংরক্ষণ করতে পারেন: এটি অনলাইনে চেষ্টা করুন!
— এরিকএফ
1
এজন্যই আমি কোড গল্ফিং পছন্দ করি: আমি ইউবিকে অপব্যবহার করতে পারি এবং সময়ের সাথে সাথে আপনি যে সমস্ত "আপনার করা উচিত নয়" ব্যবহার করুন!
— এরিকএফ
2

সংযুক্তি , 69 বাইট

{ReplaceF["l12
f11l1

b10t2


9x3


c8t4

g7l5
m6",/"\\l",sp&`*@STN]}

এটি অনলাইন চেষ্টা করুন!

এই যেমন স্পেস প্রতিটি রান এনকোড: NTS[count of spaces]; NTSসংখ্যায় সংক্ষিপ্ত "বিল্টিন", যা সংখ্যাকে স্ট্রিং হিসাবে প্রকাশ করার অনুমতি দেয় expressed যেমন, NTS[95] = $R1এবং NTS[170297] = $XQO। STNএই অন্তর্নির্মিত এর বিপরীত হয়।

এই উত্তরটি ( ReplaceF) /\l/এর ফাংশনের ফলাফলের সাথে ইনপুটে সমস্ত অক্ষরের ( ) প্রতিস্থাপন করে sp&`*@STN, যা অক্ষরটি ডিকোড করে এবং তারপরে spবহুবার পুনরাবৃত্তি করে (একটি স্থান)।

— কনর ও ব্রায়ান
সূত্র
2

সুইফ্ট , 178 165 বাইট

var b="";for c in"L12nF11L1nnB10T2nnn9X3nnnC8T4nnG7L5nM6"{let i=c.unicodeScalars.first!.value;if c=="n"{b+="\n"}else if i>64{for _ in 0..<(i-65){b+=" "}}else{b+="(c)"}};print(b)

ডাওনগোট যা পোস্ট করেছে তার ভিত্তিতে, আমি এটিকে 165 বাইটে কমিয়েছি:

print("L12nF11L1nnB10T2nnn9X3nnnC8T4nnG7L5nM6".unicodeScalars.map{let x=Int($0.value);return x==110 ?"\n":(x>64 ?String(repeating:" ",count:x-65):"($0)")}.joined())

$0নামযুক্ত ভেরিয়েবলে রূপান্তরিত সহ প্রসারিত :

print("L12nF11L1nnB10T2nnn9X3nnnC8T4nnG7L5nM6".unicodeScalars.map { c in let x = Int(c.value) return x == 110 ? "\n" : (x>64 ? String(repeating:" ", count: x-65) : "(c)") }.joined())

ইনপুট স্ট্রিং নিম্নরূপ এনকোড করা হয়: আপারকেস বর্ণ ( A-Z) স্পেস ব্লক, 65. সুতরাং পুষিয়ে প্রতিনিধিত্ব Aমানে 0 স্পেস, Bমানে 1 স্থান, প্রথম Lউপায়ে 11 স্পেস, ইত্যাদি nগুলি নতুন লাইন রূপান্তরিত করা হয়। অন্যান্য সমস্ত অক্ষর যেমন হয় তেমন মুদ্রিত হয়।

এটি এখানে অনলাইনে চালান (ধন্যবাদ, mbomb007)

— এজেকিয়েল এলিন
সূত্র
পিপিসিজিতে আপনাকে স্বাগতম! আমাদের অনেকেরই আমাদের উত্তরে প্রোগ্রামে একটি হাইপারলিঙ্ক অন্তর্ভুক্ত করার জন্য অনলাইন দোভাষীদের জন্য ট্রাই ইট অনলাইন (টিআইও) ব্যবহার করেন। এখানে আপনার উত্তরের জন্য এগুলির মধ্যে একটি: tio.run/##JY1BC4IwGIb/yvpOSjScqRW2DgV1sVMeOgQx14SBfMacdhB/...
— mbomb007
আপনার উত্তরটির একটি গল্ফ এটি 172 বাইট। পরিবর্তে এটি একটি ফাংশন ব্যবহার করে: {"L12NF11L1NNB10T2NNN9X3NNNC8T4NNG7L5NM6".unicodeScalars.map({(c)->String in let x=c.value;return x==78 ? "\n" : x>64 ?String(repeating:" ",count:x-65) : "\(c)"}).joined()}(সুইফ্ট 3 ( -swift-version 3
— প্রতিস্থাপনের
@ ডাউনগোট আমি এটিকে আরও 3 বাইট হ্রাস করেছি এবং এটি সুইফট 4 এর সাথে সামঞ্জস্যপূর্ণ করেছি আপডেট হওয়া পোস্টটি দেখুন।
— এজেকিয়েল এলিন
1

এসভিজি, 188 বাইট সহ জাভাস্ক্রিপ্ট

120% এর নির্বিচার লাইনের উচ্চতা 4 বাইট ব্যবহার করে।

with(Math)for(s='<pre><svg viewBox=-8-8+16+16 style=font-size:1;text-anchor:end>',f=x=>round(sin(x*PI/6)*6),x=13;--x;)s+=`<text x=${f(x)*2}ch y=${f(9-x)*1.2}>${x}</text>`
document.write(s)
স্নিপেট প্রসারিত করুন

তুলনার জন্য গ্রিড সহ:

with(Math)for(s='<pre><svg viewBox=-8-8+16+16 style=font-size:1;text-anchor:end>',f=x=>round(sin(x*PI/6)*6),x=13;--x;)s+=`<text x=${f(x)*2}ch y=${f(9-x)*1.2}>${x}</text>`
for(y=-6;y<=6;y++)s+=`<text x=12ch y=${y*1.2} style=fill:#0002>${'.'.repeat(25)}</text>`
document.write(s)
স্নিপেট প্রসারিত করুন

অবস্থান নির্ধারণের সূত্রের ব্যাখ্যা

যাক f(x) = round(sin(x * π/6) * 6)।

উৎপত্তিটি ঘড়ির কেন্দ্র হিসাবে ধরে নেওয়া হয়, প্রদত্ত যে কোনও ক্লক সংখ্যার ডান-সর্বাধিক অঙ্কের গ্রিড স্থানাঙ্কগুলি x[ f(x) * 2, f(9 - x)]।

— darrylyeo
সূত্র
1

বাশ, 225 বাইট

s=(12 0 6 11 0 0 2 19 0 0 0 0 1 23 0 0 0 0 3 19 0 0 7 11 13 0)
n=(12 11 1 10 2 9 3 8 4 7 5 6) j=0;for i in {0..25};{
[ ${s[i]} = 0 ]||{ printf %${s[i]}s " ";echo -n ${n[j]}
j=$((j+1));};[ $((i%2)) -gt 0 ]&&echo;}|sed 's/ //'

বিরক্তিকরভাবে এটি লুপে প্রতিটি লাইন মুদ্রণের সাদাসিধা সমাধানের চেয়ে দীর্ঘতর (ট্যাবস্টপগুলি ব্যবহারের ক্ষেত্রে 132 টি অক্ষর)।

— crystalgecko
সূত্র
হায় tr -d \<space>(যেখানে <space>sed প্রতিকল্পন পরিবর্তে কাজের স্থান চরিত্র)?
— ক্রিটসি লিথোস
@ কৌতুক দুঃখজনকভাবে নয়, tr -d\ সমান হবেsed 's/ //g'
— ক্রিস্টালজেকো
1

পাইথন 3 , 112 88 87 বাইট

স্ট্রিং ইন্টারপোলেশন ব্যবহার করে একটি সমাধান।

print(f'''{12:13}
{11:7}{1:12}

 10{2:20}


9{3:24}


  8{4:20}

{7:7}{5:12}
{6:13}''')

এটি অনলাইন চেষ্টা করুন!

-25 বাইটস ওভস এবং হারম্যান এলকে ধন্যবাদ

— mbomb007
সূত্র
এবং যদি আপনি হারমানস ফর্ম্যাটিং স্ট্রিং ব্যবহার করেন তবে আপনি এটি 85 ডলার বাইটে পেতে পারেন।
— ovs
সাথে আরও একটি বাইট {11:7}।
— ovs
1

সি (জিসিসি) , 135 123 110 বাইট

এটি একটি সাধারণ এনকোডিং ব্যবহার করে যেখানে কোনও পুনরাবৃত্ত স্পেসের cমধ্যে 'a'এবং 'z'প্রতিনিধিত্ব করে c-'a'+1, '`'একটি নতুন লাইন উপস্থাপন করে এবং অন্য সমস্ত অক্ষর অপরিবর্তিত রেখে যায়।

f(i){char*s="k12`e11k1``a10s2```9w3```b8s4``f7k5`l6`";for(;i=*s;s++)i>96?printf("%*s",i-96,""):putchar(i%86);}

এটি অনলাইন চেষ্টা করুন!

— কার্টিস বেচটেল
সূত্র
সুপারিশ *s=L"...";f(i){পরিবর্তেf(i){char*s="...";
— ceilingcat
1

টি-এসকিউএল, 132 বাইট

PRINT SPACE(11)+'12
     11           1

 10'+SPACE(20)+'2


9'+SPACE(23)+'3


  8'+SPACE(19)+'4

      7           5
            6'

তুচ্ছ সমাধানের চেয়ে কম 12 বাইট কম ( PRINTপুরো স্ট্রিং যেমন রয়েছে তেমন)।

আমার মত একটি ভিন্নতা পাওয়া গেছে যা এর চেয়ে দীর্ঘতর ( 235 226 বাইট), তবে আরও অনেক এসকিউএল-জাতীয়:

SELECT CONCAT(SPACE(PARSENAME(value,4)),PARSENAME(value,3),
              SPACE(PARSENAME(value,2)),PARSENAME(value,1))
FROM STRING_SPLIT('11.1..2,5.11.11.1,. .. ,1.10.20.2,. .. ,. .. ,.9.23.3,
                   . .. ,. .. ,2.8.19.4,. .. ,6.7.11.5,12.6.. ',',')

STRING_SPLITএটি কমাতে সারিগুলিতে PARSENAMEবিভক্ত হয় এবং প্রতিটি সারি বিন্দুতে বিভক্ত হয়। প্রথম এবং তৃতীয়টি কতগুলি স্পেস মুদ্রণের জন্য ব্যবহৃত হয়, 2 য় এবং 4 য় কী প্রদর্শিত হবে তা ব্যবহার করা হয়।

(এর মধ্যে লাইন ব্রেকগুলি কেবল পঠনযোগ্যতার জন্য)

— BradC
সূত্র
1

পার্ল 6 , 116 বাইট

my@a=["  "xx 13]xx 13;($_=pi/6*++$;@a[0+|6*(1.1-.cos);0+|6*(1.1+.sin)]=fmt ++$: "%2s")xx 12;@a>>.join>>.&{say S/.//}

এটি অনলাইন চেষ্টা করুন!

(26 বাইট সংরক্ষণের জন্য টা @ জোকিং)

পার্ল 6 , 142 বাইট

my@a=[[[32,32]xx 13]xx 13];for 1..12 {$_=$^b*pi/6;@a[round 6*(1-.cos);round 6*(1+.sin)]=[" $b".ords.tail(2)]}
{say S/^.//}(.[*;*].chrs) for @a

এটি অনলাইন চেষ্টা করুন!

আমি ভিন্ন কিছু করতে চেয়েছিলেন. সুতরাং এটি একটি অক্ষরের জোড়ার মাধ্যমে সমস্ত অঙ্কের অবস্থান গণনা করে, প্রাথমিক স্থানটি সরিয়ে স্ট্র্যাপগুলি প্রিন্ট করে।

বিভিন্ন পরামিতিগুলির জন্য সহজেই পরিবর্তনযোগ্য, উদাহরণস্বরূপ, 17 টি সংখ্যা সহ 45 টি অক্ষর প্রশস্ত সংস্করণ ।

— ফিল এইচ
সূত্র
— জো কিং
@ জোকিং: তাতো, আমি এটিকে আটকিয়ে একটি উইকি তৈরি করেছি made
— ফিল এইচ
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.