প্রথম কোড গল্ফ ডিকাথলন [বন্ধ]


48

কাজ

সমস্ত প্রতিযোগী 10 টি কার্যের নীচের তালিকাটি সমাধান করার চেষ্টা করুন:

  1. ইনপুট থেকে ধনাত্মক পূর্ণসংখ্যা n পড়ুন এবং প্রথম এন -নেতিবাচক পূর্ণসংখ্যার কিউবের যোগফল প্রদান করুন ।

    ইনপুট জন্য 1, এটি ফিরে আসা উচিত 0

  2. একটি ধনাত্মক পূর্ণসংখ্যা পড়ুন এন ইনপুট থেকে এবং একটি truthy মান যদি এবং কেবল যদি আসতে এন একটি হল Mersenne মৌলিক

  3. ইনপুট থেকে এন পূর্ণসংখ্যার একটি খালি খালি তালিকা পড়ুন এবং তাদের মিডিয়ানটি ফিরিয়ে দিন ।

    যদি n হয় তবে দুটি মাঝারি মানের কম ব্যবহার করুন।

    উদাহরণস্বরূপ, মধ্যমা [1 4 3 2]হয় 2

  4. একটি পূর্ণসংখ্যা পড়ুন (ধনাত্মক, negativeণাত্মক বা 0), বা ইনপুট থেকে বেস 10 বা আনারিতে স্ট্রিং উপস্থাপনা এবং নেতৃত্বের শূন্যগুলি ছাড়াই (ইনপুট 0 ব্যতীত) এর অঙ্কগুলি নেতিবাচক ক্ষেত্রে ফিরিয়ে দিন ।

    আউটপুটটি যে কোনও সুবিধাজনক উপায়ে (অঙ্ক, অ্যারে, স্ট্রিং ইত্যাদি) ফর্ম্যাট করা যায়।

  1. রিটার্ন pneumonoultramicroscopicsilicovolcanoconiosis

  2. বর্তমান তারিখটি পরীক্ষা করুন এবং Happy New Year!গ্রেগরিয়ান ক্যালেন্ডার অনুসারে উপযুক্ত হলে ফিরে আসুন।

  3. সিউডো-এলোমেলোভাবে ইউনিকোড ব্লক সিজেকে ইউনিফাইড আইডিয়াগ্রাফ এক্সটেনশন-এ (ইউ + 3400 - ইউ + 4 ডিবি 5) থেকে unique৪ টি অনন্য নির্ধারিত কোড পয়েন্ট নির্বাচন করুন এবং সংশ্লিষ্ট অক্ষরের স্ট্রিংটি ফিরিয়ে দিন।

    সমস্ত সম্ভাব্য স্ট্রিংয়ের নির্বাচিত হওয়ার একই সম্ভাবনা থাকা উচিত।

  4. ইনপুট থেকে প্রিন্টযোগ্য এএসসিআইআই অক্ষরের দুটি স্ট্রিং পড়ুন এবং যদি প্রথম স্ট্রিংয়ের অক্ষরটি দ্বিতীয় স্ট্রিংয়ের একটি অনুচ্ছেদ তৈরি করে তবেই সত্যবাদী মানটি ফেরত দেয়।

    উদাহরণস্বরূপ, abc, axbxctruthy আসতে উচিত এবং bac, axbxcfalsy ফেরত পাঠাবেন।

  1. ইনপুট থেকে একটি বহুমাত্রিক, আয়তক্ষেত্রাকার অ্যারে এবং একটি পূর্ণসংখ্যা এন পড়ুন এবং এন দ্বারা গুণিত সমস্ত পূর্ণসংখ্যার সংশোধিত অ্যারেটি ফেরান ।

  1. ইনপুট থেকে একটি অ-নেতিবাচক পূর্ণসংখ্যা এন পড়ুন এবং নীচে দেখানো হিসাবে এন ট্রেন ওয়াগনের একটি শৃঙ্খলা ফেরান।

    এন = 3 এর জন্য উদাহরণ আউটপুট :

     ______   ______   ______ 
    |      | |      | |      |
     ()--() ~ ()--() ~ ()--()
    

    উদাহরণটি যেমন দেখায় ততক্ষণ আউটপুটটি যেকোন পরিমাণ শ্বেত স্পেস দ্বারা ঘিরে থাকতে পারে।

ব্যাখ্যা

  • 0 ইতিবাচক বা নেতিবাচকও নয়।

  • আউটপুটটিতে সর্বদা অনুসরণ করা শ্বেতস্পেসের অনুমতি দেওয়া হয়।

  • ইনপুট বিভিন্ন টুকরা যে কোনও সামঞ্জস্যপূর্ণ, সুবিধাজনক ক্রমে পড়া হতে পারে।

বিধি

  1. কোনও উত্তর একই প্রোগ্রামিং ভাষায় দুটি ভিন্ন কার্য সমাধান করতে পারে না। 1

  2. প্রতিটি স্বতন্ত্র কাজের জন্য, স্ট্যান্ডার্ড বিধি প্রযোজ্য।

    বিশেষত, আপনি স্বাভাবিক আই / ও ডিফল্ট সহ প্রোগ্রাম বা ফাংশন জমা দিতে পারেন , তবে এই ফাঁকগুলির সুবিধা নিতে পারবেন না ।

    টাস্ক 5 মূলত একটি চ্যালেঞ্জ, সুতরাং আউটপুটকে হার্ডকোডিং কেবলমাত্র অনুমোদিত নয় তবে প্রত্যাশিত।

  3. প্রতিটি কার্যক্রমে সর্বাধিক একটি সমাধান সম্বলিত ব্যবহারকারী প্রতি কেবল একটি উত্তর পোস্ট করা উচিত।

    নিম্নলিখিত উত্তর হিসাবে আপনার উত্তর ফর্ম্যাট করুন:

    ## Task 1, Python, 42 bytes
    
        <code goes here>
    
    Explanation, I/O, required Python version, etc. go here.
    
    ---
    
    ## Task 7, C, 42 bytes
    
        <code goes here>
    
    Explanation, I/O, required compiler (flags), etc. go here.
    

স্কোরিং

  1. আপনার সমাধান করা প্রতিটি কাজের জন্য আপনি একটি পয়েন্ট পাবেন।

    এর অর্থ হ'ল আপনাকে অংশগ্রহণের জন্য সমস্ত কার্য সমাধান করতে হবে না ।

  2. যদি কার্য এন এর জন্য আপনার সমাধানটি সেই প্রোগ্রামিং ভাষার সংক্ষিপ্ততম হয়, আপনি একটি অতিরিক্ত পয়েন্ট পাবেন।

  3. যদি টাস্ক এন এর জন্য আপনার সমাধানটি সমস্ত প্রোগ্রামিং ভাষার মধ্যে একটি সংক্ষিপ্ততম হয়, আপনি একটি অতিরিক্ত পয়েন্ট পাবেন।

  4. বোনাস পয়েন্টগুলি প্রতিটি কার্য-ভাষা সংমিশ্রণের জন্য এবং প্রতিটি কার্যক্রমে যথাক্রমে একবার মাত্র পুরষ্কার দেওয়া হবে।

    যথারীতি, যদি দুটি সমাধানের বাইট গণনা একই হয় তবে পোস্ট করার সময় টাই ব্রেকার।

    যদি কেউ আপনাকে পরে আউটগল্ফ করে, আপনি অন্যান্য উত্তরদাতা যে বোনাস পয়েন্টটি অর্জন করেন তা হারাবেন।

  5. আপনি গল্ফ জমা দিতে পারেন, আপনার উত্তর থেকে ভাষাগুলি যুক্ত / সরিয়ে ফেলতে বা দুটি কাজের জন্য ব্যবহৃত ভাষাগুলি অদলবদল করতে পারেন।

    যে কোনও সময় কেউ তার উত্তর সম্পাদনা করলে, সমস্ত উত্তর পুনরুদ্ধার করা হয়।

  6. আপনি যখন কোনও কাজের জন্য ভাষা পরিবর্তন করেন, আপনি জ্যেষ্ঠতা হারান। 2

উত্তর সর্বোচ্চ স্কোর জিতেছে। 3

প্রতি-কার্য লিডারবোর্ড

<style>body{text-align:left!important}#answer-list{padding:10px;width:290px;float:left}#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}</style><script src=https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js></script><link rel=stylesheet href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id=answer-list><table class=answer-list><thead><tr><td>Task<td>Author<td>Language<td>Score<tbody id=answers></table></div><table style=display:none><tbody id=answer-template><tr><td>{{TASK}}<td>{{NAME}}<td>{{LANGUAGE}}<td>{{SIZE}}</table><script>function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),e.has_more?getAnswers():process()}})}function process(){answers.forEach(function(e){var s=e.body_markdown.split("\n").filter(function(e){return"#"==e[0]});s.forEach(function(s){var r=s.match(NUMBER_REG)[0],t=(s.match(SIZE_REG)||[0])[0],a=s.match(LANGUAGE_REG)[1],n=e.owner.display_name;entries.push({task:r,user:n,language:a,size:t})})}),entries.sort(function(e,s){var r=e.task-s.task;return r?r:e.size-s.size});for(var e=0;e<entries.length;e++){var s=jQuery("#answer-template").html();s=s.replace("{{TASK}}",entries[e].task).replace("{{NAME}}",entries[e].user).replace("{{LANGUAGE}}",entries[e].language).replace("{{SIZE}}",entries[e].size),s=jQuery(s),jQuery("#answers").append(s)}}var QUESTION_ID=52152,ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/,NUMBER_REG=/\d+/,LANGUAGE_REG=/^#*.*?,\s*\[*([^,\]]+)/,entries=[];</script>

সংযুক্ত লিডারবোর্ড (2015-07-30 20:00 ইউটিসি)

User / Task      1 2 3 4 5 6 7 8 9 A   TOTAL   Tie breaker (if any)

DLosc            2 2 3 2 2 2 2 3 2 2      22
Sp3000           2 2 2 2 2 3 2 2 2 2      21
Doorknob         2 2 2 2 2 2 2 2 2 2      20
mathmandan       2 2 2 2 2 2 2 2 2 2      20   Combined byte count.
MickyT           2 2 2 2 2 2 1 2 2 2      19
Alex A.          2 1 2 2 2 2 1 2 2 2      18
Jacob            2 2 2 2 2 1 0 0 0 2      13
alephalpha       2 2 2 0 2 2 0 0 2 0      12
Martin Büttner   2 0 0 2 2 0 0 2 2 2      12   Combined byte count.
kirbyfan64sos    1 2 2 0 2 X 0 2 0 3      12   Per-language wins.
Maltysen         3 0 0 0 3 2 1 X 2 0      11
plannapus        2 2 0 0 2 2 0 2 0 2      10
jimmy23013       0 0 2 3 0 0 3 2 0 0      10   Solved tasks.
Tom              0 3 0 0 2 2 0 X 3 0      10   Combined byte count.
FryAmTheEggman   1 0 2 0 2 0 2 0 2 0       9
Vioz-            1 0 2 2 2 2 0 0 0 0       9   Combined byte count.
Toby Speight     2 0 0 0 2 2 0 0 0 2       8
Ismael Miguel    0 0 0 0 2 2 0 0 0 2       6
Pulga            0 2 2 0 0 0 0 0 0 2       6   Combined byte count.
flawr            2 0 2 0 0 0 0 0 0 0       4     
manatwork        2 0 0 0 0 2 0 0 0 0       4   Combined byte count.
TheNumberOne     1 0 0 0 2 0 0 0 0 0       3

চিহ্নিত চিহ্নিত কার্যগুলি Xউপস্থিত তবে অবৈধ।

সম্মিলিত লিডারবোর্ডটি হাতে তৈরি করা হয়েছে। কোন ত্রুটি আছে কিনা আমাকে বলুন।


1 টি ভাষা একই ভাষার আলাদা সংস্করণ না হলে আলাদা হিসাবে গণনা করা হয়, সুতরাং কেবল একটি জাভাস্ক্রিপ্ট, একটি পাইথন এবং একটি টিআই-বেসিক রয়েছে তবে সি, সি ++, অক্টেভ এবং ম্যাটল্যাব চারটি ভিন্ন ভাষা।

2 আপনি টাস্ক সমাধান তাহলে এন ভাষা ব্যবহার এল মধ্যে এক্স বাইট, অন্য কারো সমাধান একই বাইট গণনা সঙ্গে একই ভাষায় একই কাজের, আপনি ভাষা পরিবর্তন এম অ্যান্ড রোল ফিরে আপনার সম্পাদনার, অন্যান্য উত্তরদাতা বোনাস পয়েন্ট রাখা হবে।

3 নিয়ম 1, 2 এবং 3 (সেই ক্রমে) দ্বারা স্কোর করা থেকে প্রাপ্ত পয়েন্টগুলির সংখ্যা, সমস্ত সমাধানকৃত কাজের সম্মিলিত বাইট গণনা (নিম্নতর ভাল) এবং অবশেষে, ভোটের ট্যালি (উচ্চতরতর ভাল) টাইব্রেকার হিসাবে পরিবেশন করে।


6
স্পষ্ট করার জন্য, এই চ্যালেঞ্জটি যারা কমপক্ষে 10 টি ভাষা জানেন তাদের মধ্যেই সীমাবদ্ধ? আমি ... এক বন্ধুর জন্য জিজ্ঞাসা করছি ...
ভাইজ্রাক্স

2
@ বিজয়রামামূর্তি: আপনাকে অংশগ্রহণের জন্য সমস্ত কাজ সমাধান করতে হবে না, সুতরাং আপনি যদি কেবল একটি কাজ সমাধান করেন তবে আপনার কেবল একটি ভাষা জানা উচিত।
অ্যালেক্স এ

2
@ জোজেড: আমাদের এখানে কয়েকটি 9-গর্ত চ্যালেঞ্জ ছিল, তবে সম্মিলিত পরিমাণ বাইটের দ্বারা scored আমার স্কোরিং কোনওভাবেই কীভাবে ডেকাথলনগুলি করা যায় তার সাথে সম্পর্কিত নয়, তবে আমি স্পষ্ট করে বলতে চেয়েছিলাম যে এটি একটি ভিন্ন ধরণের চ্যালেঞ্জ।
ডেনিস

4
@ লেলেসেক: এটি একটি মানক কোড গল্ফ চ্যালেঞ্জ হবে। এখানে পুরো বিষয়টি প্রতিটি কাজের জন্য আলাদা ভাষা ব্যবহার করছে।
ডেনিস

3
@ নোটহাট চার্লস: আমি গ্রেগরীকে জিজ্ঞাসা করেছি এবং তিনি জানুয়ারী 1 জানুয়ারি বলেছেন
ডেনিস

উত্তর:


5

টাস্ক 1, গল্ফস্ক্রিপ্ট, 8 বাইট

~,{+}*.*

মার্টিনের সিজেমের উত্তর হিসাবে একই ধারণা ।


টাস্ক 2, কিউ বেসিক, 74 71 বাইট

INPUT a
r=a>1
FOR i=2 TO a-1
r=r*(a MOD i)
NEXT
?r*((a\2AND a)=a\2)

সিনট্যাক্স প্রসার বন্ধ করে কিউবি 64 তে পরীক্ষা করা হয়েছে । 1 প্রোগ্রাম পরীক্ষা বাল্ক প্রদত্ত সংখ্যার কিনা aগ্রহণ করে মৌলিক a<= প্রতি NUMBER 2 mod i< aএবং ফলাফল বংশ বিস্তার করেন। ফলাফলটি r0 হয় যদি সংখ্যাটি প্রধান না হয় এবং অন্যথায় ননজারো হয়। শেষ লাইনটি AND2 দ্বারা পূর্ণসংখ্যা বিভাগের সাথে বিটওয়াইস ব্যবহার করে বাইনারি উপস্থাপনার সমস্তটি কিনা a, অর্থাৎ a2 এন -1 ফর্মের কিনা তা পরীক্ষা করে দেখুন । এটির দ্বারা গুণিত করে r0 (মিথ্যা) দেয় যদি কোনও সংখ্যা মার্সেন্ন প্রাইম না হয় এবং অন্যথায় কিছু ননজারো (সত্যবাদী) মান হয় না। ?এর জন্য একটি শর্টকাট PRINT

8191 আমি পরীক্ষিত বৃহত্তম মার্সেন প্রাইম একটি ফলাফল দেয় - 1.#INFযা এখনও সত্য! (আমি IFনিশ্চিত হয়ে একটি বিবৃতি দিয়ে পরীক্ষা করেছি ।)

1 এটি প্রোগ্রামটির শব্দার্থবিজ্ঞান পরিবর্তন করে না। আপনি যদি উপরে ডস কিউবাসিকের উপরের কোডটি টাইপ করেন তবে এটি অতিরিক্ত স্পেস সহ স্বয়ংক্রিয়ভাবে তৈরি হবে তবে এটি ঠিক একইভাবে চলবে।


কার্য 3, পাইথ, 6 বাইট

ehc2SQ

স্টিডিন থেকে পাইথন-শৈলীর তালিকা পড়ে। এখানে প্রধান যাদু cহপ অপারেটর: একটি অন্তর্নির্মিত এবং একটি তালিকা দেওয়া, এটি তালিকাটিকে n টুকরা করে বিভক্ত করে। তাই c2SQঅর্ধেক সাজানো ইনপুট তালিকা চপ। সুবিধার্থে, যখন দৈর্ঘ্যটি বিজোড় হয়, প্রথমার্ধটি বৃহত্তর হয়, তাই মধ্যমা সর্বদা প্রথম অর্ধের শেষ উপাদান হয়। এটি চপ ফলাফলগুলির ইডের eএনডি h


টাস্ক 4, সিজেম, 26 বাইট

ri{_2%z\_0>\-2/_3$+?}h;]W%

এটি সংক্ষিপ্ত করা যেতে পারে, আমার সন্দেহ।

অ্যালগরিদম:

  • পূর্ণসংখ্যা পড়ুন।
  • মান 0 না হওয়ার সময় করুন:
    • অ্যাবস নিন (i% 2)। এটি পরের অঙ্ক (নেগাবিট?)।
    • I -2 দ্বারা ভাগ করুন।
    • যদি আমি প্রতিক্রিয়াশীল না হয়ে থাকি তবে ফলাফলটিতে অ্যাবস (i% 2) যুক্ত করুন। এটি একটি কোণার কেসটি সংশোধন করার জন্য: 3 -1 এ যায়, তবে -3 1-তে নয়, 2 এ যায়।
  • অতিরিক্ত অতিরিক্ত 0 টি ড্রপ করুন, স্ট্যাকটিকে একটি অ্যারে, বিপরীতে এবং মুদ্রণ করুন।

এটি একটি করণীয় লুপ 0 কেসের যত্ন নেয়।


টাস্ক 5, বাশ, 50 বাইট

echo pneumonoultramicroscopicsilicovolcanoconiosis

ব্যাখ্যা করার মতো বেশি কিছু নয়।


টাস্ক 6, পাইথন, 78 বাইট

from datetime import*
d=date.today()
if d.day<2>d.month:print"Happy New Year!"

পাইথন প্রয়োজন 2. পাইথনের চেইনিং অসমতা অপারেটরগুলি এখানে সুন্দরভাবে শোষণ করা যায়।


টাস্ক 7, অ্যাকশনস্ক্রিপ্ট, 82 বাইট

x=""
while(x.length<64){c=chr(13312+random(6582));if(x.indexOf(c)<0)x+=c}
trace(x)

অ্যাকশনস্ক্রিপ্ট ECMAScript পরিবারের সদস্য। এই কোডটির জন্য অ্যাকশনস্ক্রিপ্ট 2 প্রয়োজন - কোড গল্ফের জন্য অনেক ভাল কারণ আমি chrসংস্করণ 3 এর পরিবর্তে অবনতিযুক্ত ফাংশনগুলি ব্যবহার করতে পারি String.fromCharCode!

কনসোল ফলকে আউটপুট দেয়:

টাস্ক 7 স্ক্রিনশট


টাস্ক 8, পিপ, 9 19 বাইট

রেজেক্স সমাধানটি বেশ কার্যকর হয়নি, সুতরাং তার পরিবর্তে এখানে স্ট্রিং অপারেশন রয়েছে।

Fcab@>:o&:(b@?c)+1o

পাইপের জন্য গিথুব সংগ্রহস্থল

দুটি স্ট্রিং কমান্ড-লাইন আর্গ হিসাবে নেয়। যখন aএকটি উপগতি হয়, তখন একটি ধনাত্মক পূর্ণসংখ্যা (সত্যবাদী) হয়; অন্যথায়, ফলাফলটি শূন্য (মিথ্যা), যা কোনও আউটপুট দেয় না।

ব্যাখ্যা:

                     Cmdline args -> a,b; o = 1 (implicit)
Fca                  For each character in a:
           b@?c      Find character's index in b (nil if not found)
          (    )+1   Add 1; all possible indices except nil are now truthy
       o&:           Logical AND with o
   b@>:              Slice b to everything at index o and afterward (Python b=b[o:])
                     (If c wasn't found, b becomes nil, but we don't care at that point)
                  o  Auto-print o

কার্য 9, প্রোলোগ (এসডাব্লুআই), 68 বাইট

m(L,N,R):-L=[H|T],m(H,N,I),m(T,N,U),R=[I|U];L=[],R=[];R is L*N.

প্রোলগ সাধারণত কোড গল্ফের ক্ষেত্রে মোটেও প্রতিযোগিতামূলক হয় না, তাই আমি এই সমাধানটি নিয়ে বেশ খুশি।

তালিকার জন্য এবং সংখ্যার এবং আউটপুট প্যারামিটারের জন্য ইনপুট পরামিতিগুলির সাথে একটি প্রিকেট নির্ধারণ করে । সংজ্ঞাটি একটি ট্রিপল বিযুক্তি:mLNRm

  • যদি Lকরা যায় একীভূত সঙ্গে [H|T], এটা অন্তত একটি আইটেম সঙ্গে একটি তালিকা রয়েছে। mসেই তালিকার মাথা এবং লেজটিতে পুনরাবৃত্তভাবে কল করুন এবং ফলাফলগুলি আবার এক নতুন তালিকায় রাখুন যা একত্রিত R
  • তাহলে Lসঙ্গে একীভূত করা যেতে পারে [], সমন্বয়সাধন করা Rসঙ্গে []পাশাপাশি।
  • অন্যথায়, Lএকটি সংখ্যা হিসাবে ধরে নেওয়া হয়; L*Nগণনা করা এবং নির্ধারিত হয় R

swiplউবুন্টু ব্যবহার করে চালানোর উদাহরণ :

dlosc@dlosc:~/golf$ swipl -qs arrayMult.prolog
?- m([1,2,3],5,R).
R = [5, 10, 15] .

?- m([[3,4],[5,6]],3,R).
R = [[9, 12], [15, 18]] .

?- m([[[1,2],[3,4]],[[5,6],[7,8]]],2,R).
R = [[[2, 4], [6, 8]], [[10, 12], [14, 16]]] .

টাস্ক 10, সি, 114 112 106 বাইট

#define F;printf("\n");for(i=0;i<c;i++)printf(
i;t(c){F" ______  ")F"|      | ")F" ()--() ~");putchar(8);}

gccউবুন্টু নিয়ে পরীক্ষা করেছেন । একটি ফাংশন সংজ্ঞা দেয় tযা একটি পূর্ণসংখ্যার আর্গুমেন্ট নেয়। forআউটপুট করতে তিনটি লুপ ব্যবহার করে , ম্যাক্রোর অপব্যবহারের মাধ্যমে ব্যাপকভাবে ঘনীভূত। ব্যাকস্পেসের অক্ষরটি ব্যবহার করে ~বরং একটি বিজোড় সাদা স্থানের পেছনের পেছনের ফলাফল মুছে ফেলতে , কিন্তুThe output may be surrounded by any amount of whitespace as long as it looks like in the example.

উদাহরণস্বরূপ রান t(3):

dlosc@dlosc:~/golf$ ./a.out

 ______   ______   ______
|      | |      | |      |
 ()--() ~ ()--() ~ ()--() dlosc@dlosc:~/golf$

দুর্ভাগ্যক্রমে, টাস্ক 8 এর জন্য আপনার কোডটি a.cএকটি অনুচ্ছেদে হিসাবে চিহ্নিত করে abc
ডেনিস

@ ডেনিস এটি দুর্ভাগ্যজনক। (ভাল ধরা, যদিও, ধন্যবাদ।) স্থির, 10 বাইট ব্যয়ে।
DLosc

17

হুজ্জাহ, প্রথমে সমস্ত কাজ শেষ! \ ণ /

টাস্ক 1, পার্ল, 32 বাইট

$_=eval join"+",map$_**3,0..$_-1

-pপতাকাটির জন্য +1 বাইট । ভাষ্য: পার্ল অদ্ভুত


টাস্ক 2, সিজেম, 14 বাইট

{_mp\)2mL_i=&}

আমার প্রথম সিজেএম প্রোগ্রাম!


কার্য 3, গল্ফস্ক্রিপ্ট, 8 বাইট

~$.,(2/=

ইভাল STDIN ইনপুট, বাছাই করুন, দৈর্ঘ্য নিন, হ্রাস করুন, দুটি দিয়ে ভাগ করুন, তারপরে সেই সূচীতে সাজানো অ্যারের আইটেমটি নিন।


টাস্ক 4, পাইথন, 77 বাইট

def f(i,d=''):
 while i:i,r=i/-2,i%2;i+=r<0;r+=2*(r<0);d=`r`+d
 return d or 0

24 (!) বাইটগুলি শেভ করার জন্য @ এমবিম্ব007 এবং অন্য 11 টির জন্য @ এসপি 3000 ধন্যবাদ।


টাস্ক 5, জাভা, 66 বাইট

String f(){return"pneumonoultramicroscopicsilicovolcanoconiosis";}

বিরক্তিকর। পরে গল্ফিয়ার ভাষার জন্য ঘর সংরক্ষণ করতে এখানে একটি ভার্বোজ ভাষা ছিটকে গেল।


টাস্ক 6, বাশ, 39 বাইট

((`date +%j`<2))&&echo Happy New Year\!

%jপ্রক্রিয়াটিতে 10 বাইট ছাঁটাই সম্পর্কে আমাকে শেখানোর জন্য @ মান্যাটওয়ার্ককে ধন্যবাদ ।


টাস্ক 7, জাভাস্ক্রিপ্ট, 148 বাইট

a=[];Array(65).join('x').replace(/./g,function(){while(a.push(s=String.fromCharCode(13312+Math.random()*6582))&&a.indexOf(s)==s.length-1);return s})

64৪ এর স্ট্রিং তৈরি করুন x, তারপরে তাদের সমস্তকে একটি কলব্যাক ফাংশন দিয়ে প্রতিস্থাপন করুন যা ইতিমধ্যে ব্যবহৃত অক্ষরের অ্যারেটিতে না থাকলে সেই অক্ষরের মধ্যে একটি এলোমেলো করে দেয়।


টাস্ক 8, মরিচা, 130 বাইট

fn f(a:String,b:String)->bool{let mut c=b.chars();for x in a.chars(){match c.find(|&y|x==y){Some(_)=>(),None=>return false}};true}

হ্যাঁ, গল্ফ করার সময় মরিচা খুব খারাপ।


টাস্ক 9, অস্ট্রিচ, 18 বাইট

{:n;'`\d+`{~n*}X~}

সংস্করণ 0.7.0 । অ্যারেটি পরীক্ষা করে, তাদের গুণিত সংস্করণগুলিতে সংখ্যা পরিবর্তন করতে একটি রেজেক্সগুলি প্রতিস্থাপন করে এবং তারপরে ফলাফল পুনরায় স্ট্রিংটি আবার দেখায়।


টাস্ক 10, রুবি, 58 বাইট

->n{([' ______  '*n,'|      | '*n,' ()--() ~'*n]*$/).chop}

"\n"এর চেয়ে একটি অক্ষর দীর্ঘ "{actual newline}", যা একটি চরিত্রের চেয়ে দীর্ঘ $/। কালো যাদুর বিভিন্ন কৌশল সহ Mart অনির্দিষ্ট তবে বিশাল সংখ্যক} বাইট বন্ধ করার জন্য @ মার্টিনব্যাটনারকে ধন্যবাদ।


কার্য 6 - $(…)`…`
manatwork

@ মান্যাটওয়ার্ক ধন্যবাদ, সম্পাদিত।
ডোরকনবব

আবার ভাবছেন, (ক্যাফিন শোষণের কাজ চলছে ...), কেন এত দীর্ঘ% ডি ফর্ম্যাট? [ `date +%j` = 001 ]বা এমনকি ((`date +%j`<2))। (ধরে dateনিচ্ছেন জিএনইউ , যা অবশ্যই "বছরের জে% (দিন 013..366)" ফর্ম্যাটকে সমর্থন করে))
মানটওয়ার্ক

@ মানটওয়ার্ক ওহ, খুব সুন্দর আবার ধন্যবাদ, উত্তর যুক্ত।
ডুরকনব

4 (টাস্ক 4) ((num + 0xAAAAAAAA) ^ 0xAAAAAAAA) আলগ ব্যবহার করে সংক্ষিপ্ত করা যেতে পারে।
জ্যাকব

15

টাস্ক 1, 3var, 14 13 বাইট

'><k*>#aa/>sp

( 3var এর জন্য ইসোলং উইকি পৃষ্ঠা )

'                  R = n
 >                 A = n
  <k               B = n-1
    *              R = A*B = n(n-1)
     >             A = n(n-1)
      #aa          B = 2
         /         R = A/B = n(n-1)/2
          >s       A = (n(n-1)/2)^2
            p      Output A

কোড পয়েন্টের মাধ্যমে ইনপুট নেয়, যেমন স্থানটি 32 space

ধন্যবাদ, সূত্রটি বাস্তবায়নের জন্য আমাদের যে সমস্ত ক্রিয়াকলাপ প্রয়োজন n^2 (n-1)^2 / 4তা একক অক্ষর (হ্রাস, গুণ এবং স্কোয়ারিং), তবুও এটি 2 বেটে সেট Bকরতে 3 বাইট লাগে (রিসেট-ইনক্রিমেন্ট-ইনক্রিমেন্ট)।


টাস্ক 2, রেটিনা, 38 33 বাইট

^
1
^(..|.(..+)\2+|(.(..)+)\3*)$
<empty>

( রেটিনার গিথুব সংগ্রহশালা )

প্রতিটি লাইন পৃথক ফাইলে যায় তবে আপনি -sপতাকাটির সাথে উপরের মতো উপরেরটি পরীক্ষা করতে পারেন ( <empty>কিছুই না দিয়ে প্রতিস্থাপন )। ইনপুটটি 1s সহ অবিচ্ছিন্ন হওয়া উচিত, যেমন 11111117 এর জন্য।

প্রতিটি রেজেক্সের বিকল্প (এক লাইনের জোড় দ্বারা নির্দিষ্ট করা) এখানে যা করে:

  1. সামনের দিকে অতিরিক্ত 1 এ টেক করুন
  2. ফর্মের কিছু প্রতিস্থাপন 2, 1 + compositeবা not power of 2কিছুই।

এটি 1মার্সেন প্রাইমগুলিতে একটি অতিরিক্ত যোগ করে, যখন অন্য প্রতিটি সংখ্যা বিলুপ্ত হয়।


কার্য 3, র‌্যাকেট, 71 বাইট

#lang racket
(define(m x)(list-ref(sort x <)(quotient(-(length x)1)2)))

লিস্পের মতো ভাষাগুলি কেবল খুব শব্দযুক্ত। উদাহরণ রান:

> (m `(1 3 4 2))
2

কার্য 4,> <>, 31 বাইট

:?!v:2%:@-02-,
)?~\l1
!;n>l?

( > <> এর জন্য এসওলাং উইকি পৃষ্ঠা )

উপরেরটি 28 বাইট, এবং -vপাইথন ইন্টারপ্রেটারে আরও 3 বাইটের জন্য পতাকা প্রয়োজন , যেমন চালান

$ py -3 fish.py negabinary.fish -v -137
10001011

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


টাস্ক 5, প্যারেন্টেটিক, 1448 1386 বাইট

((()()())(()()()())((()())((()(())()))((()(())(())())((()(()))(()(())())((()(()))((())())((()()(()))((())()()()()()()()())((())()()()()()()()()()()()())))))))((()()())(()()())((()())((()(())()))((()()()())((()(()))(()(())())((())()()()()()()()()()()())))))((()(()))((()()())((())()()()()))((()()())((())()()))((()()()())((())()()()()))((()()())((())()()()()()()()()()))((()()())((())()))((()()())((())()()()))((()()())((())()()))((()()())((())()()()))((()()())((())()()()()()()()()()))((()()())((())))((()()())((())()()()()()()()()))((()()())((())()()()()()()))((()()()())((())))((()()())((())()))((()()()())((())()()()()()()()()))((()()()())((())()()))((()()())((())()()()()()()))((()()())((())()()()))((()()())((())()()()()()()()))((()()()())((())()()))((()()())((())()()()))((()()())((())()()()()))((()()()())((())()()()()()()()()))((()()()())((())()()))((()()())((())()()()()()()()))((()()()())((())()()()()()()()()))((()()())((())))((()()()())((())()()()()()()()()))((()()()())((())()()))((()()())((())()()()))((()()())((())()()()()()()()()()()))((()()())((())()()()))((()()())((())))((()()()())((())()()))((()()()())((())))((()()())((())()()))((()()())((())()()()))((()()()())((())()()))((()()())((())()()()))((()()())((())()()))((()()()())((())()()()()()()()()))((()()())((())()()()))((()()())((())()()()()()()()))((()()()())((())()()()()()()()()))((()()())((())()()()()()()())))

( পিতামাতাদের জন্য গিথুব সংগ্রহশালা )

আমার কাছে এর জন্য সিজেএম উত্তর আছে যা নিজেই স্ট্রিংয়ের চেয়ে কম, তবে আমি এটি ব্যবহার করতে পারি না তাই আমি ভেবেছিলাম যে আমি অন্য পথে যাব।

পাইথন 3 উত্পন্ন কোড:

char97 = "((()()())(()()()())((()())((()(())()))((()(())(())())((()(()))(()(())())((()(()))((())())((()()(()))((())()()()()()()()())((())()()()()()()()()()()()())))))))"
char108 = "((()()())(()()())((()())((()(())()))((()()()())((()(()))(()(())())((())()()()()()()()()()()())))))"
open_str = "((()(()))"
close_str = ")"

target = "pneumonoultramicroscopicsilicovolcanoconiosis"
output = [char97, char108, open_str]

for c in target:
    if ord(c) >= 108:
        output.append("((()()())((())%s))"%("()"*(ord(c)-108)))
    else:
        output.append("((()()()())((())%s))"%("()"*(ord(c)-97)))

output.append(close_str)
print("".join(output))

এখানে সম্পর্কিত লিস্পের মতো কোডটি দেওয়া হয়েছে:

(define f (lambda (n) (char (+ n 97))))
(define g (lambda (n) (f (+ n 11))))

(+
   (g 4)  // p
   (g 2)  // n
   (f 4)  // e
   ...
)

দৃশ্যত এটিকে ওভাররাইড করতে ঠিক ছিল defineনামকরণের দ্বারা gহিসাবে ()(), যা বাইট অনেকটা সংরক্ষিত হয়েছে।


টাস্ক 6, সিজেম, 26 বাইট

XY]et1>>"Happy New Year!"*

চেক যে [month day]স্থানীয় সময় অ্যারের অংশ কম [1, 2]


টাস্ক 7, পাইথন, 73 বাইট

from random import*
print(*map(chr,sample(range(13312,19894),64)),sep="")

মাত্র একটি সোজাসুজি পাইথন 3 বাস্তবায়ন।


টাস্ক 8, প্রিলিওড, 46 41 বাইট

?(?)#(#)?(v-(#)?)10)!
      ^      1 # (0

( প্রিলোডের জন্য এসোলাং উইকি পৃষ্ঠা )

আমি মনে করি এটি কাজ করে - এটি সম্ভবত এখনও গল্ফযোগ্য, তবে প্রিলিডে এটি আমার প্রথমবারের মতো একটি তুচ্ছ গল্ফ করছে। ইনপুট ফর্ম্যাটটি <needle>NUL<haystack>যেখানে NULরয়েছে 0x00NUMERIC_OUTPUT = Trueপাইথন ইন্টারপ্রেটারে এটি সবচেয়ে ভাল কাজ করে , যেহেতু এটি এটিকে আউটপুট 1বা 0উপযুক্ত হিসাবে তৈরি করবে ।

আমি প্রিলেড বেছে নিয়েছি কারণ দুটি বৈশিষ্ট্য যা এই কাজের জন্য এটি খুব সুন্দর করে তোলে:

  • এটি স্ট্যাক-ভিত্তিক, তাই আপনি প্রথমে সুইতে পড়তে পারেন, তারপরে একবারে খড়ের কাঁটাতে চারা প্রক্রিয়া করতে পারেন এবং
  • প্রিলেডের স্ট্যাকের নীচে সীমাহীন সংখ্যা 0 রয়েছে, সুতরাং যেখানে সুই অক্ষরের বাইরে চলেছে তেমন হ্যান্ডেল করার দরকার নেই।

এটি আরও ভাল হত যদি প্রিলিওয়েটের অপারেটর না থাকে।

এখানে ভাঙ্গন:

?(?)#    Read input up to the NUL, discarding the NUL afterwards

(#)      Move the needle to the second voice, effectively reversing the stack
 ^

?(...?)  Read haystack

  v-     Compare top needle char with haystack char by subtraction

  (#)    If equal, pop the needle char
   1 #

10)!     Output 1 if the top needle char is 0 (bottom of stack), 0 otherwise
(0

(-5 বাইটস @ মার্টিনবাটনারকে ধন্যবাদ)


কার্য 9, গণিত, 4 বাইট

#2#&

এর মতো কিছু 2 {{0, 1}, {1, 0}}হ'ল ম্যাথেম্যাটিকায় স্পষ্টতই গুণফল, সুতরাং এটি কেবল যুক্তিগুলি পাশাপাশি রাখে।

@ মার্টিনবাটনার এবং @ আলেফাল্ফার দ্বারা উল্লিখিত হিসাবে , 1##&আরও 4 টি বাইট উত্তর রয়েছে। একটি ব্যাখ্যা জন্য প্রাক্তন দেখুন।


টাস্ক 10, রেল, 246 237 বাইট

$'main'
 0/aima19-@
@------e<
         -(!!)()[ ][ ______ ]{f}[\n\]o()[ ][|      |]{f}[\n\]o()[~][ ()--() ]{f}#
$'f'                 #           #
 -(!x!)(!y!)(!!)()0g<  -(x)o()1g<  -(y)o()1s(y)(x){f}#
                     -/          -/

( রেলের জন্য এসোলাং উইকি পৃষ্ঠা )

আমি রেলের ট্রেন সম্পর্কিত কোনও কাজ করার সুযোগটি পার করতে পারিনি :) শ্বেত স্পেসটি বেশ গল্ফ লাগছে তবে শাখা প্রশাখার সাথে তিনটি লাইন নেওয়ার সাথে সংযোগ নিতে বেশ খানিকটা সময় লাগবে।

ইনপুটটি STDIN এর মাধ্যমে একটি পূর্ণসংখ্যা, তবে একটি EOF হওয়া দরকার। উপরের বাম অংশ

 0/aima19-@
@------e<

একটি অটোই লুপ যা ইনফুটটি ইওএফ না করে ( eনির্দেশ অনুসারে পরীক্ষা করা হয় ) পূর্ণসংখ্যায় রূপান্তর করে ।

fশেষ তিনটি লাইনে ফাংশনটি আলাদা করে x, y, nরেখে স্ট্রিংয়ের x nসময় নেয় এবং আউটপুট দেয় y। ফাংশনটি পুনরাবৃত্ত হয়, nযতক্ষণ না এটি শূন্য হয় ততক্ষণে প্রতি বারে কমতে থাকে। fতিনবার বলা হয়, প্রতিটি সারির জন্য বিভিন্ন স্ট্রিং সরবরাহ করে। অদ্ভুতভাবে, রেল পরিবর্তনশীল নামগুলি খালি রাখতে দেয়, যা কয়েকটি বাইট সংরক্ষণ করে।

দুর্ভাগ্যক্রমে বেশিরভাগ বাইটগুলি এসেছে (!x!), যা স্ট্যাকের শীর্ষটি পপ করে এবং এটিকে ভেরিয়েবলের জন্য বরাদ্দ করে x, এবং (x), যা xস্ট্যাকের দিকে ঠেলা দেয়। এটি প্রয়োজনীয় কারণ রেলের কোনও নকল অপারেটর নেই, তাই (!x!)(x)(x)স্ট্যাকের শীর্ষস্থানীয় অনুলিপি করার একমাত্র উপায়।


যদি টাস্ক 2 আরএসে থাকত, আপনি 2 বাইট সংরক্ষণ করতেন এবং অ্যানারি না করে সংখ্যাগুলি নিতে কেবল 14 বাইট খরচ হত। ;)
kirbyfan64sos

আমি যখন র‌্যাকেটটি দেখেছি, আমি ভেবেছিলাম আপনি বন্ধনী পছন্দ করেন; তবে প্যারেন্টিথ ...
বুনিয়া ক্লোভেন

13

টাস্ক 1, সিজেম, 7 বাইট

q~,:+_*

আমি কেবল এটির জন্য (সম্ভবত) সর্বোত্তম সিজেএম সমাধান পেতে চেয়েছিলাম It এটি ব্যবহার করে তোলে যে প্রথম এন কিউবসের যোগফলটি নবম ত্রিভুজাকার সংখ্যার বর্গ , যা নিজেই প্রথম এন পূর্ণসংখ্যার যোগফল ।

এটি এখানে পরীক্ষা করুন।


টাস্ক 4, বিদারণ, 173 88 78 69 68 বাইট

ফিশনের জন্য গিটহাব সংগ্রহস্থল।

 /@\O/S@+>\
^{ }[<X/ @/;
,\?/@\J^X\
'M~\$ $
UK/W%@]  /
D
?\{\/
0'A Y

আমার দ্বিতীয় যুক্তিসঙ্গত জটিল ফিশন প্রোগ্রাম। :)

ইনপুট ফর্ম্যাটটি কিছুটা অদ্ভুত। নেতিবাচক ইনপুট সমর্থন করার জন্য, প্রথম অক্ষরটি হয় হয় +বা -চিহ্নটি নির্দেশ করে। দ্বিতীয় চরিত্রের বাইট মান হ'ল ইনপুটটির দৈর্ঘ্য (যেহেতু ফিশন স্থানীয়ভাবে দশমিক পূর্ণসংখ্যা পড়তে পারে না)। সুতরাং আপনি যদি চান 111এটি +oSTDIN এ পাস করতে চান । এবং আপনি যদি চান -56এটি পাস করুন -8। এর জায়গায় +এবং -আপনি যথাক্রমে নিম্ন বা উচ্চতর অক্ষর কোড সহ যে কোনও অক্ষর ব্যবহার করতে পারেন। উদাহরণস্বরূপ, যেমন -n( echoযেমন আপনার যুক্তি হিসাবে বিবেচিত হতে পারে) এমন কোনও ক্ষেত্রে পাস করতে এটি সহায়ক হতে পারে 0n

আসুন আমরা কীভাবে ধনাত্মক সংখ্যার অবহেলিত উপস্থাপনা পেতে পারি তা দেখুন look আমরা সংখ্যাকে কমপক্ষে থেকে উল্লেখযোগ্য বিট পর্যন্ত গণনা করতে চাই (আমরা সেই বিটগুলি একটি স্ট্যাকের উপর চাপিয়ে দেব এবং সেগুলি যথাযথ ক্রমে পেতে শেষে এগুলি মুদ্রণ করব)। প্রথম অঙ্কটি তখন কেবলমাত্র সংখ্যার সমতা এবং প্রক্রিয়াকরণ চালিয়ে যাওয়ার জন্য আমরা সংখ্যাকে 2 দিয়ে ভাগ করে ফেলি। পরবর্তী অঙ্কটি এখন নেতিবাচক (মান -2 সহ) - তবে এটি অবশ্যই লক্ষ্য করা উচিত যে যখনই 2-বিট একটি সাধারণ বাইনারি সংখ্যায় সেট করা হবে তখনই এই বিটটি সেট করা হবে। পার্থক্যটি হ'ল আমাদের -2 ইতিবাচক উচ্চতর মূল্যবান সংখ্যার সাথে লড়াই করতে হবে। সুতরাং আমরা যা করি তা হ'ল:

  • আমরা আবার সমতাটি নির্ধারণ করি - এটি পরবর্তী তাত্পর্যপূর্ণ - এবং পূর্বের মত 2 দিয়ে ভাগ করা।
  • যদি সেই 1অঙ্কটি হ'ল, আমরা numberণাত্মক বিটকে পাল্টা-অ্যাক্ট করার জন্য অবশিষ্ট সংখ্যাটি 1 দ্বারা বাড়িয়ে তুলি (নেগাবিট এবং বিটের মধ্যে পার্থক্য একবার পরবর্তী পরবর্তী-তাত্পর্যপূর্ণ বিটের মান হয়)।

শর্তসাপেক্ষে এখানে একটি যুক্ত করা কোডের ফলাফলের দুর্দান্ত সরলকরণ যখন পূর্ণসংখ্যকে বিভাজক করার সময় সংখ্যাটি গোল করার সমতুল্য হয় (যদি বিছিন্ন বিটটি 1 হয়, তবে আমরা পূর্ণসংখ্যা-বিভক্ত ফলাফলকে 1 দ্বারা বাড়িয়ে তুলি )।

তারপরে, পরবর্তী বিটটি আবার কেবল একটি ইতিবাচক মান যা আমরা এটি স্বাভাবিকভাবে নির্ধারণ করতে পারি। এর অর্থ আমরা একটি লুপ চাই যা একবারে দুটি বিটের গতি রক্ষা করে, বাকী সংখ্যার জন্য বৃত্তাকার আপ এবং গোলাকার মধ্যে পরিবর্তিত হয় তবে আমরা মাঝখানে লুপটি প্রবেশ করতে চাই তাই আমরা বৃত্তাকারটি ডাউন করে শুরু করব।

আমরা কীভাবে নেতিবাচক পূর্ণসংখ্যাগুলি পরিচালনা করতে পারি? সমস্যাটি হ'ল ফিশন প্রকৃতপক্ষে negativeণাত্মক পূর্ণসংখ্যাগুলিতে স্বেচ্ছাচারিত পাটিগণিত করতে পারে না, কারণ জনসাধারণ সর্বদা অ-নেতিবাচক থাকে। সুতরাং এককে আরও জটিল কিছু করতে হবে যেমন প্রস্থের সাথে কাজ করা এবং সাইনটি অন্য কোথাও ট্র্যাক করা। তবে, positiveणাত্মক সংখ্যার অবহেলিত উপস্থাপনা সম্পর্কিত ইতিবাচক সংখ্যার ভিত্তিতে গণনা করা যেতে পারে:

তাহলে এন নেতিবাচক, এর negabinary উপস্থাপনা গনা এন / 2 (বৃত্তাকার আপ ) এবং এর সমতা যোগ এন

এটি আমাদের দু-বিট লুপের ঠিক প্রথম ধাপ step সুতরাং আমাদের যা করতে হবে তা হ'ল সাইনটি নেতিবাচক হলে আলাদা পয়েন্টে লুপটি শুরু করা উচিত।

173 আসল বাইটের বেশিরভাগ সঞ্চয় এই অন্তর্দৃষ্টিগুলি থেকে এসেছিল যা আমাকে তিনটি প্যারিটি চেক এবং একটি দ্বি-বিভাগের লুপকে একক প্যারিটি চেক সহ একক লুপে সংকোচন করতে দেয়।

আমি সমস্ত কোড বিস্তারিতভাবে বর্ণনা করলে এই পোস্টটি অনেক দীর্ঘ হবে, তবে আমি নিয়ন্ত্রণ প্রবাহের রুক্ষ বিন্যাসটি দিতে কয়েকটি বিভাগ চিহ্নিত করব এবং আপনি ফিশন রেফারেন্স সহ বিশদটি ধাঁধা দিতে পারেন।

 /@\
^{ }[
,\?/
'
U
D
?

থেকে শুরু করে D, এটি শক্তির মধ্যে একটি চিহ্ন বিট এবং একটি পরমাণুর ভরতে প্রস্থের [(ডানদিকে যাওয়া) সমাপ্ত হয় reads এই সাইন বিটটি প্যারিটি চেকের মধ্য দিয়ে প্রতিটি পাসের পরে বিকল্প হবে এবং এটি নির্ধারণ করবে যে আমরা লুপ ইনপুটটির বৃত্তাকার নিচে বা গোল করে রেখেছি কিনা retain

     /S@+>\
    [<X/ @/
 \  @\J^X\
 M  $ $
 K  %@]  /

এটি লুপ যা পৃথক বিটগুলি গণনা করে এবং পরবর্তী পুনরাবৃত্তিতে সঠিক অর্ধেকটি ফিড করে। Sএবং Jডান বর্তমান চিহ্ন বিট উপর ভিত্তি করে অর্ধেক একটি অনুলিপি তৈরি করতে ব্যবহার করা হয়, Xগুলি কপি না। >উপরের ডান কোণায় থাকা নির্ণয় প্রকৃত বিট যা পরে স্ট্যাকের পাঠানো হয় Kপরে উদ্ধার করা হবে। আমি মনে করি উপরের ডানদিকে কোণার লেআউটটি বেশ নিফটি এবং স্পষ্টভাবে আগ্রহী যদি আপনি বিশদে পড়াশোনা করতে চান তবে অবশ্যই এটি মূল্যবান।

%একটি সুইচ যা যতদিন লুপ মধ্যে সংখ্যা ফিরে ফিড 0 থেকে এটা বৃহত্তর হয়।

    O


 M~\
 K/W%

 \{\/
0'A Y

সংখ্যাটি 0 পৌঁছে যাওয়ার পরে এটি নীচে প্রতিবিম্বিত হয়। এটি আর একটি লুপ শুরু করে যা স্ট্যাক থেকে বিটগুলি পুনরুদ্ধার করে, তাদের অক্ষর কোডে যুক্ত করে 0এবং এগুলি মুদ্রণ করে O। স্ট্যাকটি খালি হয়ে গেলে প্রোগ্রামটি বন্ধ হয়ে যায়, কারণ নিয়ন্ত্রণ পরমাণুটি স্ট্যাকের উপর চাপ দেওয়া শেষ হবে (এবং এর পরে আর কোনও চলমান পরমাণু অবশিষ্ট থাকবে না)।


কার্য 5, উপস্থাপিকা, 219 179 96 বাইট

প্রিোলিউডের জন্য এসোল্যাংস পৃষ্ঠা।

প্রিলিওডের জন্য স্নিপেট ইন্টারপ্রেটার স্ট্যাক করুন।

29+129+716705-7607-05-4759+705-14129+05-18705-29+719+05-1507-19+39+449+767549+03-68(67+^+^+^++!)

এটি তিনটি ভয়েস সহ একটি মানক হস্ত-কারুকৃত স্থির-আউটপুট প্রিলিওড প্রোগ্রাম হিসাবে শুরু হয়েছিল। Sp3000 এর সাথে কিছু চ্যাট করার পরে আমি একক ভয়েস চেষ্টা করার সিদ্ধান্ত নিয়েছি। দেখা গেল যে এটি বেশ ভাল কাজ করেছে, কারণ পুরানো চিঠিগুলি পুনরায় ব্যবহার করা অনেক সহজ। তারপরে ডেনিস আমাকে কয়েকটি ইঙ্গিত দিয়েছিল এবং আমি বর্তমান সংস্করণটি পেয়েছি: ধারণাটিটি হ'ল চিঠি থেকে সমস্ত অফসেটগুলি hবিপরীত ক্রমে একক ভয়েসের স্ট্যাকের দিকে চাপছে এবং তারপরে একটি লুপে কেবল একবারে সেগুলি মুদ্রণ করবে। স্ট্রিংটিতে কোনওটি hনেই বলেই বেছে নেওয়া হয়েছে h(যা গুরুত্বপূর্ণ - অন্যথায় 0অফসেটটি লুপটি শেষ করে দেবে) এবং কারণ এটি দুটি অঙ্কের এবং নেতিবাচক অফসেটের ক্ষেত্রে অফসেটগুলির এনকোডিংকে হ্রাস করে।

অফসেট এনকোডিংটি এই সিজেএম স্ক্রিপ্টের সাহায্যে উত্পন্ন হয়েছিল ।


কার্য 8, গণিত, 28 বাইট

LongestCommonSequence@##==#&

হ্যাঁ বিল্ট-ইনগুলির জন্য। (ম্যাথামেটিকাল এর নামকরণ একটু অদ্ভুত এখানে ... LongestCommonSubsequenceদীর্ঘতম সাধারণ খুঁজে বের করে সাবস্ট্রিং যখন LongestCommonSequenceখুঁজে বের করে দীর্ঘতম সাধারণ subsequence ।)


টাস্ক 9, জে, 1 বাইট

*

এপিএল এবং কে উত্তর হিসাবে একই, তবে মনে হয় এখনও কেউ জে নেয় নি।


টাস্ক 10, রেটিনা, 67 60 বাইট

রেটিনার জন্য গিটহাব সংগ্রহস্থল।

(.*).
 ______  $1<LF>|      | $1<LF> ()--() ~$1
+`(.{9})1
$1$1
~$
<empty>

প্রতিটি লাইন পৃথক ফাইলে যায় এবং <LF>একটি নতুন লাইন অক্ষর দ্বারা প্রতিস্থাপন করা <empty>উচিত এবং খালি ফাইল হওয়া উচিত। আপনি এই সমস্তগুলি একটি একক ফাইলে রেখে দিতে পারেন এবং -sবিকল্পটি ব্যবহার করতে পারেন , তবে এটি <LF>এখনও নতুন জায়গায় লাইন অক্ষরগুলি এম্বেড করার অনুমতি দেয় না । আপনি যেমন অনুকরণ করতে পারে কিছু

echo -n "111" | ./Retina -s train.ret | ./Retina -e "<LF>" -e "\n"

উপরের উদাহরণটি দেখায়, ইনপুটটি অবিচ্ছিন্ন হওয়ার আশা করা হচ্ছে। কোডটির ধারণাটি হ'ল আনারি ইনপুট (বিয়োগ 1) এর তিনটি অনুলিপি তৈরি করুন, যার প্রত্যেকটির সাথে সংশ্লিষ্ট লাইনের একটি অনুলিপি থাকবে। তারপরে আমরা বারবার শেষের নয়টি অক্ষর একবারের সামনে অনুলিপি করি 1যতক্ষণ না সমস্ত 1গুলি শেষ হয়ে যায়, ততক্ষণ প্রয়োজনীয় হিসাবে লাইনগুলি পুনরাবৃত্তি করে। অবশেষে, আমরা বহির্মুখী পথচলা অপসারণ করি ~


10

হ্যাঁ, আমি অনুমান একটি দম্পতি দিয়ে শুরু করব। প্রথম বার গল্ফিং।

টাস্ক 1, পাইথন, 38 21 বাইট

lambda n:(n*n-n)**2/4

এক্স অবধি সমস্ত কিউবের একটি তালিকা যোগ করুন। এক্সনোরকে অভিব্যক্তি পরিবর্তিত হয়েছে

টাস্ক 2, টিআই-বেসিক 89, 244 বাইট

Func
If iPart(log(x+1)/log(2))=log(x+1)/log(2) Then
 Return log(x+1)/log(2)
Else
 Return 0
EndIf
EndFunc
Func
If isPrime(x)=false
 Return 0
If ipart(log(x+1)/log(2))=log(log(x+1)/log(2)) Then
 Return log(x+1)/log(2)
Else
 Return 0
EndIf
EndFunc

এটির জন্য 100% নির্দিষ্ট নয়, যখন আমি আমার ক্যালকুলেটরটির জন্য নতুন ব্যাটারি পাই তখন এটি পরীক্ষা করে দেখবে। isPrime একটি অন্তর্নির্মিত, আইপার্টটি পূর্ণসংখ্যার অংশ (2.3 -> 2)

টাস্ক 3, পার্ল, 45 34 বাইট

@n=sort{$a-$b}@ARGV;print$n[$#n/2]

পার্ল ফাইল 1 2 3 4 -> 2. @ নটকিকে ধন্যবাদ কয়েক বিট সংরক্ষণ করেছে Sa পরিবর্তে ভেরিয়েবলের মুদ্রণের পরিবর্তে মুদ্রিত

টাস্ক 4, রুবি, 43 40 বাইট

x=2863311530
p ((gets.to_i+x)^x).to_s(2)

কমপক্ষে এটি 1.9 এ কাজ করে, 1.8 সম্পর্কে জানেন না। বাইনারিগুলিতে, '10' * 16 (বা 2863311530) প্লাস একটি সংখ্যা, সেই 10101010 এর সাথে xor হ'ল negণাত্মক। কোট (3 -> 111 এর পরিবর্তে "111") দিয়ে একটি স্ট্রিং প্রতিনিধিত্ব আউটপুট দেয়। কম অক্ষরে x লিখতে গণিত খুঁজে পাচ্ছেন না।

টাস্ক 5, মলবোজ, 682 354 বাইট

D'``_]>n<|49ixTfR@sbq<(^J\ljY!DVf#/yb`vu)(xwpunsrk1Rngfkd*hgfe^]#a`BA]\[TxRQVOTSLpJOHlL.DhHA@d>C<`#?>7<54X8165.R2r0/(L,%k)"F&}${zy?`_uts9Zvo5slkji/glkdcb(fed]b[!B^WVUyYXQ9UNrLKPIHl/.JCBGFE>bBA@"!7[;{z276/.R2r0)(-&J$j('~D${"y?w_utyxq7Xtmlkji/gf,MLbgf_dc\"`BA]\UyYXWP8NMLpPIHGLEiIHGF(>C<A@9]7<;:3W7w5.-210/(L,%k#('~}C{"y?`_uts9wpXn4rkpoh.lNMiha'eGF\[`_^W{h

এখানে অনলাইনে পরীক্ষা করুন ভাবুন এটি যতটা সংক্ষিপ্ত হবে ততই চলে যাবে। আমি যতটা পারি গল্ফ 300 বাইট সংরক্ষণ করা হয়েছে, তাই?

টাস্ক 6, বাশ, 62 50 40 বাইট

[ `date +%j`=1 ]&&echo 'Happy New Year!'

অন্য পোস্ট থেকে প্রায়% j খুঁজে পেয়েছি।

টাস্ক 10, বেফুঞ্জ -98, 121 বাইট

>&:>1-:" ____"v
   |,k8: '"__"<
   >a,$:>1-v
      > |
>' 8k,^ #
^|':k4 '|':<
v ',*25$<
>,:1-: ")(--)("v
^," ~"_@#,k6" "<

Befunge-98 এ পরিবর্তিত হয়েছে। পুরাতন ছিল বেফুঞ্জ -৩৩, 227 157 147 বাইট। ব্যবহৃত ছত্রাক, Haskell, লেখা পরীক্ষার জন্য। "একাধিক বার কে" ব্যবহার করুন এবং 'স্ট্যাকের সাথে একক অক্ষর যুক্ত করুন। আমার অনুভূতি আছে যে এটি 110 বা তারও কম গলফ করা যেতে পারে তবে আমি ইতিমধ্যে এটিতে অনেক বেশি সময় ব্যয় করেছি ...


@ ডেনিস যেহেতু আমি প্রধান পোস্টে জিজ্ঞাসা করতে পারি না, আমি এখানে জিজ্ঞাসা করব। স্থান 3 পৃথক ইনপুট কি কার্য 3 এর জন্য ঠিক আছে? এটি [] মধ্যে হবে না।
জ্যাকব

আপনার প্রয়োজন অনুসারে যাই হোক না কেন।
ডেনিস

1
আপনার সাথে কিউব এর সমষ্টি খাটো করতে পারেন সূত্র হিসাবেlambda n:(n*n-n)**2/4
xnor

আপনি 0=fPart(expression) rather than নিজের টিআই -৯৯ বেসিক উত্তরে আইপার্ট (অভিব্যক্তি) = অভিব্যক্তি` ব্যবহার করতে পারেন ।
lirtosiast

1
আমি মনে করি পাইথন 2/3 এর মতো কোনও বিষয়ে কথা বলার সময় তর্কটি কার্যকর হয় না। উদাহরণস্বরূপ, 2 n` 2 তে str (n) এর চেয়ে আরও ভাল কাজ করে তবে 3 এ কাজ করে না I আমি এই মুহুর্তে অন্যান্য উদাহরণগুলির কথা ভাবতে পারি না, আমি গল্ফিংয়ের সাথে আরও বেশি উদ্বিগ্ন যে উত্তরটি আরও বেফিশ করতে হবে: পি
জ্যাকব

9

প্রথম জিনিস: টাস্ক 6 প্রযুক্তিগতভাবে গণনা করা হয় না ; আমি এক ঘন্টা আগে অন ​​আপ আপ । যাইহোক, আমি আজ সকালে এটি প্রায় আপলোড করেছি, তবে প্রথমে একটি পরীক্ষার স্যুট লেখার সিদ্ধান্ত নিয়েছি। ইডিয়ট।

তো, যাইহোক, এখানে যায়!

নোট করুন যে বেশিরভাগ অসম্পূর্ণ জিনিসগুলি ইচ্ছাকৃতভাবে পিছনের দিকে থাকে, সুতরাং &&প্রকৃত অর্থ ||এবং এরকম কারণগুলি কিছু অপারেশনকে অদ্ভুত দেখাচ্ছে (যেমন -কিউব গণনা করার জন্য ব্যবহার করে )।

টাস্ক 1, হাস্কেল, 21 বাইট

f n=sum$map(^3)[0..n]

টাস্ক 2, হাই, 135 বাইট

(import math)(fn[n](and(if(and(not(% n 2))(> n 2))false(all(genexpr(% n i)[i(->> n(math.sqrt)int inc(range 3))])))(->> n dec(& n)not)))

কার্য 3, ডার্ট, 37 বাইট

আমার প্রথম ডার্ট ফাংশন!

f(l){l.sort();return l[l.length~/2];}

টাস্ক 5, ইন্টারকল, 1047 বাইট

DO ,1 <- #46
DO ,1SUB#1 <- #242
DO ,1SUB#2 <- #152
DO ,1SUB#3 <- #208
PLEASE DO ,1SUB#4 <- #248
DO ,1SUB#5 <- #248
DO ,1SUB#6 <- #192
PLEASE DO ,1SUB#7 <- #128
DO ,1SUB#8 <- #128
DO ,1SUB#9 <- #72
PLEASE DO ,1SUB#10 <- #120
DO ,1SUB#11 <- #8
DO ,1SUB#12 <- #224
PLEASE DO ,1SUB#13 <- #200
DO ,1SUB#14 <- #208
DO ,1SUB#15 <- #32
PLEASE DO ,1SUB#16 <- #208
DO ,1SUB#17 <- #120
DO ,1SUB#18 <- #88
PLEASE DO ,1SUB#19 <- #40
DO ,1SUB#20 <- #8
DO ,1SUB#21 <- #208
PLEASE DO ,1SUB#22 <- #232
DO ,1SUB#23 <- #120
DO ,1SUB#24 <- #208
PLEASE DO ,1SUB#25 <- #248
DO ,1SUB#26 <- #56
DO ,1SUB#27 <- #96
PLEASE DO ,1SUB#28 <- #160
DO ,1SUB#29 <- #208
DO ,1SUB#30 <- #208
PLEASE DO ,1SUB#31 <- #136
DO ,1SUB#32 <- #120
DO ,1SUB#33 <- #192
PLEASE DO ,1SUB#34 <- #112
DO ,1SUB#35 <- #64
DO ,1SUB#36 <- #16
PLEASE DO ,1SUB#37 <- #128
DO ,1SUB#38 <- #48
DO ,1SUB#39 <- #208
PLEASE DO ,1SUB#40 <- #128
DO ,1SUB#41 <- #224
DO ,1SUB#42 <- #160
PLEASE DO ,1SUB#43 <- #40
DO ,1SUB#44 <- #56
DO ,1SUB#45 <- #200
PLEASE DO ,1SUB#46 <- #126
PLEASE DO READ OUT ,1
DO GIVE UP

টাস্ক 6, আনস, 157 বাইট

!include>=fgQVb%U<=
!include>=gVZR%U<=
false lRNe[]<<gVZR_g t:=gVZR[5]:volatile gZ m:=-YbPNYgVZR[&t]:for[#m%gZ_Zba||m%gZ_ZQNl!=6]chgf[L'uNccl ARj LRNe#']:>>

টাস্ক 8, আরএস, 42 বাইট

#
+#(.)(.*) .*?\1/\1#\2 
.*# .*$/1
[^1]+/0

সরাসরি নমুনা.

টাস্ক 10, পাইথ, 46 বাইট

jb(j*d2m+\ *\_6Qjdm"|      |"Qj\~m" ()--() "Q)

সরাসরি নমুনা.


@ ডেনিস উফ! সংশোধন করা হয়েছে!
kirbyfan64sos

1
ঠিক আছে, আমি অচেনা জানি না, তবে আমি নিশ্চিত যে আপনার !includeএস এর একটির দরকার নেই । কোনটি যদিও সম্পূর্ণরূপে নিশ্চিত নয়।
ডেনিস

@ ডেনিস প্রথম অন্তর্ভুক্ত stdio.h, দ্বিতীয় হয় time.h। আমার দুটোই দরকার
kirbyfan64sos

uncসি কোডটি সংকলন করতে কী ব্যবহার করে? জিসিসি ছাড়াই ঠিক কাজ করবে stdio.h। সম্পর্কে নিশ্চিত না time.h
ডেনিস

@ ডেনিস আনকের কাছে একটি সেট সংকলক নেই। এটি কেবল সি কোড আউটপুট করে; আমি নিজেই এটি সংকলন করতে হবে। যাইহোক, এটি বোঝা যায় না; আমি পরে এটি পরীক্ষা করে দেখুন।
kirbyfan64sos

8

টাস্ক 1, এপিএল, 7 বাইট

+/3*⍨⍳⎕

আপনি এনজিএন / এপিএল ব্যবহার করে অনলাইনে চেষ্টা করতে পারেন , যদিও এটি কোনও এপিএল বাস্তবায়নের সাথে কাজ করবে যা 0 সূচক মূলতে ডিফল্ট হয়।

পাওয়ার অপারেটরকে ( ) আর্গুমেন্ট ⍳⎕পরিবর্তন করে ( ) -1 ইনপুট (1 ) থেকে প্রতিটি পূর্ণসংখ্যার কিউব করে তোলে । ফলাফলযুক্ত ভেক্টরকে যোগফল ( ) যোগ করে হ্রাস করা হয় এবং একটি স্কেলার ফিরিয়ে দেওয়া হয়।*+/


টাস্ক 2, জুলিয়া, 42 বাইট

n->(isprime(n)&&int(log2(n+1))==log2(n+1))

এটি একটি বেনামি ফাংশন তৈরি করে যা ইনপুট হিসাবে পূর্ণসংখ্যার হিসাবে গ্রহণ করে এবং একটি বুলিয়ান দেয়। এটি কল করার জন্য, এটির একটি নাম দিন f=n->...

প্রথমে আমরা জুলিয়ার অন্তর্নির্মিত ফাংশনটি প্রাইম isprimeকিনা তা পরীক্ষা করতে ব্যবহার করি n। যদি তা হয় তবে আমরা পরীক্ষা করে log2(n+1)দেখি যে এটি একটি পূর্ণসংখ্যা। যদি তাই হয়, nহিসাবে লিখিত হতে পারে 2^k-1কিছু জন্য k, এবং এইভাবে nএকটি Mersenne মৌলিক নয়।


কার্য 3, এলআই , 19 বাইট

{f:x[<x][~.0.5*#x]}

এটি এমন একটি মোনাড তৈরি করে fযা ইনপুট ভেক্টরের মধ্যম ফিরিয়ে দেয়।

অবহেলিত + ব্যাখ্যা:

{f:         // Define a function f
 x[<x]      // Sort the input vector
 [          // Select the element at index...
 ~.0.5*#x   // ceiling of 0.5 * length(input)
]}

উদাহরণ:

    f 1 2 3 4
2
    f ?.!20   // Apply f to 20 random integers in 1..20
4

টাস্ক 4, অক্টেভ, 39 বাইট

@(n,x=2863311530)dec2bin(bitxor(n+x,x))

এটি এমন একটি ফাংশন হ্যান্ডেল তৈরি করে যা কোনও পূর্ণসংখ্যাকে ইনপুট হিসাবে গ্রহণ করে এবং সম্পর্কিত নেগাবাইনারি স্ট্রিং প্রদান করে। এটিকে কল করতে, এটির একটি নাম দিন, উদাহরণস্বরূপ f=@...এবং সাথে চালান feval(f, <input>)

আপনি এটি অনলাইনে চেষ্টা করতে পারেন ।


টাস্ক 5, সিজেম, 47 বাইট

"pneumonoultramicroscopicsilicovolcanoconiosis"

স্ট্রিংটি কেবল STDOUT এ মুদ্রিত হয়। আপনি যদি তেমন ঝোঁক বোধ করেন তবে অনলাইনে চেষ্টা করে দেখতে পারেন।


কার্য 6, উইন্ডোজ ব্যাচ, 46 বাইট

if "%date:~4,5%"=="01/01" echo Happy New Year!

পরিবর্তনশীল %date%আকারে বর্তমান তারিখ রয়েছে Thu 06/25/2015। আমরা প্রথম 4 অক্ষর কুঁদন পর দৈর্ঘ্য 5 সাবস্ট্রিং বুঝিয়ে মাস এবং দিন নির্বাচন করতে পারেন: %date:~4,5%। সেখান থেকে আমরা খতিয়ে দেখি এটি 1 ই জানুয়ারী কিনা এবং শুভ নববর্ষ যদি হয় তা বলি।


টাস্ক 7, পাইথ, 26 বাইট

=Gr13312 19895FNU64pC.(.SG

প্রথমে আমরা G19834 সহ অন্তর্ভুক্ত 13312 পরিসীমা নির্ধারণ করি । তারপরে আমরা times৪ বার লুপ করি এবং প্রতিটি পুনরাবৃত্তিতে আমরা G( .SG) পরিবর্তিত হই , শেষ উপাদানটি ( .() সরিয়ে ফেরা করি এবং এর অক্ষর উপস্থাপনা ( pC) মুদ্রণ করি ।

আপনি এটি অনলাইনে চেষ্টা করতে পারেন ।


টাস্ক 8, রুবি, 36 বাইট

def f(a,b)!b.tr("^"+a,"")[a].nil?end

এটি এমন একটি ফাংশন সংজ্ঞায়িত করে fযা দুটি স্ট্রিং গ্রহণ করে aএবং তার মধ্যে স্ট্রিংটি bকোথায় aপাওয়া যায় b

অক্ষরের ব্যতীত সমস্ত কিছু ব্যবহার aথেকে সরানো হয় এবং ফলাফলটি ঠিক ব্যবহার করে কিনা তা আমরা যাচাই করি । এই ফিরে আসবে যদি পংক্তিটি পাওয়া না গেলে, তাই আমরা ব্যবহার করে একটি বুলিয়ান মান পেতে পারেন সঙ্গে ।b.tr()a[]nil!.nil?


টাস্ক 9, আর, 16 বাইট

function(x,n)n*x

এটি একটি নামবিহীন ফাংশন অবজেক্ট তৈরি করে যা কোনও ধরণের অ্যারে বা ম্যাট্রিক্স xএবং একটি পূর্ণসংখ্যা গ্রহণ করে nএবং এর প্রতিটি উপাদানকে গুণ xকরে n। আপনি যদি চান তবে অনলাইনে চেষ্টা করে দেখতে পারেন ।


টাস্ক 10, পাইথন 3, 92 বাইট

n=int(input())
l="\n"
w=" ()--() "
print(" ______  "*n+l+"|      | "*n+l+(w+"~")*(n-1)+w)

অনেকটাই অকপট. আপনি এটি অনলাইনে চেষ্টা করতে পারেন ।


উচ্চতর পরিসরে তিনটি ইউনিকোড অক্ষর হওয়ায় এপিএল উত্তরটি 7 টি বাইট নয়।
টম

6
@ টম: প্রতিটি উত্তর সর্বাধিক সুবিধাজনক এনকোডিং চয়ন করতে পারে। ইন APL কোড পৃষ্ঠা , একটি অক্ষর এক বাইট।
ডেনিস

আপনি যদি এতো প্রবণতা বোধ করেন তবে অনলাইনে চেষ্টা করে দেখতে পারেন :
লুইস মেন্ডো

7

কার্য 1,> <>, 10 + 3 = 13 বাইট

::*-:*4,n;

পতাকাটি ব্যবহার করে অফিশিয়াল পাইথন ইন্টারপ্রেটার ব্যবহার করে এটি চালান -v(3 বাইট ব্যয়ে) এটি পরিমাণটি স্কোয়ার করে (n - n*n)এবং ভাগ করে দেয় 4, অবশ্যই কোনটি স্কোয়ারিং (n*n - n)এবং বিভাজকের সমান 4

টাস্ক 2, জিএপি, 63 62 বাইট

b:=function(m)return[2]=AsSet(Factors(m+1))and IsPrime(m);end;

(চারপাশে অন্যভাবে সমতা রচনা করে একটি স্থান সংরক্ষণ করেছেন))

কার্য 3, আর, 43 39 বাইট

f=function(v)sort(v,d=T)[length(v)%/%2]

সুন্দর উন্নতির জন্য প্ল্যানাপাসকে ধন্যবাদ!

কার্য 4, পিট, 155 135 115 5 * 19 = 95 কোডেল els

এখানে চিত্র বর্ণনা লিখুন

টেস্ট ব্যবহার এই অনলাইন অনুবাদক codel আকার 13. সঙ্গে, অথবা আপনার পছন্দের অনুবাদক ব্যবহার করেন - আমাকে যদি আপনি এক আপনার মত আছে যাক!

ইনপুটটির 0জন্য খালি স্ট্রিংয়ের পরিবর্তে এটিকে আউটপুট তৈরি 0করা অসুবিধাজনক ছিল। আমি এই কেসটির যত্ন নিতে শুরুতে একটি যদি-তারপর ব্যবহার করেছি; ননজারো ক্ষেত্রে অঙ্কগুলি গণনা করার জন্য কিছুক্ষণের জন্য লুপ এবং শেষ অবধি স্ট্যাক থেকে অঙ্কগুলি আউটপুট দেওয়ার জন্য অন্য একটি লুপ while

কিছু খুব সহায়ক মন্তব্যের জন্য Sp3000 কে অনেক ধন্যবাদ, যা আমাকে কিছু কোডেল সংরক্ষণ করতে সহায়তা করেছে!

টাস্ক 5, লুয়া, 52 বাইট

print"pneumonoultramicroscopicsilicovolcanoconiosis"

আপনি এটি এখানে চেষ্টা করতে পারেন ।

টাস্ক 6, ল্যাটেক্স, 157 139 136 127 128 বাইট

\documentclass{book}\begin{document}\count1=\day\multiply\count1 by\month
\ifcase\count1\or Happy New Year!\else~\fi\end{document}

যদি দিন এবং মাসের পণ্য হয় 1তবে বার্তাটি মুদ্রণ করুন; অন্যথায়, কিছুই না। (নববর্ষের দিনটি এই নকশার জন্য বিশেষভাবে সুবিধাজনক: যে ফলাফলটি আমরা সন্ধান করছি 1তা আমাদের কেবল একটি orবিবৃতি প্রয়োজন The norবিবৃতিটি মানটির জন্য আচরণ নির্দিষ্ট করে specif n)

দ্রষ্টব্য: আমার পূর্ববর্তী সংস্করণটি লাইনের রিটার্ন অনুপস্থিত যা একটি ভুল ছিল। (আমি এই ফাংশনটি পরীক্ষা করার চেষ্টা করেছি, তবে এটি সঠিকভাবে পরীক্ষা করতে কিছুক্ষণ সময় নিতে পারে ...)

আমার আসল সংস্করণটি calcপ্যাকেজটি ব্যবহার করেছে , যা আমার বর্তমান সংস্করণের চেয়ে অনেক বেশি সুবিধাজনক ছিল। "বাস্তবজীবনের" জন্য কিছু মনে রাখবেন!

টাস্ক 7, রুবি, 62 বাইট

for r in Array(13312..19893).sample(64)
puts [r].pack('U*')end

কার্য 8, জাভাস্ক্রিপ্ট, 78 বাইট

h=function(l,m){u=1+m.indexOf(l[0]);return(!l||u&&h(l.substr(1),m.substr(u)))}

পুনরাবৃত্ত সমাধান, lএকটি সাবস্ট্রিং কিনা তা পরীক্ষা করে m। যদি lখালি থাকে, তবে !lফলাফলগুলি trueএবং ফাংশনটি সমাপ্ত হয়। (এই ক্ষেত্রে, l[0]সংজ্ঞায়িত, তবে জাভাস্ক্রিপ্ট এর সাথে ঠিক আছে)) অন্যথায়, এটি প্রথম উদাহরণটির l[0]সন্ধান করে m। যদি এটির সন্ধান না করে তবে m.indexOf(l[0])ফলাফল -1এবং এর ফলে uফলাফল আসে 0এবং ফাংশনটি সমাপ্ত হয়।

অন্যথায়, এটি প্রথম প্রবেশ lএবং প্রথম uএন্ট্রিগুলি বন্ধ করে দেয় mএবং চেক করে চালিয়ে যায়।

টাস্ক 9, পাইথন, 72 60 বাইট

def i(a,n):
 try:return[i(c,n)for c in a]
 except:return n*a

"সর্বনিম্ন স্তরে" ড্রিল করে, যেখানে aআর কোনও তালিকা নেই, কেবল একটি পূর্ণসংখ্যা, তারপরে গুণটি সম্পন্ন করে।

আমাকে 12 বাইট বাঁচানোর জন্য ডেনিসকে অনেক ধন্যবাদ!

টাস্ক 10, গ্রোভি, 81 বাইট

def j(n){(' ------  '*n+'\n'+'|      | '*n+'\n'+' ()--() ~'*n).substring(0,27*n)}

এখানে চেষ্টা করুন । আমি মূলত .join()স্ট্রিংগুলির জন্য পাইথনের পদ্ধতির মতো কিছু বাস্তবায়নের চেষ্টা করেছি , যা একটি নির্দিষ্ট "লিঙ্কিং স্ট্রিং" (ট্রেনের গাড়ির সংযোগের মতো) দিয়ে স্ট্রিংগুলিকে একসাথে রাখে। তবে সেভের চেয়ে অনেক বেশি খরচ হয়েছে।

আমি আশা করি যে এই বিভিন্ন ভাষায় গ্রহণযোগ্য উত্তরগুলির জন্য আমি কোনও সম্মেলনটি পূর্বে দৌড়ে নিই, তবে দয়া করে আমার কাছে থাকলে আমাকে জানান।

দুর্দান্ত চ্যালেঞ্জের জন্য ডেনিসকে ধন্যবাদ!


except:return n*aটাস্ক ৯ এর জন্য কয়েকটি বাইট সংরক্ষণ করে task টাস্ক ১ এর জন্য, আমি -vপতাকাটিকে একটি বাইট হিসাবে গণনা করব ।
ডেনিস

@ ডেনিস এই মেটা পোস্টটি দেখুন । যদিও, এই মেটা পোস্টের মাধ্যমে আপনি সম্ভবত -vপতাকাটি প্রতিস্থাপন করতে পারেন i(যদিও আমি মনে করি এটি সহজ হবে পরীক্ষার জন্য উভয় সংস্করণ উল্লেখ করা থাকলে)।
Sp3000

@ ডেনিস, আপনার স্মার্ট উন্নতির জন্য অনেক ধন্যবাদ!
mathmandan

1
3 বাইট উপরে মেটা পোস্ট দ্বারা সঠিক হয় (স্পেস -,, v)। আমি কেবল বোঝাতে চাইছি যে iনির্দেশের মাধ্যমে আপনার কাছে কোড পয়েন্ট হিসাবে ইনপুট নেওয়ার বিকল্প রয়েছে ।
Sp3000

1
বিটিডব্লিউ, # 4 এর জন্য, নেতিবাচক মডুলোটি এতটা অদ্ভুত নয় - এটি কেবল ভাষা থেকে ভিন্ন ভাষায় পরিবর্তিত হয় (যেমন জাভা স্মৃতি থেকে তা করে) পুরো স্ট্যাক আউটপুট করার একটি উপায় হতে পারে স্ট্যাকের নীচে এমন কিছু রাখা যা আপনি জানেন যা আউটপুটটিতে থাকবে না, এবং মুদ্রণ অক্ষরগুলি রাখা যখন এটি বিশেষ চর নয়। এছাড়াও, পাইটক্রিটার রয়েছে
Sp3000

6

টাস্ক 1, পাইথ, 5 বাইট

s^R3Q

স্টিডিন থেকে নম্বর নেয়। অকেজো দেখানোর জন্য @ জাকুবকে ধন্যবাদ U

টাস্ক 6, জাভাস্ক্রিপ্ট, 56 বাইট

if(Date().slice(4,10)=="Jan 01")alert("Happy New Year!")

টাস্ক 7, সিজেম, 16 বাইট

6581,mr64<'㐀f+

পরিসীমা, শ্যাফেলগুলি, প্রথমে 64৪ টি বাছাই করে এবং মান মানচিত্রের শুরু মান এবং চরিত্রে রূপান্তরিত করে rates 14 অক্ষর, 16 বাইট।

টাস্ক 8, অক্টোবায়, 23 বাইট

@(x,y)intersect(x,y)==x

বেনামে ফাংশন সংজ্ঞায়িত করে।

টাস্ক 5, পিএইচপি, 45 বাইট

pneumonoultramicroscopicsilicovolcanoconiosis

কোনও সংকোচনের দরকার নেই, কেবল প্রিন্ট করে।

টাস্ক 9, এপিএল 1 বাইট

 ×

কে উত্তর হিসাবে একই।


@ ডেনিস আমি এটিকেও জানি না - আমি কেবল কুঁচকিয়েছি এবং এই উত্তরটি পরীক্ষা না করে একসাথে রেখেছি :) আমি এখন একটি এমুলেটর পরীক্ষা করার চেষ্টা করব।
মালতীসেন

@ ডেনিস ওহ আপনি ঠিক বলেছেন, এটি নীচে নেমে মধ্যম 2 এর গড় গড়।
মাল্টেসেন

1
আপনি কি সেই জায়গাটির সাথে কি করছেন .slice(4, 10)?
লিজিয়নম্যামাল978

@ ডেনিস derrrp দুঃখিত।
মাল্টেসেন

1
এখানে কেবলমাত্র এক মাসের সংক্ষেপণ রয়েছে যা "এ" দিয়ে শেষ হয়, তাই আপনি পরীক্ষার সময় জে ছাড়তে পারেন। (এটি করাও তাত্পর্যপূর্ণভাবে ছোট হবে /an 01/.test(Date())))
নিনজাবার্মনকি

6

টাস্ক 1, আর, 21 19 বাইট

sum((1:scan()-1)^3)

মোটামুটি সহজবোধ্য. এসটিডিএন থেকে ইনপুট।

টাস্ক 2, পার্ল, 40 66 বাইট

$a=log(<>+1)/log(2)+1;print$a==int($a)&&(1x$a)!~/^1?$|^(11+?)\1+$/

একটি প্রাইম চেকার যুক্ত করা হয়েছে (প্রাইম নাম্বার চেকার রেগেক্স অ্যাগিগেলস)

কার্য 3, PARI / GP, 24 22 বাইট by

m(v)=vecsort(v)[#v\2];

আমি প্রথম এই স্পর্শ। এর আরও কিছুটা শিখতে হতে পারে।

টাস্ক 4, টি-এসকিউএল, 235 বাইট

CREATE FUNCTION D(@ INT)RETURNS TABLE RETURN WITH R AS(SELECT @/-2+(IIF(@%-2<0,1,0))D,CAST(ABS(@%-2) AS VARCHAR(MAX))M UNION ALL SELECT D/-2+(IIF(D%-2<0,1,0)),CAST(ABS(D%-2)AS VARCHAR(MAX))+M FROM R WHERE D<>0)SELECT M FROM R WHERE D=0

রিকার্সিভ সিটিই ব্যবহার করে ইনলাইন টেবিলের কাজ। খুব বড়, তবে মজাদার।

ব্যবহার করা

SELECT * FROM D(18)
M
------
10110

টাস্ক 5, জিএপি, 48 বাইট

"pneumonoultramicroscopicsilicovolcanoconiosis";

টাস্ক 6, এক্সেল, 51 48 বাইট

=IF(TEXT(NOW(),"md")="11","Happy New Year!","")

3 বাইটের জন্য @ বন্ডকে ধন্যবাদ

টাস্ক 7, পাইথন 2.6, 98 93 85 বাইট

from random import*
l=range(13312,19893)
shuffle(l)
print ''.join(map(unichr,l[:64]))

এই প্রথম আমি পাইথনে কিছু করার চেষ্টা করেছি, তাই আরও ভাল হতে পারে। দুর্দান্ত টিপসের জন্য ধন্যবাদ @ ডেনিস এবং @ জ্যাকব

টাস্ক 8, টিসিএল, 57 বাইট

proc m {a b} {string match [regsub -all (.) $a *\\1]* $b}

লজ্জাজনক যে হোয়াইটস্পেস অপসারণ এটিকে হত্যা করে

টাস্ক 9, পাইক, 53 বাইট

mixed m(array(array(int))a,int n){return(a[*])[*]*n;}

একটি ফাংশন যা গুণিত অ্যারে প্রদান করে

টাস্ক 10, পাওয়ারশেল, 88 বাইট

Function t($n){Foreach($s in "  ______ "," |      |","~ ()--() "){($s*$n).Substring(1)}}

একটি পাওয়ারশেল ফাংশন। আমি মনে করি আমি এটি কিছুটা ছোট করতে পারি, তবে এখানে এটি এই মুহূর্তে।

এবং শেষ পর্যন্ত :)


আপনি টাস্ক 6 4 বাইট সংরক্ষণ করতে পারেন: =IF(TEXT(NOW(),"md")="11","Happy New Year!","")
বন্ড

@ বন্ড এর জন্য ধন্যবাদ
মিকিটি

আমি পাইথনকেও জানি না, তবে l[:63]কাজ করা উচিত এবং (13312,19894)হেক্সাডেসিমাল ধ্রুবকগুলির চেয়ে কম (এবং যোগফল) is
ডেনিস

@ ডেনিস ধন্যবাদ এটি চেষ্টা করে দেখুন এবং পরিবর্তন করবেন
মিকিটি

@ ডেনিস আমি 19893 কে উচ্চ মূল্য হিসাবে বেছে নিয়েছিলাম কারণ range(19892,0x4DB5+1)আমাকে দিয়েছে[19892, 19893]
মিকিটি

4

টাস্ক 2, জে, 10 বাইট

1&p:*/@,#:

বুলিয়ান 0 বা 1 প্রস্তুত করে যদি ইনপুটটি তার বাইনারি উপস্থাপনার জন্য প্রধান হয়, তবে পণ্যটি গ্রহণ করে। জে এর বর্তমান সংস্করণে কাজ করে।


টাস্ক 5, এইচটিএমএল, 45 বাইট

pneumonoultramicroscopicsilicovolcanoconiosis

টাস্ক 6, মাছ, 53 বাইট

test 0101 = (date '+%d%m');and echo 'Happy New Year!'

বাশ উত্তরের উপর ভিত্তি করে।


টাস্ক 8, এপিএল, 12 বাইট

{(⍳⍴⍺)≡⍋⍵⍳⍺}

এটি একটি ফাংশন এক্সপ্রেশন। এটি বৃহত্তর স্ট্রিংয়ে পাওয়া অক্ষরের ক্রমের সাথে তুলনা করে যদি সেগুলি সাজানো হয় তবে কী আশা করা যায়।


টাস্ক 9, কে, 1 বাইট

*

যে কোনও সংস্করণে কাজ করা উচিত। পাটিগণিত ক্রিয়াকলাপগুলি অ্যারেগুলিতে বিতরণ করে।


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

2
8 টাস্কের জন্য আপনার কোডটি কাজ করে না abc caxbxc
জিমি 23013

4

টাস্ক 1, রুবি, 40 বাইট

def f n;(0..n-1).inject{|a,b|a+b**3};end

প্রথমবার রুবিতে কোনও কিছু লিখছেন। রুবি ১.৮..7 দিয়ে পরীক্ষা করা হয়েছে।


টাস্ক 2, আর, 50 বাইট

n=scan();p=log(n+1,2);!p%%1&sum(!n%%2:n,!p%%2:p)<3

গণনা p, এটি একটি পূর্ণসংখ্যা কিনা তা পরীক্ষা করুন এবং n এবং p প্রাইম হয় কিনা check


টাস্ক 5, পোস্টগ্র্যাসকিউএল, 54 বাইট

SELECT'pneumonoultramicroscopicsilicovolcanoconiosis';

টাস্ক 6, লুয়া, 55 বাইট

print(os.date("%j")=="001" and "Happy New Year!" or "")

টাস্ক 8, পাইথন, 65 বাইট

import re;f=lambda s,S:bool(re.search(re.sub(r'(.)',r'\1.*',s),S))

ব্যবহার:

>>> import re;f=lambda s,S:bool(re.search(re.sub(r'(.)',r'\1.*',s),S))
>>> f('abc','axbxcx')
True
>>> f('bac','axbxcx')
False
>>> f('abc','axdxcx')
False
>>> f('abc','abc')
True

টাস্ক 10, জুলিয়া, 73 বাইট

f(n)=print(" ______  "^n*"\n"*"|      | "^n*"\n"*(" ()--() ~"^n)[1:9n-1])

@ অ্যালেক্সা ধন্যবাদ। এই কোডটি ছোট করার জন্য সহায়তার জন্য! আউটপুট উদাহরণ:

julia> f(0)




julia> f(1)
 ______  
|      | 
 ()--() 

julia> f(2)
 ______   ______  
|      | |      | 
 ()--() ~ ()--() 

julia> f(3)
 ______   ______   ______  
|      | |      | |      | 
 ()--() ~ ()--() ~ ()--() 

টাস্ক 2 এর জন্য আপনি ব্যবহার করতে পারেনlog2
মিকিটি

আমি তোমার জুলিয়া কাজের 10. জন্য বর্তমানে 86 বাইট গণনা তবে আপনি যদি ল্যামডা ফাংশন ব্যবহার করে 81 থেকে এটি পেতে পারেন (যেমন প্রতিস্থাপন f(n)=সঙ্গে n->) এবং পরিবর্তন 1:(9*n-1)কেবল থেকে 1:9n-1
অ্যালেক্স এ

ঠিক আমি \nঅভ্যাস অনুসারে 1 বাইট হিসাবে গণনা করেছি ।
প্ল্যানাপাস

পরিবর্তে (" "*"_"^6*" ")^n, আপনি " ______ "^n( | |অংশ হিসাবে একইভাবে ) ব্যবহার করতে পারেন । 70 বাইট: n->print(" ______ "^n*"\n"*"| | "^n*"\n"*(" ()--() ~"^n)[1:9n-1])। (বারগুলির মধ্যে শ্বেত স্থান যদিও এখানে প্রদর্শিত হচ্ছে না)
অ্যালেক্স এ।

3

টাস্ক 1, হাস্কেল, 17 বাইট

f x=(x*(x-1)/2)^2

টাস্ক 2, ম্যাথমেটিকা, 30 বাইট

PrimeQ@#&&Mod[Log2[#+1],1]==0&

কার্য 3, জাভাস্ক্রিপ্ট, 46 বাইট

function(x){return x.sort()[0|(x.length-1)/2]}

টাস্ক 5, ম্যাটল্যাব, 47 বাইট

'pneumonoultramicroscopicsilicovolcanoconiosis'

টাস্ক 6, রুবি, 56 বাইট

print Time.now.to_s[5,5]=="01-01"?"Happy New Year!":""

টাস্ক,, পাইথন, ১০6 বাইট (ইন্ডেন্টিং \t)

from random import*
s=''
while len(s)<64:
    c=unichr(randint(0x3400,0x4DB5))
    if c not in s:
        s+=c
print s

মনে রাখবেন যে এখানে সরলরূপে ব্যবহার এখানে কাজ list(set(s))করে না কারণ এটি তালিকা সদস্যদের পুনরায় অর্ডারের কারণে সমস্ত সম্ভাব্য স্ট্রিংয়ের স্থানে অ-অভিন্ন সম্ভাব্যতা বিতরণ ঘটাবে।



@ ডেনিস পুনরায় টাস্ক:: পয়েন্ট ১ এ একমত, যখনই আমার সুযোগ হবে ঠিক হয়ে যাবে। রিপাবলিক সম্পর্কিত, এর বিপরীতে কি কোনও বিধি আছে?
সরান

ভাল, সব এখন ঠিক।
সরান

1 এর জন্য, সম্ভবত আপনি কি করতে পারেন (x*x-x)^2/4?
xnor

বিরক্তিকরভাবে, জাভাস্ক্রিপ্টের ডিফল্ট বাছাই ফাংশনটি তুলনা করার সময় সংখ্যাকে স্ট্রিংয়ে রূপান্তরিত করে, সুতরাং এটি কেবল প্রতিটি সংখ্যার প্রথম অঙ্কের সাথে তুলনা করে। অতএব, এটি [2,3,10] এ ব্যর্থ হয়।
নিনজা বিয়ারমোনকি

1
7-এ, আপনি if c not in s:s+=cকয়েকটি অক্ষর সংরক্ষণ করে বাস্তবে সমস্ত কিছু এক লাইনে রাখতে পারেন । এছাড়াও এর 0x3400সাথে প্রতিস্থাপন করা যেতে পারে 13312যা একটি চরিত্রের চেয়ে ছোট (এবং একইভাবে 0x4db5 এর জন্য)। শেষ অবধি, এটি অক্ষরের সংখ্যা পরিবর্তন করবে না, তবে আপনি যদি ট্যাব ইন্ডেন্টেশন পছন্দ না করেন তবে পরিবর্তে আপনি একটি একক স্পেসে ইন্ডেন্ট করতে পারবেন।
ম্যাথমন্ডন

3

টাস্ক 1, হাস্কেল, 15 বাইট

f n=(n*n-n)^2/4

টাস্ক 2, জুলিয়া, 28 বাইট

n->(isprime(n)&&ispow2(n+1))

টাস্ক 3, অষ্টাভে, 30 বাইট

@(x)sort(x)(ceil(length(x)/2))

টাস্ক 5, ইয়াকাস , 45 বাইট

pneumonoultramicroscopicsilicovolcanoconiosis

কার্য 6, গণিত, 46 বাইট

If[DateList[][[{2,3}]]=={1,1},Happy New Year!]

টাস্ক 9, প্যারি / জিপি, 10 বাইট

(n,a)->n*a

3

কার্য 3, ক্লিপ, 13 বাইট

gHk[tivt}l`sk

অন্য সংস্করণ:

gHkci`v``l`sk

`অত্যধিক খরচ করলো।

টাস্ক 4, কেএসএফটিগল্ফ, 16 বাইট

g:]2%:)-2/:;xgpc

দোভাষী এখানে আছেন। আমি নিশ্চিত না যে আমি কী করছি ... এটি নেতিবাচক মুদ্রণ করবে এবং তার পরে ক্রাশ হবে।

দোভাষীর মধ্যে একটি বাগ রয়েছে। অথবা আমি বিল্ট-ইন বেস রূপান্তর ব্যবহার করে এটি 12 বাইটে গল্ফ করতে সক্ষম হব (তবে এটি কেবল ইতিবাচক পূর্ণসংখ্যার সাথে কাজ করে):

2*02-ba'Z=;x

আসল সিজেএম সংস্করণ:

qi{_1&_@^-2/}h;]W%

আমি পাইপ, অস্ট্রিচ, ক্লিপ এবং বার্লস্কে চেষ্টা করেছিলাম বিল্ট-ইন নেবাগাইনারি সহ কোনও এসোলাং রয়েছে কিনা তা খুঁজে বের করার জন্য। তাদের কেউই কাজ করেননি। কেএসএফটিগল্ফ ব্যবহৃত হয়েছিল numpy, এটি বেসটি নেতিবাচক হলে কিছুটা উদ্ভট আচরণের মনে হয়েছিল। তবে এটিকে ইতিবাচক সংখ্যা দিয়ে কাজ করা সহজ নয়।

টাস্ক 7, সিজেম, 15 বাইট

'䶶,DAm<>mr64<

টাস্ক 8, এপিএল, 21 বাইট

∨/↑{⍺∧0,2∧/∨\⍵}/⌽⍞=↓⍞

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


লল @ "আমি নিশ্চিত যে আমি কী করছি"
অ্যালেক্স এ।

এ সম্পর্কে প্রশ্নটি খুব পরিষ্কার ছিল না, তবে আমার উদ্দেশ্যটি ছিল 4 টাস্কের কোডটি ইনপুট 0 পরিচালনা করতে হবে built বেস-ইন রূপান্তর ছাড়াই সংস্করণটি ঠিক ঠিক এটি পরিচালনা করছে।
ডেনিস

@ ডেনিস ফিক্সড তবে যদি আমি অবিচ্ছিন্ন ব্যবহার করতে পছন্দ করি?
jimmy23013

কিছু স্থির অফসেট বা 2 এর পরিপূরক ব্যবহার করা কাজ করতে পারে। আমি একটি অ্যানারি নম্বর অনুসরণ করে একটি চিহ্নও গ্রহণ করব।
ডেনিস

3

টাস্ক 2, x86 মাস্ম, 40 বাইট

C7 45 FC FF FF 07 00 B9 
00 00 00 00 B8 02 00 00 
00 D3 E0 3B 45 FC 7D 03 
41 EB F1 B8 02 00 00 00
D3 E0 48 3B 45 FC 75 13

(শিরোনাম, বার্তাবক্স, ইত্যাদি বাদে - কেবলমাত্র প্রাসঙ্গিক বাইট)

include     \masm32\include\user32.inc  
includelib  \masm32\lib\user32.lib

.data
    ClassName   db "Mersenne Prime Found",0
.data?

.code
start proc
    LOCAL IsMersenne: DWORD
    mov IsMersenne, 524287 ; put number to test in this input
    mov ecx, 0
l00p:
    mov eax, 2
    shl eax, cl
    cmp eax, IsMersenne
    jge br3ak
    inc ecx
    jmp l00p
br3ak:
    mov eax,2                                                                                     
    shl eax, cl 
    dec eax
    cmp eax, IsMersenne                                                           
    jnz n0pr1me                                                              
    invoke MessageBox, 0, addr ClassName, addr ClassName, 40h
n0pr1me:
    ret
start endp
end start

কার্য 3, সি, 136 বাইট

#include<stdio.h> 
int C(void*A,void*B){return(*(int*)A-*(int*)B);} 
main(){int S=4;int A[]={3,1,2,4};qsort(A,S,4,C);printf("%i",A[((S&1)?S:S-1)/2]);}

ব্যবহার করে সংকলন করুন gcc -o Prime main.c


টাস্ক 10, সি ++, 478 বাইট

#include<stdio.h>
#include<string.h> 
#include<stdlib.h>
void D(int Z){int L=9,i,X=0;const char*A=" ______  ";const char*B="|      | ";const char* C = " ()--() ~ ";char*P=(char*)malloc(27*Z+5);for(i=0;i<Z-1;i++){if(!i){memcpy(P,A,L);X+=L;}memcpy(&P[X],A,L);X+=L;if(i==Z-2){memcpy(&P[X],"\n",1);X++;}}for(i=0;i<Z;i++){memcpy(&P[X],B,L);X+=L;if(i==Z-1){memcpy(&P[X],"\n",1);X++;}}for(i=0;i<Z;i++){memcpy(&P[X],C,L);X+=L;if(i==Z-1)P[X-1]='\0';}printf("%s\n",P);free(P);}
main(){D(15);}

ব্যবহার করে সংকলন করুন g++ -o Trucks main.cpp

সি ও সি ++ ছোট করা যেতে পারে তবে এটি সংকলক ত্রুটি যুক্ত করবে। সঠিক নিয়মগুলি জানেন না তাই আমি কোড ডাব্লু / কোনও সংকলক ত্রুটি ছাড়ার চেষ্টা করেছি।


3
পিপিসিজিতে আপনাকে স্বাগতম! সংকলক সতর্কতাগুলি নিরাপদে উপেক্ষা করা যেতে পারে, যতক্ষণ সংকলক একটি ব্যবহারযোগ্য বাইনারি তৈরি করে।
ডেনিস

2
কোড গল্ফে, একটি সি সংকলক আপনাকে সতর্ক করবে যে সতর্কতা না দিয়ে আরও গল্ফ করা যেতে পারে ।
কমিনটার্ন

সতর্কবার্তা উপেক্ষা করুন - এবং বোধ করি, Er, বিনামূল্যে বেশি মেমোরি যেমন ফুটা করা হিসাবে আপনি চান, খুব। :-)
টবি স্পিড

3

টাস্ক 1, পাইথন, 35 বাইট

lambda x:sum(_**3for _ in range(x))

কার্য 3, সিজেম, 9 বাইট

q~$_,(2/=

টাস্ক 4, জাভাস্ক্রিপ্ট, 55 53 বাইট

function(n){s=0xAAAAAAAA;return((n+s)^s).toString(2)}

টাস্ক 5, পাইথ, 46 বাইট

"pneumonoultramicroscopicsilicovolcanoconiosis

টাস্ক 6, সি #, 65 বাইট

string c(){return DateTime.Now.DayOfYear<2?"Happy New Year!":"";}


2

টাস্ক 1, সিজাম, 7 বাইট

q~,:+_*

সম্পাদনা করুন: সবেমাত্র খেয়াল করা মার্টিন এটি আমার আগে পোস্ট করেছে। আমি অন্য কিছু চেষ্টা করব ...

কার্য 3, পাইথন, 30 বাইট

lambda l:sorted(l)[~-len(l)/2]

পাইথন 2।

টাস্ক 5, ///, 45 বাইট

pneumonoultramicroscopicsilicovolcanoconiosis

/// কোনও /অক্ষর ছাড়াই কিছু প্রতিধ্বনিত করবে ।

টাস্ক 7, পাইথ, 19 বাইট

s>64.SmC+13312d6582

কার্যক্রম. আমি যদি গণিতগুলিকে ছড়িয়ে দিই তবে দয়া করে আমাকে বলুন। এখানে চেষ্টা করুন

টাস্ক 9, অষ্টাভে, 9 বাইট

@(a,n)a*n

বেনামে ফাংশন হ্যান্ডেল। অক্টাভা স্বয়ংক্রিয়ভাবে ম্যাট্রিক্স * স্কেলার দিয়ে এটি করে।


টাস্ক 7 এর জন্য, এটি অনন্য হতে হবে।
মাল্টেসেন

হ্যাঁ, পাইথের ঝাঁকুনি আছে .Sএবং আপনি এর sপরিবর্তে উম ব্যবহার করতে পারেন jk
মালটিসেন

2

আমি তাদের সকলের চেষ্টা করার জন্য সময় পাইনি, তবে এখানে একটি শুরু

টাস্ক 1, ডিসি, 8 বাইট

d1+*d*4/

dcকনভেনশন অনুযায়ী স্ট্যাকের শীর্ষে ইনপুট এবং আউটপুট ।

টাস্ক 5, ইমাস লিস্প, 46 বাইট

'pneumonoultramicroscopicsilicovolcanoconiosis

নিয়মের অপব্যবহার:

grep 'pn.*v' /usr/*/*/brit*-large

সংক্ষিপ্ত আকার থেকে আনপ্যাক করে যে পরিচালনা করতে পারতাম সেরা তা পার্লে 55 ছিল:

unpack("H45",'uïFVóÙ¤¼g°0Æö<¥le°°')=~y/0-9bdf/i-v/r

(উপরের মুদ্রণযোগ্য অক্ষরগুলি এসই দ্বারা সজ্জিত হয়ে উঠেছে, তবে এটি আসলে আমার উত্তর নয়, আমি এটি ঠিক করছি না)

টাস্ক 6, এসকিউএল, 54 বাইট

SELECT IF(now()LIKE'%-01-0_%','Happy New Year!','Hi');

আমি জানুয়ারির প্রথম দশ দিন এই অভিবাদনের জন্য 'উপযুক্ত' দিন হিসাবে বিবেচনা করি তবে আপনি স্বাদে সামঞ্জস্য করতে পারেন। now() LIKEকনস্ট্রাক্ট দিন অফ বছর আহরণের চেয়ে খাটো কাজ DATE_FORMAT(now(),'%j')

টাস্ক 10, সেড, 58 বাইট

s/./ ()--() ~/g;s/.$//;h;y/()-~/___ /;p;g;y/ ()-~/|    /;G

আনারি ইনপুট।


strstrসাবস্ট্রিংয়ের জন্য সমুদ্র সৈকত, অনুচ্ছেদ নয়। আমি ভীত 5 কাজটি কলমোগোরভ-জটিলতা, তাই অভিধান থেকে শব্দটি আনা চালাক হতে পারে তবে এটি অনুমোদিত নয়।
ডেনিস

ধন্যবাদ। আমি পরেরটিটি ভুল বুঝেছি। আমি একটি বিকল্প কাজ 5 করব, তবে এটি খুব বিরক্তিকর।
টবি স্পিড

5 টাস্কের কয়েকটি আকর্ষণীয় সমাধান রয়েছে তবে এখন পর্যন্ত কেউই একটি সংক্ষিপ্ত পোস্ট করেনি।
ডেনিস

1

টাস্ক 5, মারিওগল্ফ , 50 বাইট

এটি এমন একটি ভাষা যা আমি কিছু সময়ের জন্য বিকাশ করেছি।

বর্তমান সংস্করণে এই চ্যালেঞ্জটি চালানোর জন্য যথেষ্ট কার্যকারিতা রয়েছে।

Y|<pneumonoultramicroscopicsilicovolcanoconiosis|O

আপনি এটি অনলাইনে চেষ্টা করে দেখতে পারেন http://htmlpreview.github.io/?https://raw.githubusercontent.com/ismael-miguel/mariogolf/master/js/testpage.html#c:Yype<pneumonoultramicroscopicsilicovolcanoconiosis/201O এ

বর্তমানে, উন্নয়ন বন্ধ এবং বাস্তবায়ন অসম্পূর্ণ।

সর্বশেষ প্রতিশ্রুতি ছিল 13 ই মার্চ 2015।

টাস্ক 6, পিএইচপি, 37 বাইট

এটি সত্যিই সহজ এবং মজাদার!

<?=date(jn)==11?'Happy New Year!':'';

কার্য 10, জাভাস্ক্রিপ্ট, 121 বাই

হ্যাঁ, এত গল্ফ হয় না ...

এটা কিন্তু কাজ করে!

console.log((' ______  '.repeat(i=prompt()))+'\n'+('|      | '.repeat(i))+'\n'+(' ()--() ~'.repeat(i).replace(/~$/,'')));

এটি চেষ্টা করুন:

"আউটপুট দিয়ে শুরু হওয়ার কারণে কোডটি স্ট্যাক স্নিপেটে ভাল প্রদর্শিত হবে না । এটির ক্ষতিপূরণ যোগ করার জন্য অ্যাডিশিয়োনাল স্পেস যুক্ত করা হয়েছিল।

আসল কোডটি কোনও সমস্যা ছাড়াই Chrome এর কনসোলে কার্যকর করা যেতে পারে এবং আউটপুটটি প্রত্যাশিত।


@ ডেনিস আপনাকে ধন্যবাদ! আমি টাস্কটি ভুলভাবে পাঠিয়েছি I'm আমি এখনও অন্যান্য সন্ধানগুলিতে কীভাবে অন্যান্য কাজগুলি বাস্তবায়ন করব তা সন্ধান করছি তবে আমার একটি খারাপ সময় কাটছে।
ইসমাইল মিগুয়েল

1
আপনি কি সম্পর্কে নিশ্চিত date(dM)? এখানে এটি "25 জুন" ফিরে আসে। (স্থানীয়ভাবে এন_ইউজে সেট করা হয়েছে) সম্ভবত "জে" এবং "এন" আরও ভাল পরিবেশন করবে, কারণ "ডি" এবং "এম" মানগুলি 0 প্যাড করে প্রস্থে 2
মানটওয়ার্ক

@ মান্যাটওয়ার্ক আপনি সঠিক। এটা আমার ভুল ছিল. যে আপনি দাগ জন্য।
ইসমাইল মিগুয়েল


1

টাস্ক 1, অক্টোবায়, 15 বাইট

@(n)(n^2-n)^2/4

সম্পাদনা: আমি ভেবেছিলাম আমি এটি যুক্ত করেছি তবে মনে হয় আমি সংরক্ষণ করতে ভুলে গেছি: এটি সত্যটি ব্যবহার করে sum(1^3+2^3+3^3+...+n^3) = sum(1+2+3+...+n)^2 = [n*(n+1)/2]^2

কার্য 3, জাভাস্ক্রিপ্ট, 24 বাইট

x=>x.sort()[x.length>>1]

1

ঠিক আছে, প্রথমে সহজ জিনিসগুলি সম্পন্ন করা যাক:

টাস্ক 5, এএসপি, 45 বাইট

pneumonoultramicroscopicsilicovolcanoconiosis

কার্য 6, জাভাস্ক্রিপ্ট, 46 বাইট

/an 01/.test(Date())&&alert("Happy New Year!")

1

টাস্ক 1, ভিবিএ, 126 বাইট

Function f(n As Integer)
    Dim i As Integer
    For i = 0 To n - 1
        f = f + i ^ 3
        Next i
End Function

আমি কীভাবে ভিবিএতে গল্ফ করব তার কোনও ক্লু পাইনি। আমি একটি জায়গাও টাইপ করি নি, ভিবিএ স্বয়ংক্রিয়ভাবে শ্বেত স্থান inোকায়। =f(5)এক্সেলের একটি কক্ষে 100 প্রদর্শিত হবে।

টাস্ক 2, অষ্টাভে, 32 বাইট

@(n)isprime(n)&~mod(log2(n+1),1)

টাস্ক 5, গল্ফস্ক্রিপ্ট, 47 বাইট

"pneumonoultramicroscopicsilicovolcanoconiosis"

টাস্ক 9, ম্যাটল্যাব, 9 বাইট

@(A,n)A*n

ঠিক আছে, এটি একটি শুরু ...

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