বর্ণমালা ক্রোমোসোম


11

ভূমিকা

বর্ণমালার চ্যালেঞ্জগুলি আমাদের ডিএনএতে রয়েছে, সুতরাং আসুন এটি দেখান।

চ্যালেঞ্জ

নিম্নলিখিত পাঠ্যটি হুবহু মুদ্রণ করুন:

AaBbCc        cCbBaA
BbCcDd        dDcCbB
EeFfGg        gGfFeE
HhIiJj        jJiIhH
KkLlMm        mMlLkK
NnOoPp        pPoOnN
QqRrSs        sSrRqQ
TtUuVv        vVuUtT
   WwXx      xXwW
       Yy  yY
         ZZ
         zz
         ZZ
       Yy  yY
   WwXx      xXwW
TtUuVv        vVuUtT
QqRrSs        sSrRqQ
NnOoPp        pPoOnN
KkLlMm        mMlLkK
HhIiJj        jJiIhH
EeFfGg        gGfFeE
BbCcDd        dDcCbB
AaBbCc        cCbBaA

বিধি

  • আপনার অবশ্যই প্রতিটি চিঠির ক্ষেত্রে মিলবে
  • ট্রেলিং এবং / অথবা শীর্ষস্থানীয় নিউলাইনগুলি এবং / অথবা স্পেসগুলি অনুমোদিত

জয়লাভ

বাইটস মধ্যে সংক্ষিপ্ত কোড।


14
এটি অন্যান্য কোনও লাইনের (মধ্য বিভাগটি বার করার ক্ষেত্রে) অনন্য বর্ণ থাকলে প্রথম দুটি লাইনে উভয়ই বি এবং সি থাকে তা এতটা বোঝায় না।
23:38

1
@ ফ্যাটালাইজ করুন যা চ্যালেঞ্জটিকে কিছুটা আকর্ষণীয় করে তুলতে
বিটা

5
আমি ব্যক্তিগতভাবে এটির বিপরীতে তর্ক করব
ফ্যাটালাইজ করুন

2
আমি বিশ্বাস করি যে 9 তম লাইনে একটি ভুল আছে। "WwXx xx হওয়া উচিত WW ", নয় "WwXx xXWw", এটা না?
0

2
@ বেটাডেকে ফ্যাটালাইজ সঠিক, এটি চ্যালেঞ্জটিকে আরও বিরক্তিকর করে তোলে।
moonheart08

উত্তর:


18

ভিম (কোনও বাহ্যিক সরঞ্জাম নেই), 106 বাইট

স্পষ্টতার জন্য নিউলাইনস:

:h<_↵↵↵YZZPllabc♥
:s/./\u&&/g↵
qa6li↵♥q7@a3i ♥fY
i↵    →→↵  →↵→ð♥
ʌHA ♥9l
qbmaʌ99jY$P`ah@bq@b
y11G:g//m0↵P

এখানে রিটার্ন, ঠিক আছে, পালানো, ʌসিটিআরএল-ভি, এবং ðমুছে ফেলা হচ্ছে।

গল্ফ অ্যানিমেশন


3

পাইথন 2, 230 বাইট

s='';m=['AaBbCc','BbCcDd','EeFfGg','HhIiJj','KkLlMm','NnOoPp','QqRrSs','TtUuVv','   WwXx',' '*7+'Yy',' '*9+'Z'];
p=lambda l:l.ljust(10)+l[::-1].rjust(10)+'\n';
for l in m:s+=p(l);
s+=' '*9+'zz\n';
for l in m[::-1]:s+=p(l)
print s

1
1) দ্বিতীয়, তৃতীয় এবং চতুর্থ লাইন থেকে সেমিকোলন সরান 2) প্রথম লাইনের শেষে নিউলাইনটি সরান 3) আপনার উত্তরটি ডাহাগলেনির চেয়ে ছোট হওয়ার উপভোগ করুন 4) যেহেতু কেউ এখনও এটি বলে নি, পিপিসিজিতে আপনাকে স্বাগতম!
এরিক আউটগলফার

3

পাওয়ারশেল ভি 2 +, 175 169 163 154 বাইট

($x=(-join(65..67+66..86|%{$_;32+$_}|%{[char]$_})-split'(.{6})'-ne'')+'   WwXx'+'       Yy'+(' '*9+'Z')|% *ht 10|%{$_+-join$_[9..0]})
' '*9+'zz'
$x[10..0]

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

Write-Outputএক্সিকিউশন শেষে ডিফল্ট উপাদানগুলির মধ্যে একটি নতুন লাইন সন্নিবেশ করায় এই বিষয়টি আপত্তিজনক হয়।

প্রথম লাইনটি শাখাগুলি তৈরি করে। মূলধনী অক্ষরের জন্য আমরা ASCII মানগুলির সাথে সামঞ্জস্য করে দুটি রেঞ্জের উপরে লুপ করি, প্রতিটি পুনরাবৃত্তি charসেই বর্ণের একটি অ্যারে এবং সেই চিঠিটি +32(যা ছোট হাতের ASCII পয়েন্ট হয়) output এটি -joinএকত্রে একটি দীর্ঘ স্ট্রিংয়ের সাথে সম্পাদিত হয়, তারপরে -splitপ্রতি ছয়টি উপাদানের (প্যারেনগুলিতে আবদ্ধ থাকে যাতে তারা সংরক্ষণ করা হয়) -ne''এবং এর পরে বিভাজনের ফলে খালি উপাদানগুলি টেনে আনে এবং এর ফলে স্ট্রিংগুলির অ্যারে তৈরি হয়।

একটি অ্যারের পেতে অ্যারে-সংযুক্তকরণের মধ্যে এই স্ট্রিং উপর যোগ করার জন্য WwXx, Yyএবং Zএকটি PadRig উপাদান, তারপর ht 10তাদের সবাইকে উপযুক্ত প্রস্থ করা। এই মুহুর্তে আমাদের নীচের মতো স্ট্রিংগুলির একটি অ্যারে রয়েছে (প্রতি লাইনে একটি উপাদান)।

AaBbCc    
BbCcDd    
EeFfGg    
HhIiJj    
KkLlMm    
NnOoPp    
QqRrSs    
TtUuVv    
   WwXx   
       Yy 
         Z

মিররযুক্ত স্ট্রিংগুলি -joinএবং অ্যারে-রিভার্সিংগুলি তৈরি করতে সেই পুরো অ্যারেটি অন্য লুপে পাইপ করা হয় [9..0]

AaBbCc        cCbBaA
BbCcDd        dDcCbB
EeFfGg        gGfFeE
HhIiJj        jJiIhH
KkLlMm        mMlLkK
NnOoPp        pPoOnN
QqRrSs        sSrRqQ
TtUuVv        vVuUtT
   WwXx      xXwW   
       Yy  yY       
         ZZ         

$xপাইপলাইনে একটি অনুলিপি রাখার জন্য আমরা ফলাফলযুক্ত স্ট্রিংগুলি পেরেনগুলিতে সজ্জিত করি এবং বন্ধ করি।

পরবর্তী লাইনটি zzপাইপলাইনে স্ট্রিংটি রাখে, তারপরে $xঅ্যারেগুলি বিপরীত ক্রমে। এগুলির সমস্ত পাইপলাইনে রেখে গেছে এবং আউটপুট অন্তর্ভুক্ত।

PS C:\Tools\Scripts\golfing> .\alphabet-chromosome.ps1
AaBbCc        cCbBaA
BbCcDd        dDcCbB
EeFfGg        gGfFeE
HhIiJj        jJiIhH
KkLlMm        mMlLkK
NnOoPp        pPoOnN
QqRrSs        sSrRqQ
TtUuVv        vVuUtT
   WwXx      xXwW   
       Yy  yY       
         ZZ
         zz
         ZZ
       Yy  yY       
   WwXx      xXwW   
TtUuVv        vVuUtT
QqRrSs        sSrRqQ
NnOoPp        pPoOnN
KkLlMm        mMlLkK
HhIiJj        jJiIhH
EeFfGg        gGfFeE
BbCcDd        dDcCbB
AaBbCc        cCbBaA

মাইজিকে ধন্যবাদ -9 বাইটস


154 বাইট - '(.{6})'পরিবর্তে (......)এবং RightPadপরিবর্তে পুচ্ছ স্থান।
mazzy

3

পাইথন 2 , 156 বাইট

r=('AaBbCc.BbCcDd.EeFfGg.HhIiJj.KkLlMm.NnOoPp.QqRrSs.TtUuVv.   WwXx.%8cy.%10c.%10c'%(89,90,'z')).split('.')
for k in r+r[-2::-1]:s='%-10s'%k;print s+s[::-1]

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

512/(i**4+47)-1

,1,1,0,3,7,9,9,9,7,3,0,1,1,

যা প্রতিটি লাইনে ( (-1)*' 'সমতুল্য হওয়ার জন্য 0*' ') কতগুলি স্পেস শোধ করতে হবে তা এনকোড করে ।


2

পাইথন 2, 331 241 229 বাইট

আরও পরে এটি গল্ফ হবে।

l=("AaBbCc|BbCcDd|EeFfGg|HhIiJj|KkLlMm|NnOoPp|QqRrSs|TtUuVv|   WwXx|%sYy"%(" "*7)).split("|");n=0;v=1;p='for i in([8]*8+[6,2])[::v]:print l[n]+" "*i+l[n][::-1];n+=v';exec p;v=-1;n=9;print"{0}ZZ\n{0}zz\n{0}ZZ".format(" "*9);exec p

2

লুয়া, 212 বাইট

s=([[         Z
       Yy 
   WwXx   
TtUuVv_QqRrSs_NnOoPp_KkLlMm_HhIiJj_EeFfGg_BbCcDd_AaBbCc    ]]):gsub("_","    \n")S="         zz"for z in s:gmatch"[%w ]+"do k=z..z:reverse()S=k..'\n'..S..'\n'..k end print(S)

টিমমিড এর উত্তর ভিত্তিক ভিত্তিতে যথেষ্ট সহজ of সত্যিই খুব খারাপভাবে সংকুচিত অংশটি ব্যবহার করে উপরের বাম হাতটি তৈরি করে, তারপরে 'জেডজেড' এবং প্রিন্টগুলি প্রায় একবারে উভয় আয়না করে rors

এটি Repl.It এ চেষ্টা করুন


2

05AB1E , 48 46 40 38 36 বাইট

Ž3ô8.DƵJ6XD)bTj»0ð:1žRAu¦«Dl.ιS.;º.∊

-২ বাইট (এবং এই বিকল্প পদ্ধতির সাথে আরও 10 টির জন্য সুযোগ) @ ম্যাজিকঅ্যাক্টোপাস ইউর্নকে ধন্যবাদ ।

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

ব্যাখ্যা:

Ž3ô            # Push compressed integer 1008
   8.D         # Duplicate it 8 times
      ƵJ       # Push compressed integer 120
        6      # Push 6
         XD    # Push 1 twice
           )   # Wrap all into a list
b              # Convert each to binary
 Tj            # Add leading spaces to each binary-string to make them size 10  
   »           # Then join all strings by newlines
0ð:            # Replace all 0s with spaces
 žR            # Push the string "ABC"
   Au¦«        # Merge the uppercased alphabet minus the first "A" with it
       Dl      # Create a lowercase copy
             # Intersect the uppercase and lowercase strings: "AaBbCcBb..."
           S   # Convert it to a list of characters
1           .; # Replace every 1 with each of these characters in the same order
º              # Then mirror everything vertically without overlap,
 .∊            # and horizontally with the last line overlapping
               # (and output the result implicitly)

আমার এই 05AB1E ডগা দেখুন (অধ্যায় ইপিএসে দক্ষিন কোরিয়ায় কিভাবে পূর্ণসংখ্যার কম্প্রেস কিভাবে? ) কেন বুঝতে Ž3ôহয় 1008এবং ƵJহয় 120


1
মাস্ক পদ্ধতির ব্যবহার করে -2 বাইট:•3ô•8.D120 6 1D)bí.Bí»…abcA¦«Dus.ιv1y.;}0ð:º.∊
ম্যাজিক অক্টোপাস উরান

1
@ ম্যাজিক অ্যাক্টপাস ইউআন আহ ভাল, এবং কিছু সংক্ষেপণ এবং "abc"বিল্টিন দিয়ে এটি আরও 6 দ্বারা গল্ফ করা •3ô•যেতে পারে : হতে পারে Ž3ô; 120 6 1Dহতে পারে ƵJ6XD; …abcA¦«Dus.ιহতে পারে žRAu¦«Dl.ι। :)
কেভিন ক্রুইজসেন 16

1
@ ম্যাজিক অ্যাক্টোপাস ওহ, এবং আরও 2 এ পরিবর্তিত í.Bíকরে Tj(কেবলমাত্র নতুন সংস্করণে কাজ করে তবে এটি কোনও বাগ বা ইচ্ছাকৃত তা নিশ্চিত নয়)। সুতরাং স্পষ্টতই আপনি আপনার বিকল্প পদ্ধতির সাথে মোট 10-বাইট সাশ্রয় সক্ষম করেছেন। : ডি
কেভিন ক্রুইজসেন 17

1
আপনি জিততে আরও একটি খুঁজে পেতে হবে;)।
ম্যাজিক অক্টোপাস উরন

1
@ ম্যাজিক অ্যাক্টোপাস ইউরন ফাইন, আরও 2 জনকে সরানো হয়েছে। ; পি এবং žRAu¦«Dl.ιSবিকল্পভাবে হতে পারে A¬žR:uSDl.ι, তবে দুর্ভাগ্যক্রমে এটি বাইট সংরক্ষণ করতে পারে না। আর 0м.Bপরিবর্তে 0ð:একটি বাইট আরো পরিবর্তে কম আয়না .. কিন্দার আশা প্রকাশ করেন পরোক্ষভাবে যাতে trailing স্পেস যোগ করে বাক্স পারে .Bপ্রয়োজন নেই হতে পারে, কিন্তু হয়তো এটা ভাল তারা অন্যান্য চ্যালেঞ্জ আমি না করি।
কেভিন ক্রুইজসেন 17

2

স্ট্যাক্স , 42 41 38 35 বাইট

înáöêòé{V║»╧å╓ä¥ì√‼╦▓°nlΓΣ▌ê9t☻*$╢√

এটি চালান এবং এটি ডিবাগ করুন

আপডেট: 41 বাইট সমাধানে একটি বাগ ছিল। (হ্যাঁ, যদিও এর কোনও ইনপুট নেই) ঠিক করার সময়, আমি শেভ করতে আরও 3 বাইট পেয়েছি।

আবার আপডেট করুন: প্রতিযোগিতা রয়েছে, তাই আমি আরও 3 টি কন্টিজেন্সি বাইট সরিয়েছি।

ব্যাখ্যা: (একটি ভিন্ন, কিন্তু একই আকারের সমাধান)

VA3(        "ABC"
VAD2T       "BCD...VWX"
+3/         concatenate and split into groups of 3
'Y]+        concatenate ["Y"]
{cv\$m      map each string using: copy, lowercase, zip, flatten
.ZzM+       concatenate ["Z", "z"]
|p          palindromize list of strings
m           map each string _ using the rest of the program and implicitly print output
  c%Nh6+H   (-len(_)/2 + 6) * 2
  )         left-pad (npm lol amirite) to length
  A(        right-pad to 10
  :m        mirror (a + a[::-1])

এটি চালান


1

ম্যাট্রিক্স , 105 বাইট ( নন-কেপটিং )

ওহ, আমি অনেক বাগ পেয়েছি। এই চ্যালেঞ্জের একমাত্র শক্ত অংশটি ছিল মাঝখানে ক্রস। এটি প্রায় অর্ধেক বাইট গণনা করে।

-A 1পতাকা নিয়ে দৌড়াও

m+/c2+66+*r3*32%c2 7 6v{k-{}1z-L1Q}u{q-Lc2k+{}2b0b0b0a[a0a0u[a89a121]a[u0u90]]}a{Y}u[mQc9a122a122]u{z1cX}

ব্যাখ্যা:

m + / c2 +66 + * r3 * 32% c2 7 6 # "সাধারণ" ব্লকটি তৈরি করুন
v {k - {} 1z-L1Q} # উপরে "অস্বাভাবিক" অংশ যুক্ত করুন
u {q-Lc2k + {} 2b0b0b0a [a0a0u [a89a121] a [u0u90]]} # অদ্ভুত তিরুনির 1/4 করুন
a {Y} u [mQc9a122a122] u {z1cX} # সবেমাত্র তৈরি করা ব্লকটি মিরর করুন
                                             অর্ধেকের মাঝে ছোট ছোট জেড

আর একটি বাগ আমি এখনও স্থির করি নি যে শেষ অংশটি, u{z1cX}আপনি যখন কাটার পরে রাখবেন তখন কাজ করে না X। তদন্ত / ঠিক করা হবে।




1

ব্রেইনফাক, 456 বাইট

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

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


0

পাইথন 3 , 215 বাইট (প্রতিযোগিতা না করা)

p=lambda l:l.ljust(10)+l[::-1].rjust(10)
a=("AaBbCc|BbCcDd|EeFfGg|HhIiJj|KkLlMm|NnOoPp|QqRrSs|TtUuVv|   WwXx|%sYy|%sZ"%(7*' ',9*' ')).split('|')
print('\n'.join([p(x)for x in a]+[' '*9+'zz']+[p(x)for x in a[::-1]]))

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

দুটি পাইথন 2 সমাধান থেকে কিছু ধারণা নেয় তবে এগুলি যোগ () ব্যবহার করে এমন একটি পদ্ধতির প্রয়োগ করে যা বেশ কয়েকটি বাইট সংরক্ষণ করে বলে মনে হয়। এটি আরও গল্ফ করা যেতে পারে যে সম্ভব; আমি পরে এটি আবার ঘুরে আসতে পারেন।



এই চ্যালেঞ্জের অনেক আগে @ জোনাথানফ্রেচ পাইথন 3 মুক্তি পেয়েছিল। এটিতে অন্য কোনও কারণে "অ-প্রতিদ্বন্দ্বী" ট্যাগটি থাকতে হবে।
পিপ্পারি

@pppery একটি জিনিস আমি লক্ষ্য করেছি যে হ'ল এই পোস্টটি ক্রোমোসোমের বাম-অবতল অঞ্চলটি পূরণ করার জন্য স্থান তৈরি করে না।
জোনাথন ফ্রেচ

@ স্কুইড আমি জিজ্ঞাসা করতে পারি যে এই উত্তরটি কেন প্রতিদ্বন্দ্বী হিসাবে চিহ্নিত হয়েছে?
জোনাথন ফ্রেচ


0

বুবলগাম, 168 বাইট

00000000: 6dd1 c712 8230 1006 e0fb 3e45 5e85 264d  m....0....>E^.&M
00000010: 7a51 b8a1 14e9 1d91 a757 4632 ce38 9bd3  zQ.......WF2.8..
00000020: e6cb a4ec 1f26 626f dc9d 1ce3 cedd d888  .....&bo........
00000030: 819d f898 62cc ef0c 4272 4ac5 8c62 26a6  ....b...BrJ..b&.
00000040: a744 00e9 21e7 4a41 b150 72f9 2181 5a9e  .D..!.JA.Pr.!.Z.
00000050: 2bad a658 6bd5 b954 416f 8cd6 ec28 7666  +..Xk..TAo...(vf
00000060: 6b34 3a58 bd3d 3823 c5d1 19ec de02 77f2  k4:X.=8#......w.
00000070: 667f a1b8 f8b3 37b9 f0a9 2ecf ebfa b5f5  f.....7.........
00000080: fabc c0b1 1ebc 0879 0574 4648 18fe ea6d  .......y.tFH...m
00000090: c3fc b7e3 ef44 f462 f489 6833 68db 6840  .....D.b..h3h.h@
000000a0: 6894 68e8 0cf2 3d6f                      h.h...=o

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

যেহেতু এটি আমার প্রথম বাবলগাম জমা, এটি সর্বোত্তম সমাধান হতে পারে না। ডাবল-চেক করুন।

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.