ক্র্যামিং দি গ্রামিং - বারো টাস্ক টুইট


42

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

এর অর্থ হ'ল সমস্ত কার্য সমাধান করার জন্য আপনার কাছে 140 বাইটের মূল্যমানের কোড রয়েছে, প্রতি টাস্কে গড় 11.67 বাইট। (হ্যাঁ, টুইটার অক্ষর গণনা করে তবে আপনার বস নির্দিষ্টভাবে বাইট বলেছিলেন by)

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

আপনি কতগুলি কাজ শেষ করতে পারেন?

চ্যালেঞ্জ

12 টি পর্যন্ত আলাদা আলাদা প্রোগ্রাম লিখুন যার প্রতিটি নীচে তালিকাভুক্ত 12 টি কাজের মধ্যে সঠিকভাবে সমাধান করে। এই প্রোগ্রামগুলির দৈর্ঘ্যের সমষ্টিগত যোগফল 140 বাইটের বেশি হবে না

বিকল্পভাবে, আপনি একক প্রোগ্রাম লিখতে পারেন 140 বাইটের বেশি দীর্ঘ নয় যা 1 থেকে 12 সাল পর্যন্ত পূর্ণসংখ্যার লাগে এবং (আদর্শভাবে) সংশ্লিষ্ট কাজটি সমাধান করতে এগিয়ে যায়, প্রয়োজনীয় হিসাবে আরও ইনপুট গ্রহণ করে। সমস্ত টাস্কের কাজ করার দরকার নেই, তবে কেবলমাত্র সেইগুলি যা আপনার স্কোরের দিকে গণনা করে। যে কাজগুলি কাজ করে না তাদের ত্রুটি বা অন্য কিছু করার অনুমতি দেওয়া হয়।

উভয় ক্ষেত্রেই "প্রোগ্রাম" আসলে একটি ফাংশন হতে পারে যা ইনপুটটিকে আর্গুমেন্ট হিসাবে গ্রহণ করে বা এর জন্য অনুরোধ করে এবং আউটপুট প্রিন্ট করে বা ফেরত দেয়। সুতরাং, উদাহরণস্বরূপ, আপনি একটি 140 বাইট ফাংশন যা দেখতে দেখতে f(taskNumber, taskInput)লিখতে পারেন , বা আপনি প্রতিটি টাস্কের জন্য পৃথক কোড স্নিপেট লিখতে পারেন, কিছু ফাংশন হিসাবে এবং কিছু সম্পূর্ণ-প্রোগ্রামযুক্ত প্রোগ্রাম হিসাবে।

অন্যান্য বিস্তারিত:

  • সমস্ত কোড অবশ্যই একই ভাষায় লেখা উচিত।

  • যথারীতি ইনপুটটি স্টিডিন, কমান্ড লাইন, একটি ফাংশন আর্গুমেন্ট বা আপনার ভাষার পক্ষে যা স্বাভাবিক। আউটপুট stdout বা আপনার ভাষার নিকটতম বিকল্পে মুদ্রিত হয়, বা একটি উপযুক্ত ধরণে ফিরে আসে।

  • যুক্তিসঙ্গত পরিমাণ ইনপুট ফর্ম্যাট করা ভাল; উদাহরণস্বরূপ স্ট্রিংগুলির কাছাকাছি বা \nপ্রকৃত নিউলাইনগুলির পরিবর্তে es

  • বহির্মুখী বিন্যাস বা হোয়াইটস্পেস না করে আউটপুটটি ঠিক কী বলা উচিত। ব্যতিক্রম হ'ল optionচ্ছিক একক ট্রেলিং নিউলাইন।

  • কেবলমাত্র একটি REPL পরিবেশে চলে এমন কোড কোনও প্রোগ্রাম বা ফাংশন গঠন করে না।

  • আপনি একাধিক কর্ম সমাধান করে এমন একাধিক প্রোগ্রাম লিখতে পারেন না। এটি হয় একটি প্রোগ্রাম যা (আদর্শভাবে) সমস্ত কাজগুলি সমাধান করে, বা (আদর্শভাবে) 12 টি প্রোগ্রাম যা প্রতিটি একক কার্যকে সমাধান করে।

  • আপনি যে লেখেননি বা কেবল কিছুটা সংশোধন করেছেন এমন কোনও টাস্ক সলিউশন পোস্ট করার জন্য মূল লেখকের প্রতিশ্রুতি না দিয়ে এবং আদর্শিকভাবে অনুমতিও পাওয়া যায় না। যদি আপনার উত্তরটি প্রাথমিকভাবে অন্যান্য সমস্ত উত্তর থেকে সংক্ষিপ্ত সমাধানগুলি রচনা করে তবে এটি একটি সম্প্রদায়ের উইকি হওয়া উচিত।

স্কোরিং

জমা দেওয়া যা সর্বাধিক কাজ সম্পূর্ণ করে তা হ'ল বিজয়ী। যদি দুটি সাবমিশন টাই হয় তবে সবচেয়ে কম বাইটের সাথে একটি জিততে পারে। যদি বাইট গণনাগুলি আবদ্ধ থাকে তবে পূর্বের জমাটি জিতে যায়। সম্প্রদায়ের উইকি উত্তরগুলিকে জয়ের অনুমতি নেই।

আপনি কোন কাজগুলি সমাধান করেছেন তা নিশ্চিত করে জানান, কেবল কয়টি নয়!

নন-গল্ফারদের জন্য প্রতিবন্ধকতা:

এটি সম্ভবত যে এই চ্যালেঞ্জটি গল্ফিং ভাষার দ্বারা প্রভাবিত হবে । অনেকগুলি ভাষায় 140 বাইটের মধ্যে একটি বা দুটি কাজও সমাধান করতে সমস্যা হতে পারে। সুতরাং আপনি একটি অপ্রতিযোগিতামূলক উত্তর জমা দিতে পারেন যেখানে সীমাটি 3 টি টুইট, অর্থাৎ 420 বাইট tes অন্যান্য সমস্ত বিধি একই থাকে।

কাজ

টাস্ক 1 - তিনটি নম্বর একটি ত্রিভুজ গঠন করতে পারে?

তিন ধনাত্মক পূর্ণসংখ্যা এবং আউটপুট একটি নিন truthy / falsy মান থাকুক বা না থাকুক তিন ঐ লেন্থ সঙ্গে লাইন ইঙ্গিত একটি ত্রিভুজ গঠন করতে পারে । আপনি কোনও নির্দিষ্ট ক্রমে নম্বরগুলি ধরে নাও নিতে পারেন।

সত্যবাদী উদাহরণ (প্রতি লাইনে একটি):

20 82 63
1 1 1
2 3 4
1 2 2

মিথ্যা উদাহরণ:

6 4 10
171 5 4
1 1 2
1 2 3

কার্য 2 - এক মিলিয়ন থেকে নিকটতম

ঠিক dec দশমিক অঙ্ক (০-৯) এর স্ট্রিং দেওয়া, একটি মিলিয়ন হিসাবে যতটা সম্ভব কাছাকাছি একটি নম্বর পেতে তাদের পুনর্বিন্যস্ত করুন। অর্থাত্ abs(1000000 - rearrangedNumber)হ্রাস করা উচিত।

ফলাফল হিসাবে সংখ্যার মুদ্রণ করুন বা ফেরত দিন, স্ট্রিং নয় (সুতরাং আপনার ভাষার আদর্শ না হওয়াতে নেতৃস্থানীয় জিরো থাকা উচিত নয়)।

যেমন একটি ইনপুট 9034318ফলাফল 984331(এবং না 1033489) হওয়া উচিত ।

2893984হওয়া উচিত 2348899

0001000হওয়া উচিত 1000000

0000020হওয়া উচিত 200000


কার্য 3 - সাধারণ কীবোর্ড সিমুলেটর

ছোট হাতের অক্ষর (এজে), স্পেস এবং কোণ বন্ধনীগুলির স্ট্রিং নিন <>। বাম থেকে ডানে পড়ুন, এই স্ট্রিংটি এমন কীগুলি উপস্থাপন করে যা একটি প্রাথমিক কীবোর্ডে টিপানো হয়েছিল যখন প্রাথমিক শূন্য পাঠ্য সম্পাদক খোলা ছিল। বর্ণগুলি এবং স্থানটি তাদের সাধারণ কীগুলির <সাথে সামঞ্জস্য করে তবে বাম তীর কী এবং >ডান তীর কী এর সাথে মিল রয়েছে, উভয়ই চাপলে কার্সারটি সরানো হয় ।

<কার্সারটি একটি অক্ষর বামে সরানো হয় বা কার্সারটি স্ট্রিংয়ের শুরুতে থাকলে কিছুই করে না।
>কার্সারটি একটি অক্ষর ডানদিকে সরায় বা কার্সারটি স্ট্রিংয়ের শেষে থাকলে কিছুই করে না।

একবার ইনপুট স্ট্রিংয়ের সমস্ত কী টিপলে টেক্সট এডিটরে থাকা স্ট্রিংটিকে আউটপুট দিন। কার্সারটি সরানোর জন্য আউটপুটিং এ্যাসিক কোডগুলি অনুমোদিত নয়।

ইনপুটটিতে সর্বদা কমপক্ষে একটি অ-তীর কী অক্ষর থাকবে।

যেমন ইনপুট ui<<q>>ck <<<<<<the<<<<>>> >>>>>>>>brown x<o<fফলন করা উচিত the quick brown fox

op<<l>>t<<<lam>>>>>>imi<<<><>>>zer<<<<<<<<<<<<<<<<<<>>><>mদেওয়া উচিত llammoptimizer

e< <c<b<aদেওয়া উচিত abc e

<<<>><><<><toast>><<>><><<>><দেওয়া উচিত toast


4 কার্য - সম্পূর্ণ চিঠিপত্র

অনেক ফন্ট বড় হাতের ইংরেজি বর্ণমালা অক্ষর 6 অনুভূমিক এবং উল্লম্ব লাইন সম্পূর্ণভাবে: E, F, H, I, L, এবং T। আমরা এগুলিকে পূর্ণ চিঠিগুলি বলব।

বড় হাতের অক্ষরের একটি স্ট্রিং (এজেড) নিন এবং ফলস্বরূপ পূর্ণসংখ্যার আউটপুট তৈরি করে FILTHE অক্ষরে রেখার সংখ্যা গণনা করুন।

E, F, H, I, L, এবং T4, 3, 3, 3, 2, এবং 2 লাইন যথাক্রমে আছে।

উদাহরণস্বরূপ GEOBITS4 + 3 + 2 = 9 টি লাইনের FILTHE অক্ষরের অংশ রয়েছে (এর জন্য .E..IT.), সুতরাং আউটপুট হওয়া উচিত 9

ABCDEFGHIJKLMNOPQRSTUVWXYZআউটপুট করা উচিত 17

ABCDGJKMNOPQRSUVWXYZআউটপুট করা উচিত 0

FILTHYLINESINLETTERSআউটপুট করা উচিত 39


টাস্ক 5 - অ্যালেক্স পুনরাবৃত্তকারী এ।

আমাদের মডারেটর অ্যালেক্স এ এর মোটামুটি রহস্যময় প্রাথমিক, "এ" রয়েছে।

এখন আমি নিশ্চিত নই, তবে আমি মনে করি এটি A.দাঁড়ায় .A xelA। এবং আমিও নিশ্চিত যে .Aসেখানে স্নেহকালে দাঁড়িয়ে আছে Alex A.

সুতরাং অ্যালেক্সের পুরো নাম পেতে আমাদের অবশ্যই A.এর এবং এর প্রসারিত করতে হবে .A:

Alex A. -> Alex [A.] -> Alex [.A xelA] -> Alex .A xelA -> Alex [.A] xelA -> Alex [Alex A.] xelA -> Alex Alex A. xelA -> etc.

আপনার প্রোগ্রামটিকে একটি অ-নেতিবাচক পূর্ণসংখ্যক গ্রহণ করতে দিন এবং Alex A.ফলাফলটি স্ট্রিং আউটপুট করে বহুগুণ বাড়িয়ে দিন ।

তাই
0হয়ে Alex A.,
1হয়ে Alex .A xelA,
2হয়ে Alex Alex A. xelA,
3হয়ে Alex Alex .A xelA xelA,
4হয়ে Alex Alex Alex A. xelA xelA,
5হয়ে Alex Alex Alex .A xelA xelA xelA,
ইত্যাদি।

(আমি এটি তৈরি করলাম কারণ অজান্তেই অ্যালেক্সকে আমার আধুনিক শ্রদ্ধা নিবেদনের হাতছাড়া করতে পেরে আমার খারাপ লাগছিল : P


কার্য 6 - ন্যামপ্যাড ঘূর্ণন

1 থেকে 9 অন্তর্ভুক্ত পর্যন্ত পূর্ণসংখ্যায় নিন (আপনি এটি স্ট্রিং হিসাবে নিতে পারেন)। 3 × 3 বর্গের অঙ্কের আউটপুট

789
456
123

90 incre এর ইনক্রিমেন্টে আবর্তিত হয় যাতে উপরের সারিতে যে কোনও জায়গায় ইনপুট ডিজিট উপস্থিত হয়। যখন 5ইনপুট হয় কোনও আবর্তন বৈধ আউটপুট হয় 5না কেননা শীর্ষ দিকে ঘোরানো যায়।

যেমন কখন 3ইনপুট হয়, উভয়ই

963
852
741

এবং

321
654
987

বৈধ আউটপুট হয়।

ইনপুট জন্য 4, শুধুমাত্র

147
258
369

বৈধ আউটপুট।


টাস্ক - - দশকে দশকে বিভক্ত অঙ্কগুলি

দশমিক অঙ্কের একটি দুর্দান্ত স্ট্রিং নিন (0-9) এবং যদি সত্যের মানটিকে আংশিক বিভাগে বিভক্ত করা যায় যেখানে প্রতিটি বিভাগের সমস্ত অঙ্ক 10 এর সমান হয়। যদি এটি সম্ভব না হয় তবে একটি মিথ্যা মানটি আউটপুট করুন।

উদাহরণস্বরূপ , ভাগগুলি 10 টি (1 + 9, 3 + 0 + 6 + 1, 2 + 8) এর 19306128মতো বিভক্ত হতে পারে 19|3061|28, সুতরাং সত্যবাদী মানটি আউটপুট হওয়া উচিত।

সত্যবাদী উদাহরণ (প্রতি লাইনে একটি):

19306128
073
730
0028115111043021333109010
2222255

মিথ্যা উদাহরণ:

6810410
9218
12341
5222225
000

টাস্ক 8 - স্কয়ার ক্লক

ধারাবাহিক আকারের মাল্টলাইন স্ট্রিং নিন।

ইনপুট 12থাকলে আউটপুট

 _ _
| | |
|_ _|

ইনপুট 3থাকলে আউটপুট

 _ _
| |_|
|_ _|

ইনপুট 6থাকলে আউটপুট

 _ _
| | |
|_|_|

ইনপুট 9থাকলে আউটপুট

 _ _
|_| |
|_ _|

অন্য কোনও ইনপুট মামলা নেই।


কার্য 9 - বন্ধনী আর্ট

একটি 4 বাইট বাম বন্ধনী প্রতিটি এক ধারণকারী স্ট্রিং নিন (, [, {, এবং <কোনো অনুক্রমে।

সংশ্লিষ্ট ডান বন্ধনী যুক্ত করুন যাতে স্ট্রিংটি 8 বাইট দীর্ঘ এবং প্রতিসমের উল্লম্ব রেখা থাকে। যেমন [<({হয়ে যায় [<({})>]

তারপরে এই স্ট্রিংয়ের প্রতিটি বন্ধনীকে বিপরীত করুন। যেমন [<({})>]হয়ে যায় ]>)}{(<[

পৃথক রেখার উপরে এবং নীচে বিপরীত সংস্করণটি সহ মূল 8 বাইট বন্ধনী স্ট্রিং আউটপুট করুন।

সুতরাং ইনপুট জন্য চূড়ান্ত আউটপুট [<({হবে

]>)}{(<[
[<({})>]
]>)}{(<[

একইভাবে, আউটপুটও <({[হওয়া উচিত

>)}][{(<
<({[]})>
>)}][{(<

ইনপুটটি (<<[অবৈধ কারণ এটি {অনুপস্থিত এবং একটি অতিরিক্ত রয়েছে <


কার্য 10 - পেরিমিটারাইজ করুন

.খালি জায়গার প্রতিনিধিত্ব করে এবং Xশক্ত টাইলগুলির প্রতিনিধিত্ব করে এমনগুলি দিয়ে তৈরি পাঠ্যের একটি আয়তক্ষেত্রাকার গ্রিড নিন (সবচেয়ে ছোটতে 1 × 1) । গ্রিডের সীমানার বাইরে থাকা ঘরগুলি খালি মনে করা হয়। আপনি চারটি গ্রিড প্রান্তের সারি এবং কলামগুলিতে প্রতিটি ধারণ করতে পারেন কমপক্ষে একটি থাকতে পারে X

যেমন একটি বৈধ ইনপুট হতে পারে:

XXX.....X.....
X..X...X.X....
XXX.....X....X

পাঠ্যের আরও একটি আয়তক্ষেত্রাকার গ্রিড আউটপুট করুন যেখানে ইনপুট গ্রিডের বাইরেরX অংশগুলি সহ অর্থোগোনালি বা ত্রিভুজের মতো প্রতি ফাঁকা ঘর হয়ে যায় o। সুতরাং মূলত oশক্ত টাইলগুলির সমস্ত অংশের চারপাশে একটি পরিসীমা আঁকানো হয়। নতুন গ্রিডটি যতটা বড় হবে তার চেয়ে বড় হওয়া উচিত নয়।

সুতরাং উপরের উদাহরণটির ফলাফল হবে:

ooooo...ooo.....
oXXXoo.ooXoo....
oXooXo.oXoXo.ooo
oXXXoo.ooXoo.oXo
ooooo...ooo..ooo

একইভাবে, ইনপুট আউটপুট XXX..X.Xহওয়া উচিত

oooooooooo
oXXXooXoXo
oooooooooo

এবং আউটপুটিং

oooooooooo.
oXXXooXoXo.
oooooooooo.

অবৈধ হবে কারণ খালি ডানদিকের কলামটি অপ্রয়োজনীয় unnecessary

আপনি যে কোনো 3 স্বতন্ত্র ব্যবহার করতে পারেন মুদ্রণযোগ্য হওয়া ASCII স্থানে অক্ষর ., Xএবং o


কার্য 11 - স্যাটার স্কয়ার

স্যাটার স্কয়ার আউটপুট :

SATOR
AREPO
TENET
OPERA
ROTAS

যে কোনও অক্ষর ছোট হাতের বা বড় হাতের অক্ষর হতে পারে

SatOR
aRePO
tenet
OPERa
RoTaS

বৈধ আউটপুটও।

কোনও ইনপুট নেই।


কার্য 12 - প্রধান টুইট

কোনও ইনপুট না নিয়েই 140 বাইট প্রিন্টযোগ্য এএসসিআইআই স্ট্রিংয়ের আউটপুট নিন যা 95 টি মুদ্রণযোগ্য ASCII অক্ষরের প্রত্যেকটির অন্তত একটি অন্তর্ভুক্ত করে। (সুতরাং ৪৫ টি অক্ষর নকল হবে))

এই স্ট্রিং সমস্ত 140 বাইটের চরিত্র কোডের যোগফল হতে হবে সোফি জার্মেই প্রধানমন্ত্রী , অর্থাত্ একটি মৌলিক সংখ্যা pযেমন যে 2p+1এছাড়াও প্রধানমন্ত্রী হয়। স্পেসের অক্ষর কোডটি 32, 33 এর জন্য !34, 34 "এবং আরও 126 অবধি ~। যোগফলটি পাইথন হিসাবে গণনা করা যেতে পারে sum(map(ord, myString))

একটি উদাহরণ আউটপুট হয়:

! "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~d

অক্ষর কোডের যোগফলটি প্রাইম 12203 যার সম্পর্কিত নিরাপদ প্রাইম 24407।


7
আমি মুগ্ধ হব যদি কেউ আসলে 140 বাইটেরও কম কিছুতে এমনকি সিজেএম / পাইথ দিয়েও সবকিছু সমাধান করতে সক্ষম হয়
8

9
আমি। NI EB ওটি ডেরোনহ মা আমি ... তোমার প্রতিদ্বন্দ্বিতা হতে পেরে সম্মানিত। : পি
অ্যালেক্স এ।

ফলাফল আউটপুটে ছাপার পরে কোনও ত্রুটি দিয়ে কাজগুলি শেষ করার অনুমতি দেওয়া হয়?
টর্কেডো

1
কীভাবে আমাদের importএস থেকে বাইট গণনা করা উচিত ? আসুন আমি বলি যে আমি 5 টি ফাংশন লিখি যেখানে 2 একই মডিউলের প্রয়োজন (যেমন import Math), এটি কি দুইবার গণনা করা হয়?
নিমি

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

উত্তর:


10

পাইথ, 136 বাইটে 9 টি কার্য

টাস্ক 1: 7 বাইট

<-F_SQ0

প্রদর্শন

অবতরণ ক্রমে ( _SQ) সাজান , তাদের উপর বিয়োগফল ভাঁজ করুন ( a-b-c), ফলাফলটি নেতিবাচক কিনা তা পরীক্ষা করুন।

টাস্ক 2: 14 বাইট

sho.a-sN^T6.pz

প্রদর্শন

সমস্ত স্ট্রিং ক্রমায়ন ( .pz) গঠন করুন, সংখ্যা ( ) এবং এক মিলিয়ন ( ) oএর মধ্যে পার্থক্য ( .a-) এর পরম মানের ভিত্তিতে তাদের ( ) সাজান (sN^T6

এই জাতীয় প্রথম স্ট্রিং ( h) নিন এবং এটিকে একটি সংখ্যায় রূপান্তর করুন। ( s)।

টাস্ক 4: 19 বাইট

s/L+\EPP*3"EFHILT"z

প্রদর্শন

প্রতিলিপি "EFHILT"তিনবার ( *3), চিহ্ন অপসারণ LT( PP), এবং একটি অ্যাড E( +\E)। ইনপুটটিতে প্রতিটি অক্ষরকে তার স্ট্রিংয়ের উপস্থিতিতে গণনা করুন Map ( /L ... z)। সমষ্টি। ( s)।

কার্য 5: 16 বাইট

u+"Alex "_GhQ".A

প্রদর্শন

শুরু করে "A.", বিপরীত করুন এবং শুরুতে একটি যুক্ত করুন "Alex ", ইনপুট করুন + 1 বার।

কার্য 7: 13 বাইট

}Y-RTsMM./sMz

ইনপুট স্ট্রিংটিকে 1-সংখ্যার ( sMz) সংখ্যাতে রূপান্তর করুন । সমস্ত পার্টিশন তৈরি করুন ( ./)। প্রতিটি পার্টিশনের প্রতিটি উপাদান ( sMM) যোগ করুন। প্রতিটি সাবলিস্ট ( -RT) থেকে সমস্ত 10 টি সরান । এটি খালি তালিকা সামগ্রিক তালিকায় ( }Y) রয়েছে কিনা তা পরীক্ষা করে সাবলিস্টগুলির কোনওটি খালি করেছে কিনা তা পরীক্ষা করে দেখুন ।

কার্য 8: 11 বাইট

*3h%%CQC\Ç4

প্রদর্শন

মডুলো যাদু। সংখ্যায় ( CQ) রূপান্তর করুন , এটি ১৯৯৯ ( C\Ç= 199) মোডে নিয়ে যান এবং সেই মডেল 4 গ্রহণ করুন Then তারপরে 1 যুক্ত করুন এবং 3 দিয়ে গুণ করুন।

টাস্ক 9: 21 বাইট

J+Xz"<{[()]}>")_zJ_JJ

প্রদর্শন

প্রথমত, আমরা প্রথম লাইন তৈরি করি, যা আয়না অক্ষরগুলিতে অনুবাদ করা ইনপুট নিয়ে গঠিত ( Xz"<{[()]}>")), তারপরে বিপরীত ইনপুট ( + ... _z) থাকে এবং এতে সংরক্ষণ করা হয় J। তারপরে সেই লাইনটি, এর বিপরীতটি এবং সেই লাইনটি আবার মুদ্রণ করুন ( J_JJ)।

কার্য 11: 22 বাইট

+J"SATOR
AREPO
TEN"t_J

প্রদর্শন

কেবল একটি স্ট্রিং এবং এর বিপরীতে মুদ্রণ করুন, তবে কেন্দ্রটি নকল করবেন না N

টাস্ক 12: 13 বাইট

++G*19\3srd\

প্রদর্শন

কোডের শেষে একটি অদৃশ্য DEL( 7F) অক্ষর রয়েছে।

এই মুদ্রণ

abcdefghijklmnopqrstuvwxyz3333333333333333333 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

যার চরিত্রের যোগফল রয়েছে 11321। এটা তোলে নিয়ে গঠিত G, বর্ণমালা, 19 3s, এবং মুদ্রণযোগ্য ASCII অক্ষর সব।


28

সিজেএম, 140 বাইটে 8 9 টি কার্য

প্রথমে, আপনার সমাধানগুলি বাছাই করতে এবং কোনও টুইটের মধ্যে কোনটি ফিট হবে তা আপনাকে জানাতে একটি স্ক্রিপ্ট এখানে দেওয়া হয়েছে:

{\s\Se[oSo}:F;
qN/ee{W=,}${)_,_T+:T140>X*_{0:X;}*'=@11+*N+*o\~)YF_,ZFTZFoNo}/

প্রতিটি লাইন থেকে একটি করে ইনপুটটিতে কেবল আপনার 12 টি সমাধান আটকান। এটি এখানে চালান। প্রথম কলামটি টাস্ক নম্বর, দ্বিতীয়টির আকার ( অক্ষরগুলিতে - আপনাকে এটি নিজেই ঠিক করতে হবে যদি এটি বাইট গণনা থেকে আলাদা হয়), তৃতীয়টি সংখ্যার আকার। টুইটগুলিতে থাকা প্রোগ্রামগুলি একটি লাইনের সাহায্যে বাকী থেকে আলাদা করা হয় ===

আমার জন্য, আউটপুটটি দেখতে এমন দেখাচ্ছে:

 1   7   7 q~$~\->
 8  10  17 qDbJ%5/)3*
12  12  29 ',32>_51>'d
 7  13  42 Aq{~-Ace|}/N&
 2  15  57 qe!{~1e6-z}$0=~
 4  19  76 q"FIHEELT"3*H<fe=:+
 5  20  96 ".A"q~){" xelA"+W%}*
 9  22 118 q_{_')>+)}%W%+_W%N@N3$
11  22 140 "SATOR\AREPO\TEN"_W%1>
====================================
 6  25 165 9,:)s3/zq~))3mdg*{W%z}*N*
 3  43 208 LLq{_'=-z({+}{'=>_)$\[{)@+\}{\(@\+}]=&}?}/\
10  45 253 0XW]_m*qN/{'.f+W%z}4*f{\~@m>fm>N*}(\{8f^.e>}/

সুতরাং আমি বর্তমানে ট্যুইটের সাথে মানিয়ে নিতে পারি সেই কাজগুলি এখানে।

টাস্ক 1 - তিনটি নম্বর একটি ত্রিভুজ গঠন করতে পারে? - 8 7 বাইট

1 বাইট সংরক্ষণের জন্য জিমি 23013 কে ধন্যবাদ।

q~$~\->

পরীক্ষা স্যুট.

ইনপুটটি সিজেম-শৈলীর তালিকা হিসাবে প্রত্যাশিত।

এটি মোটামুটি সোজা: দ্বিতীয় দিকের যোগফলের চেয়ে সবচেয়ে বড় দিকটি খাটো কিনা তা পরীক্ষা করে দেখুন। বা সমতুল্যভাবে, পরীক্ষা করুন যে সংক্ষিপ্ততম দিকটি অন্য দু'জনের পার্থক্যের চেয়ে দীর্ঘতর:

q~  e# Read and eval input.
$~  e# Sort the values and dump them on the stack.
\-  e# Subtract the middle value from largest.
>   e# Check if the smallest value is greater than that.

কার্য 2 - নিকটতম থেকে এক মিলিয়ন - 15 বাইট

qe!{~1e6-z}$0=~

পরীক্ষা স্যুট.

সাধারণ উদ্দীপনা:

q        e# Read input.
e!       e# Get all permutations.
{        e# Sort by...
  ~      e#   Evaluate the permutation to get its numerical value X.
  1e6-z  e#   abs(X - 1,000,000)
}$
0=       e# Pick the first element (which minimises the difference)
~        e# Evaluate it to get rid of the leading zeroes.

কার্য 4 - সম্পূর্ণ চিঠি - 21 19 বাইট

2 বাইট সংরক্ষণের জন্য জিমি 23013 কে ধন্যবাদ।

q"FIHEELT"3*H<fe=:+

পরীক্ষা স্যুট.

ধারণাটি হল একটি স্ট্রিং তৈরি করা যাতে তাদের প্রতিটি অরথোগোনাল লাইনের জন্য একবারে প্রতিটি পূর্ণ অক্ষর থাকে। এটি কিছু মজাদার স্ট্রিং ম্যানিপুলেশনের মাধ্যমে করা হয়:

q          e# Read the input.
"FIHEELT"  e# Push this string. It first contains the 3-line letters, then the 2-line 
           e# letters, where we include 'E' twice to make it count for 4.
3*         e# Repeat 3 times: "FIHEELTFIHEELTFIHEELT"
H<         e# Truncate to 17 characters: "FIHEELTFIHEELTFIH". This is chosen such that
           e# it discards the third repetition of the 2-line letters.
fe=        e# For each character in the input, count its occurrences in this new string.
:+         e# Sum them all up.

টাস্ক 5 - অ্যালেক্স রিকার্সিভ এ - 27 20 বাইট

".A"q~){" xelA"+W%}*

পরীক্ষা স্যুট.

এর বিকল্পটি সরাসরি প্রয়োগ করা A.এবং এটি .Aসরাসরি ব্যয়বহুল। পরিবর্তে, আমরা লক্ষ্য করেছি যে আমাদের কেবলমাত্র একটি কেস পরিচালনা করতে হবে, যদি আমরা প্রতিবার স্ট্রিংটি বিপরীত করে। তদ্ব্যতীত, Alexপ্রতিবার প্রিপেন্ডিং (এবং একটি স্থান) প্রাথমিক প্রসারিত করার সমান। স্ট্রিংটি উল্টানোর আগে আমরা বিপরীত যুক্ত করে অন্য একটি বাইট সংরক্ষণ করতে পারি:

".A"        e# Start with ".A" (the -1st iteration if you like).
q~)         e# Read input, eval, increment (so the following block is run at least once.)
{           e# Repeat this block that many times...
  " xelA"+  e#   Append " xelA".
  W%        e#   Reverse the string.
}*

টাস্ক 7 - দশকে বিভক্ত অঙ্কগুলি - 18 16 13 বাইট

Aq{~-Ace|}/N&

পরীক্ষা স্যুট. (প্রতিটি আউটপুট চারপাশে বন্ধনী সহ।)

হুবহু ব্যবহারকারী বান্ধব নয়: সত্যবাদী মানটি একটি একক নতুন লাইন, মিথ্যা মানটি খালি স্ট্রিং।

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

A     e# Push a 10, the initial running total.
q{    e# For each character in the input...
  ~-  e#   Evaluate the character to get the digit and subtract it from the total.
  Ac  e#   Push a linefeed character.
  e|  e#   Logical OR of the running total and the linefeed character (using
      e#   short-circuiting).
}/
N&    e# Take the set intersection with the string containing a linefeed character.
      e# If the total is still a number of any character other than the linefeed,
      e# this will yield an empty string. Otherwise, the string will remain unchanged
      e# and the linefeed will be printed.

টাস্ক 8 - স্কয়ার ক্লক - 10 বাইট

qDbJ%5/)3*

পরীক্ষা স্যুট.

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

q   e# Read the input.
Db  e# Treat the character codes of the string as digits in base 13. This maps the
    e# four inputs to the values: 2023940117708546863
    e#                            2023940113755405840
    e#                            2023940781838850791
    e#                            2023940113755390292
J%  e# Take the result modulo 19. This gives [2, 5, 12, 18], respectively.
5/  e# Divide by 5 (rounding down). [0, 1, 2, 3], respectively.
)   e# Increment. [1, 2, 3, 4], respectively.
3*  e# Multiply by 3. [3, 6, 9, 12], respectively.

কার্য 9 - বন্ধনী আর্ট - 23 22 বাইট

1 বাইট সংরক্ষণের জন্য Sp3000 ধন্যবাদ।

q_{_')>+)}%W%+_W%N@N3$

পরীক্ষা স্যুট.

মোটামুটি সহজবোধ্য. বাম এবং ডান বন্ধনীগুলির মধ্যে ম্যাপিং 2 (বা প্রথম বন্ধনীগুলির জন্য 1) যোগ করে সম্পন্ন করা হয়:

q_      e# Read input and duplicate.
{       e# Map this block onto each character...
  _')>  e#   Duplicate and check if it's not a parenthesis.
  +     e#   Add the result, leaving parentheses unchanged and incrementing the
        e#   other bracket types.
  )     e#   Increment again.
}%
W%+     e# Reverse and add to the original, giving the middle line.
_W%     e# Duplicate and reverse, giving the first line.
N@      e# Push a linefeed, pull up the middle line.
N3$     e# Push another linefeed, copy the first line.

কার্য 11 - স্যাটার স্কোয়ার - 22 বাইট

"SATOR
AREPO
TEN"_W%1>

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

সম্ভবত সবচেয়ে বিরক্তিকর সমাধান। এটি স্ট্রিংয়ের প্রথমার্ধকে ধাক্কা দেয় এবং তারপরে এটি বিপরীত হয়:

"SATOR
AREPO
TEN"    e# Push everything up to the centre of the square.
_W%     e# Duplicate and reverse.
1>      e# Discard the "N", because we don't want that twice.

টাস্ক 12 - প্রাইম টুইট - 13 12 বাইট

',32>_51>'d

এটি এখানে পরীক্ষা করুন। (ফলাফলের জন্য ডায়গনিস্টিক আউটপুট সহ))

অ-প্রিন্টেবল (0x7F) 'এর পরে <DEL>, যা এসই স্ট্রিপসটি বেরিয়ে আসে। অনুলিপি-পেস্ট করার জন্য, পরিবর্তে এই সংস্করণটি ব্যবহার করুন:

'~),32>_51>'d

মুদ্রিত স্ট্রিং হয়

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~d

অর্থাৎ এটি সব অক্ষরের এক রান থেকে অন্য রানে অনুসৃত রয়েছে Sকরার ~, একটি একক দ্বারা অনুসরণ d। অক্ষর কোডগুলির যোগফল 12203 I আমি এটি কিছুটা পরীক্ষা এবং ত্রুটির মাধ্যমে খুঁজে পেয়েছি।

'~),32>  e# Push a string with all printable characters.
_51>     e# Duplicate this and discard the first 51 of them.
'd       e# Push a "d".

1
q~$~\-> q"FIHEELT"3*H<fe=:+
jimmy23013

@ জিমি 23013 ওহহহ, আমরা ভুলে যাচ্ছি যে আমাদের e=এই দিনগুলি রয়েছে।
মার্টিন এন্ডার

আপনি 20 টি অক্ষরে # 5 কীভাবে করবেন তা স্পষ্ট করার আগে আমি কিছু পোস্ট করার পক্ষে যথেষ্ট উত্তর পাওয়ার আশা করছিলাম।
পিটার টেলর

19

পাইথ, 138 বাইটে 9 টি কাজ

এটি বেশ কিছুক্ষণ সময় নিয়েছে।

আমি মনে করি 9 টি কাজ পাইথের সীমাবদ্ধতা। পরবর্তী সংক্ষিপ্ততম প্রোগ্রাম (স্যাটার স্কয়ার) সহ 160 বাইটের ফলাফল অন্তর্ভুক্ত। 20 বাইট গল্ফিং অসম্ভব সম্ভাবনা। এখানে 2 বা 3 টি কার্য রয়েছে যা কিছুটা কুৎসিত এবং সম্ভবত ছোট করা যেতে পারে, তবে সামগ্রিকভাবে আমি সমাধানগুলি নিয়ে বেশ সন্তুষ্ট।

টাস্ক 1 - তিন নম্বর কি একটি ত্রিভুজ গঠন করতে পারে ?, 8 বাইট

>FsMc2SQ

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

কার্য 2 - এক মিলিয়ন, 14 বাইটের নিকটতম

ho.a-^T6NsM.pz

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

কার্য 4 - ফিলিপ লেটারস, 20 বাইট

s*Vtsmmdd5/Lz"TLIHFE

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

টাস্ক 5 - অ্যালেক্স রিকার্সিভ এ।, 16 বাইট

u+"Alex "_GhQ".A

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

কার্য 6 - নম্প্যাড ঘূর্ণন, 20 বাইট

jeo}zhN.uC_N3_c3jkS9

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

টাস্ক 7 - দশকে দশকে বিভক্ত অঙ্কগুলি, 15 বাইট

qTu+WnGTvHG-zZZ

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

টাস্ক 8 - স্কয়ার ক্লক, 12 বাইট

*3%%Cz1978 5

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

কার্য 9 - বন্ধনী আর্ট, 20 বাইট

V3_WtN+z_Xz"[<({})>]

এটি অনলাইনে ব্যবহার করে দেখুন: নিয়মিত ইনপুট বা টেস্ট স্যুট

টাস্ক 12 - প্রাইম টুইট, 13 বাইট

++*d44srd\\&

এটি অনলাইনে চেষ্টা করুন: নিয়মিত ইনপুট


2
133 বাইটে আমাদের জমা দেওয়ার ফলাফলের সংমিশ্রণ।
isaacg

9

টিআই-বেসিক, 11 12 টি কার্য 728 830 বাইটে

টাস্ক 1 টি 7 বাইটে

:2max(Ans)`<`sum(Ans

ইনপুট একটি তালিকা Ans

92 টি 110 বাইটে টাস্ক 2

:seq(expr(sub(Ans,I,1)),I,1,7→L₁
:SortA(L₁
:min(7,1+sum(not(L₁
:{L₁(1)+sum(seq(L₁(I))₁₀^(I-8),I,2,7)),L₁(Ans)+sum(seq((I`>`Ans)L₁(I)₁₀^(1-I),I,2,7
:ᴇ6Ans(1+(0`>`min(ΔList(abs(1-Ans

অঙ্কের তালিকার জন্য প্রম্পটস ইনপুট একটি স্ট্রিং Ans

119 বাইটে টাস্ক 3

:Input Str1
:"  →Str2
:For(I,1,length(Str1
:sub(Str1,I,1→Str3
:inString("`<>`",Ans
:If Ans:Then
:max(0,min(L,C+2Ans-3→C
:Else
:C+1→C
:L+1→L
:sub(Str2,1,C)+Str3+sub(Str2,C+1,L-C+1→Str2
:End
:End
:sub(Str2,2,L

একটি স্ট্রিং জন্য অনুরোধ জানানো হয়। ধরে নেওয়া সি এবং এল হয় অপরিজ্ঞাত বা 0 হয়।

35 বাইটে 4 কার্য

:sum(int(2seq(inString("TLIHFE",sub(Ans,I,1))^.4,I,1,length(Ans

ইনপুট একটি স্ট্রিং ইন Ans

63 বাইটে 5 টাস্ক

:Ans/2→C
:sub("A.A",1+2fPart(C),2
:For(I,0,C
 :"Alex "+Ans
 :If I≠C
  :Ans+" xelA
:End
:Ans

ইনপুট একটি সংখ্যা Ans

66 বাইটে 6 কার্য

: 𝑖 ^ ((উত্তর <7) (উত্তর -৩ (উত্তর >3: এর জন্য (ওয়াই, ⁻1,1: বিতরণ যোগফল এক্স + 1), এক্স, ⁻1,1: সমাপ্ত

ইনপুট একটি সংখ্যা Ans

টাস্ক 7 36 43 বাইটে

:Input <strike>L₁</strike>Str1
:.5
:For(I,1,<strike>dim(L₁</strike>length(Str1
 :Ans+<strike>L₁(I</strike>expr(sub(Str1,I,1
 :If 10=int(Ans
  :0
:End
:not(Ans

একটি উল্লেখ করার অনুরোধ জানানো ডিজিটের তালিকা পংক্তি।

29 বাইটে 8 টি কার্য

:18fPart(sum(seq(I(sub(Ans,I,1)=" ")/6,I,1,15

ইনপুট একটি স্ট্রিং ইন Ans

কার্য 9 বাইটে 9

:For(I,1,16,2
 :If I<8
  :Ans+sub("`)}]>`",inString("`({[<`",sub(Ans,4,1)),1
 :sub(Ans,I,1)+Ans
:End
:For(I,⁻1,1
 :Disp sub(Ans,9-8abs(I),8
:End

ইনপুট একটি স্ট্রিং ইন Ans

159 বাইটে 10 টাস্ক

:1→X
:Input Str1
:2+length(Str1→L
:"X
:While 2+L`>`length(Ans
 :Ans+Ans→Str2
:End
:Ans→Str3
:While 1
 :"XX
 :Ans+Str1+Ans→Str1
 :For(I,1,L
  :Ans+sub("0X.",2expr(sub(Str2,I+1,1))+not(expr(sub(Ans,I,3)+sub(Str2,I,3)+sub(Str3,I,3))),1
 :End
 :Disp sub(Ans,L+3,L
 :Str2→Str3
 :Str1→Str2
 :Input Str1
:End

যথাক্রমে X0.পরিবর্তে ব্যবহার করুন .Xo(দুঃখিত কিছুই মিলছে না)। লাইন দ্বারা ইনপুট লাইন জন্য অনুরোধ। Xসমস্ত আউটপুট দেখতে আপনাকে দুটি রেখার প্রবেশ করতে হবে এবং তারপরে 2 য় + প্রস্থান করতে প্রস্থান করতে হবে।

39 বাইটে 11 টি কার্য

:Disp "SATOR
:Disp "AREPO
:Disp "TENET
:Disp "OPERA
:Disp "ROTAS

77 বাইটে 12 টি কার্য

: উত্তর + "টিভিএম_আই% লিনরেগ (কুড়াল + বি) ডিএস <(getKeyconj (1-প্রোপজেস্টেস্ট (দিনআফডব্লিউকে (ম্যানুয়াল-ফিট সি / ইয়ানোভা)! * সারি (HorizRegEQUnarchive [জে]! # $ &'', .234567890:; = >? @ জিবিকিউএক্স \^ _`qw {|} ~

বা হেক্স হিসাবে:

72702ABB21FFDBADBB25BB3EEF06EF16
6331BB5917746201BB695C092DBBD2BB
D3BBD4AEAE2B3A323334353637383930
3EBBD66A6CAFBBD147425158BBD7F0BB
D9BBD5BBC1BBC708BBD809BBCF

ইনপুট একটি স্ট্রিং যা এতে অন্তর্ভুক্ত "থাকে Ans

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


7

পার্ল, 117 বাইটে 4 টি কাজ

আসল ভাষা চেষ্টা করে দেখি ;)

এখনও ছেড়ে দেওয়া হয়নি, এমনকি সম্ভাবনা থাকলেও, 140 বাইটে 5 টি টুকরো টুকরো করতে সক্ষম হতে পারে!

* কার্য 1: 30 + 1 = 31 বাইট

@F=sort@F;say$F[0]+$F[1]>$F[2]

ব্যবহার: perl -aM5.010 entry.pl input.txt

* কার্য 4: 32 + 1 = 33 বাইট

y/ELTFHI/4223/;s/./+$&/g;$_=eval

ব্যবহার: perl -p entry.pl input.txt

টাস্ক 5: 54 বাইট

say"Alex "x($_/2+1).qw(A. .A)[$_%2]." xelA"x(--$_/2+1)

-2 বি ডোম হেস্টিংসকে ধন্যবাদ

ব্যবহার: echo 4 | perl -M5.010 entry.pl

কার্য 7: 37 + 2 = 39 বাইট

($i+=$_)>10&&exit,$i%=10for@F;$_=!$i;

ব্যবহার: perl -pF entry.pl input.txt

* কার্য 8: 21 + 2 = 23 বাইট

$_=y/|_ 
/14/dr/64%14

এটি একটি কৌতুকপূর্ণ কিছু। প্রতিটি প্রতিস্থাপন শুরু আউট |সঙ্গে xএবং প্রতিটি _সঙ্গে yতারপর প্রতিস্থাপন স্পেস প্রতিটি গ্রিড জন্য একটি অনন্য দুই অঙ্ক স্ট্রিং উত্পাদন করতে ( yyxxyxxyyx, yyxxyxxyyxyyxxxxyxyx, yyxxxxyxyxyyxyxxxyyx, yyxyxxxyyxyyxxxxyyx, yyxxxxyyx)। এরপরে, আমি একটি প্রোগ্রাম লিখেছিলাম xএবং yএবং গাণিতিক ক্রিয়াকলাপগুলি যা প্রতিস্থাপনের পরে উত্পাদিত সংখ্যায় করা যেতে পারে xএবং yপ্রতিটি সংখ্যার জন্য 3,6,9,12 আউটপুট দেওয়ার জন্য লিখেছিলাম। শেষ পর্যন্ত, x=1, y=4জাদু অপারেশন ছিল /64%14

ব্যবহার: perl -0p entry.pl input.txt

কার্য 11: 34 বাইট

say"SATOR
AREPO
TENET
OPERA
ROTAS"

ব্যবহার: perl -M5.010 entry.pl

* কার্য 12: 30 বাইট

say d.pack"C*",32..126,83..126

ব্যবহার: perl -M5.010 entry.pl

দাবি অস্বীকার: -M5.010 'মুক্ত' হিসাবে বিবেচিত


রুবি কি পার্লের চেয়ে কম বাস্তব? ;)
মার্টিন এন্ডার

9
আমি যখন আপনাকে উত্তরগুলি দেখতে পাই (যা শোরগোলের মতো লাগে), আমি পার্লকে আসল ভাষা হিসাবে যোগ্য করে তুলতে পারি না ))

1
চমৎকার কাজ! আমি মনে করি আপনি টাস্ক 5 এর qw(A. .A)[$_%2]পরিবর্তে 2 বাইট বাঁচাতে পারবেন ("A.",".A")[$_%2]এবং আমি নিশ্চিত যে আপনি আরও কয়েকটি বাইট ছাড়তে পারবেন ...
ডম হেস্টিংস

6

রুবি, ২৮০ বাইটে 4 টি কাজ (অপ্রতিযোগিতামূলক)

এটি কেবল একটি প্রচেষ্টা, আমি পরে কাজগুলি চালিয়ে যাব (এবং আশা করি বিদ্যমানগুলি গল্ফ করুন)।

কার্যক্রম 1

a=gets.split.map &:to_i;p a.all?{|e|e<a.inject(:+)-e}

টাস্ক 2

p gets.chars.permutation.map{|a|a.join.to_i}.min_by{|x|(x-1e6).abs}

টাস্ক 4

n,b='EFHILT',0;gets.chars.map{|c|b+=n[c]==p ? 0:[4,3,3,3,2,2][n.index c]};p b

টাস্ক 5

a='Alex A.';gets.to_i.times{|i|i%2<1 ? a.sub!('A.','.A xelA'):a.sub!('.A',a)};$><<a

6

টিআই-বেসিক, 994 বাইটে 12 টি কার্য

টিআই গ্রুপ ফাইল ( .8xg ) হিসাবে সমস্ত ডাউনলোড করুন

(প্রতি অনুরোধ অনুযায়ী স্পোলার ট্যাগ যুক্ত করা হয়েছে।)

টাস্ক 1 - তিনটি নম্বর একটি ত্রিভুজ গঠন করতে পারে? - 7 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:2max(Ans)<sum(Ans

কার্য 2 - এক মিলিয়ন থেকে 114 বাইটের নিকটতম

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:int(10fPart(Ans\10^(\-cumSum(binomcdf(6,0→X
:"sum(\L\X\10^(\cumSum(not(binompdf(6,0→\Y1\
:SortD(\L\X
:\Y1\→X
:sum(not(\L\X
:If Ans
:Then
:If max(\L\X=1
:X+\E\6-\10^(\6-Ans→X
:SortA(\L\X
:augment(ΔList(cumSum(\L\X)),{0→X
:End
:{X,\Y1\
:Ans(1+(0>min(ΔList(abs(\E\6-Ans

কার্য 3 - সাধারণ কীবোর্ড সিমুলেটর - 131 127 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Input Str1
:DelVar X1→Y
:"..→Str2
:For(Z,1,length(Str1
:sub(Str1,Z,1→Str3
:(Ans=">")-(Ans="<
:If Ans
:Then
:max(1,min(Y+Ans,X+1→Y
:Else
:sub(Str2,1,Y)+Str3+sub(Str2,Y+1,X-Y+2→Str2
:X+1→X
:Y+1→Y
:End
:End
:sub(Str2,2,X

টাস্ক 4 - সম্পূর্ণ চিঠি - 34 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:sum(int(\³√(\12seq(inString("TLIHFE",sub(Ans,X,1)),X,1,length(Ans

টাস্ক 5 - অ্যালেক্স রিকার্সিভ এ - 107 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Input X
:".A..
:For(X,0,X
:Ans→Str1
:5int(.5X+.5
:sub(Str1,1,Ans+1)+sub(".A xelAlex A.",6gcd(X,2)-5,7)+sub(Str1,Ans+4,5X-Ans+1
:End
:sub(Ans,2,5X+2

কার্য 6 - ন্যামপ্যাড ঘূর্ণন - 86 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:.3Ans+2(Ans=6→X
:[[9,6,3][8,5,2][7,4,1
:For(X,0,X
:rowSwap(Ans\^T\),1,3
:End
:Ans
:*row+(10,*row+(10,Ans\^T\,1,2),2,3
:For(X,1,3
:Disp Ans(3,X
:End

টাস্ক 7 - দশকের দশকে বিভাজন অঙ্ক - 77 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Ans+"0
:seq(expr(sub(Ans,X,1)),X,1,length(Ans
:augment(Ans,{10not(not(max(Ans→X
:1→X
:Repeat Ans≥dim(\L\X
:Ans+1
:If 10=sum(\L\X,X,Ans
:Ans+1→X
:End
:X=Ans

টাস্ক 8 - স্কয়ার ক্লক - 35 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:12-3max(seq(X(sub(Ans,6gcd(X,2)+X,1)≠" "),X,1,3

কার্য 9 - বন্ধনী আর্ট - 86 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Input Str1
:For(X,1,4
:For(Y,0,1
:abs(X-9not(Y→Z
:"()[]{}<>
:sub(Ans,inString(Ans,sub(Str1,X,1))+Y,1
:Output(1,Z,Ans
:Output(2,9-Z,Ans
:Output(3,Z,Ans
:End
:End

কার্য 10 - পেরিমিটারাইজ - 218 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:".
:For(A,0,\E\9
:Input Str1
:Ans+Str1→Str2
:If Str1≠".
:End
:length(Ans→X
:round(A\^-1\(Ans-2→B
:seq(expr(sub(Str2,A,1)),A,2,X-1→B
:πAns→C
:"augment(Ans,augment(Ans,\L\B))+augment(Ans,augment(\L\C,Ans))+augment(\L\B,augment(Ans,Ans→X
:seq(0,A,1,B
:\L\X→A
:For(C,0,A+1
:seq(\L\A(A+BC),A,1,B→C
:int(Ans→B
:{0
:1+not(\L\X)+not(fPart(\L\X→B
:".
:For(X,1,B+2
:Ans+sub("120",\L\B(X),1
:End
:Disp sub(Ans,2,B+2
:End

এই বিকল্পগুলি তৈরি করা হয়েছে: 0= ., 1= X, 2=o

ইনপুটটির জন্য (প্রোগ্রাম শুরু হওয়ার পরে), শেষ সারিটি লেখা না হওয়া পর্যন্ত প্রতিটি লাইনের বিরতিতে প্রবেশ টিপুন, একবারে একটি করে সারি টাইপ করুন। তারপরে এন্টার টিপুন, এক পিরিয়ড টাইপ করুন, তারপরে পুরো স্ট্রিং জমা দেওয়ার জন্য আবার এন্টার চাপুন।

কার্য 11 - স্যাটার স্কোয়ার - 38 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Disp "SATOR","AREPO","TENET","OPERA
:"ROTAS

টাস্ক 12 - প্রাইম টুইট - 151 বাইট

টিআই -৩৩ + প্রোগ্রাম ফাইল ( .8 এক্সপ্রেস ) হিসাবে ডাউনলোড করুন

:Ans+"!#$%&'()*+,-./01234567889:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
:For(X,1,45
:Ans+" 
:End
:Ans

Ans\Y1\সমীকরণ সম্পাদক থেকে সরাসরি টাইপ করে এবং Equ►String(\Y1\,Str1:Str1হোম স্ক্রীন থেকে চলমান একটি ডাবল উক্তি থাকা উচিত ।

আউটপুট দৈর্ঘ্য 140. 8 টি দুটি প্রদর্শিত হয়, এবং অন্যান্য ASCII অক্ষরগুলির সাথে 45 টি ফাঁকা স্থান রয়েছে যা প্রত্যেকে একবার প্রদর্শিত হবে। এটির পরিমাণ (33 + 34 + ... + 126) + 56 + 32 × 45 = 8969, একটি সোফি জার্মেইন প্রাইম।


আমি ওপি জিজ্ঞাসা করলেন, এবং আপনার মত একটি টোকেন নির্ভর করতে পারেন sin(হিসাবে প্রদর্শন করার s, i, n, এবং (টাস্ক 12
lirtosiast

0

পাইথন 3, 1 টাস্ক, 268 বাইট, অপ্রতিযোগিতামূলক

আমি পাইথন 3.5 টাস্কে টাস্ক # 2 চেষ্টা করেছিলাম আমি কোড গল্ফিং এবং পাইথনে নতুন

import itertools
def f2(l):
    n=1000000
    l=list(itertools.permutations(l))
    j = len(l)
    m=[None]*j
    while j>0:
        j -= 1
        m[j]= int(''.join(str(i) for i in l[j]))
        l[j]=abs(n-m[j])
    l.sort()
    k=n-l[0]
    return(n+l[0],k)[k in m]

পিপিসিজিতে আপনাকে স্বাগতম। আপনি পাইথন 3 এ পাবেন আপনার কয়েকটি বক্তব্যকে এক লাইনে x=10;print(x)রাখতে পারেন উদাহরণস্বরূপ আপনি লিখতে পারেন এটি আপনার কিছু ইন্টেন্টেড অংশকে সহায়তা করবে।
জর্জ
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.