ग्रामिंग क्रिमिंग - बारह टास्क ट्वीट


42

आपके बॉस ने आपको केवल 12 प्रोग्रामिंग कार्यों की एक सूची ईमेल की है, जो उन्हें जल्द से जल्द चाहिए। कार्य काफी सरल हैं, लेकिन आपका बॉस, सोशल नेटवर्किंग द्वारा चूसा गया एक युवा सॉफ्टवेयर टाइकून है, इस बात पर जोर देता है कि आपके समाधान एक ही ट्विटर ट्वीट के भीतर फिट होने में सक्षम हैं ।

इसका मतलब है कि आपके पास सभी कार्यों को हल करने के लिए केवल 140 बाइट्स के कोड हैं, औसतन 11.67 बाइट्स प्रति कार्य। (हां, ट्विटर पात्रों को गिनता है लेकिन आपके बॉस ने विशेष रूप से बाइट्स कहा है।)

आपको एहसास है कि 140 बाइट्स में सभी 12 कार्यों को हल करने का कोई तरीका नहीं है लेकिन आपको संदेह है कि आपका बॉस वास्तव में आपके सभी समाधानों का परीक्षण नहीं करेगा। इसलिए आप जितने भी कार्य कर सकते हैं, उनमें से कुछ को पूरी तरह से छोड़ देते हैं। आपका मानसिकता यह कोई बात नहीं है कि जो कार्य आप पूरा का सबसेट, केवल यह जानना काफ़ी है कि उप-समुच्चय है संभव के रूप में के रूप में बड़े

आप कितने कार्य पूरा कर सकते हैं?

चुनौती

12 विभिन्न कार्यक्रमों को लिखें, जिनमें से प्रत्येक नीचे सूचीबद्ध 12 कार्यों में से एक को सही ढंग से हल करता है। इन कार्यक्रमों की लंबाई का संचयी योग 140 बाइट्स से अधिक नहीं हो सकता है

वैकल्पिक रूप से, आप एक एकल प्रोग्राम लिख सकते हैं जो 140 बाइट्स से अधिक लंबा नहीं है जो 1 से 12 तक पूर्णांक लेता है और (आदर्श रूप से) आवश्यक कार्य को हल करने के लिए इसी कार्य को हल करने के लिए आगे बढ़ता है। सभी कार्यों को काम करने की आवश्यकता नहीं है, लेकिन केवल वे हैं जो आपके स्कोर की ओर गिनती करते हैं। कार्य नहीं करने वाले कार्यों को त्रुटि या कुछ और करने की अनुमति है।

या तो मामले में "प्रोग्राम" वास्तव में एक फ़ंक्शन हो सकता है जो इनपुट को तर्क के रूप में लेता है या इसके लिए संकेत देता है और आउटपुट को प्रिंट या वापस करता है। इसलिए, उदाहरण के लिए, आप एक 140 बाइट फ़ंक्शन लिख सकते हैं जो दिखता है f(taskNumber, taskInput), या आप प्रत्येक कार्य के लिए अलग कोड स्निपेट लिख सकते हैं, कुछ फ़ंक्शन के रूप में और कुछ पूरी तरह से विकसित कार्यक्रमों के रूप में।

अन्य जानकारी:

  • सभी कोड एक ही भाषा में लिखे जाने चाहिए।

  • हमेशा की तरह, इनपुट स्टड, कमांड लाइन, एक फ़ंक्शन तर्क, या जो कुछ भी आपकी भाषा के लिए सामान्य है, से आना चाहिए। आउटपुट को stdout या आपकी भाषा के निकटतम विकल्प के लिए मुद्रित किया जाता है, या एक उपयुक्त प्रकार में वापस किया जाता है।

  • इनपुट स्वरूपण की एक उचित मात्रा ठीक है; उदाहरण के लिए स्ट्रिंग के आसपास या \nवास्तविक न्यूलाइन्स के बजाय उद्धरण ।

  • आउटपुट बिल्कुल वही होना चाहिए जिसे बिना किसी बाहरी स्वरूपण या व्हाट्सएप के कहा जाता है। अपवाद एक वैकल्पिक एकल अनुगामी न्यूलाइन है।

  • कोड जो केवल REPL वातावरण में चलता है, एक प्रोग्राम या फ़ंक्शन का गठन नहीं करता है।

  • आप कई कार्यक्रम नहीं लिख सकते हैं जो कई कार्यों को हल करते हैं। यह या तो एक कार्यक्रम है (आदर्श रूप से) सभी कार्यों को हल करता है, या (आदर्श रूप से) 12 प्रोग्राम हैं जो प्रत्येक एक कार्य को हल करते हैं।

  • एक टास्क सॉल्यूशन पोस्ट करना, जिसे आपने नहीं लिखा या केवल थोड़ा संशोधित किया गया है, मूल लेखक के लिए कोई अटेंशन दिए बिना अनुमति नहीं है, और आदर्श रूप से अनुमति भी मिल रही है। यदि आपका उत्तर मुख्य रूप से अन्य सभी उत्तरों से सबसे छोटे समाधानों की रचना करता है, तो यह एक सामुदायिक विकि होना चाहिए।

स्कोरिंग

सबसे अधिक कार्यों को पूरा करने वाला प्रस्तुतकर्ता विजेता होता है। यदि दो सबमिशन टाई होती हैं, तो सबसे कम बाइट्स जीतता है। यदि बाइट काउंट बंधे होते हैं, तो पहले जमा करने वाला जीत जाता है। सामुदायिक विकि उत्तरों को जीतने की अनुमति नहीं है।

हमें बताना सुनिश्चित करें कि आपने कौन से कार्य हल किए हैं, न कि कितने!

गैर-गोल्फरों के लिए बाधा:

यह संभावना है कि इस चुनौती पर गोल्फ भाषाओं का प्रभुत्व होगा । कई भाषाओं में 140 बाइट के भीतर एक या दो कार्य को हल करने में समस्या हो सकती है। इसलिए आप एक गैर-प्रतिस्पर्धी उत्तर प्रस्तुत कर सकते हैं जहां सीमा 3 ट्वीट है, अर्थात 420 बाइट्स। अन्य सभी नियम समान हैं।

कार्य

टास्क 1 - क्या तीन नंबर एक त्रिकोण बना सकते हैं?

तीन सकारात्मक पूर्णांकों में ले जाएं और एक सत्य / मिथ्या मूल्य का उत्पादन करें, जो यह दर्शाता है कि उन लंबाई वाली तीन रेखाएं त्रिकोण बना सकती हैं या नहीं । आप यह नहीं मान सकते हैं कि संख्या किसी विशेष क्रम में आती है।

सत्य उदाहरण (प्रति पंक्ति एक):

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 - निकटतम मिलियन तक

7 दशमलव अंकों (0-9) की एक स्ट्रिंग को देखते हुए, उन्हें एक संख्या प्राप्त करने के लिए पुनर्व्यवस्थित करें जो एक मिलियन के करीब संभव है। यानी abs(1000000 - rearrangedNumber)कम से कम होना चाहिए।

किसी पूर्णांक के रूप में परिणामी संख्या को प्रिंट करें या वापस लौटाएं, न कि एक स्ट्रिंग (इसलिए वहां अग्रणी शून्य नहीं होना चाहिए, जब तक कि आपकी भाषा के लिए मानक न हो)।

उदाहरण के लिए इनपुट का 9034318परिणाम 984331(और नहीं 1033489) होना चाहिए ।

2893984बनना चाहिए 2348899

0001000बनना चाहिए 1000000

0000020बनना चाहिए 200000


टास्क 3 - सरल कीबोर्ड सिम्युलेटर

लोअरकेस अक्षर (az), रिक्त स्थान और कोण कोष्ठक की एक स्ट्रिंग में ले लो <>। बाएं से दाएं पढ़ें, यह स्ट्रिंग उन कुंजियों का प्रतिनिधित्व करती है जो एक मानक कीबोर्ड पर दबाए गए थे, जबकि शुरू में खाली पाठ संपादक खुला था। अक्षर और स्थान उनकी सामान्य कुंजियों के <अनुरूप होते हैं लेकिन बाएँ तीर कुंजी और >दाएँ तीर कुंजी से मेल खाते हैं , दोनों ही कर्सर को बिना दबाए ले जाते हैं ।

<कर्सर को एक वर्ण छोड़ देता है, या यदि स्ट्रिंग के शुरू होने पर कर्सर कुछ भी नहीं करता है।
>कर्सर को एक वर्ण सही ले जाता है, या यदि स्ट्रिंग के अंत में कर्सर नहीं है, तो कुछ भी नहीं करता है।

एक बार इनपुट एडिटर में सभी स्ट्रिंग को दबाए जाने के बाद, स्ट्रिंग को आउटपुट करें। कर्सर को स्थानांतरित करने के लिए आउटपुट से बचने के कोड की अनुमति नहीं है।

इनपुट में हमेशा कम से कम एक नॉन-एरो की विशेषता होगी।

उदाहरण के लिए इनपुट 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 अक्षर कहते हैं।

अपरकेस अक्षर (AZ) की एक स्ट्रिंग में ले जाएँ और परिणामी पूर्णांक को आउटपुट करते हुए FILTHE अक्षरों में लाइनों की संख्या गिनें।

E, F, H, I, L, और T4, 3, 3, 3, 2, और 2 लाइनों क्रमशः है।

उदाहरण GEOBITSके लिए 4 + 3 + 2 = 9 लाइनें FILTHE अक्षरों का हिस्सा हैं (के लिए .E..IT.), इसलिए आउटपुट होना चाहिए 9

ABCDEFGHIJKLMNOPQRSTUVWXYZआउटपुट चाहिए 17

ABCDGJKMNOPQRSUVWXYZआउटपुट चाहिए 0

FILTHYLINESINLETTERSआउटपुट चाहिए 39


टास्क 5 - एलेक्स रिकर्सिव ए।

हमारे मॉडरेटर एलेक्स ए के पास काफी रहस्यमयी प्रारंभिक "ए" है।

अब मैं निश्चित नहीं हूं, लेकिन मुझे लगता है कि इसका A.मतलब है .A xelA। और मुझे पूरा यकीन है कि .Aवहाँ चुपके से खड़ा है Alex A.

इस प्रकार एलेक्स का पूरा नाम पाने के लिए हमें A.'s .A' और 's ' का विस्तार करना चाहिए :

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,
और इतने पर।

(मैंने इसे इसलिए बनाया क्योंकि मैंने एलेक्स को अपनी मामूली श्रद्धांजलि चुनौती से अनजाने में छोड़ने के लिए बुरा महसूस किया था ।: पी)


टास्क 6 - नंपाद रोटेशन

एक पूर्णांक में 1 से 9 समावेशी तक ले जाएं (आप इसे एक स्ट्रिंग के रूप में ले सकते हैं)। 3 × 3 वर्ग के अंकों का आउटपुट

789
456
123

90 ° की वृद्धि में घुमाया गया ताकि इनपुट अंक शीर्ष पंक्ति पर कहीं भी दिखाई दे। जब 5इनपुट होता है तो कोई भी रोटेशन वैध आउटपुट होता है क्योंकि 5कैंट को शीर्ष पर घुमाया जा सकता है।

जैसे 3इनपुट कब है, दोनों

963
852
741

तथा

321
654
987

मान्य आउटपुट हैं।

इनपुट के लिए 4, केवल

147
258
369

वैध आउटपुट है।


कार्य 7 - दसियों में विभक्त अंक

दशमलव अंकों (0-9) की एक गैर-रिक्त स्ट्रिंग में लें और एक सत्य मान का उत्पादन करें यदि इसे सन्निहित खंडों में विभाजित किया जा सकता है, जहां प्रत्येक खंड में सभी अंक ठीक 10. तक हैं। यदि यह संभव नहीं है, तो एक मिथ्या मान का उत्पादन करें।

जैसे 19306128विभाजित किया जा सकता है 19|3061|28, सभी खंड 10 (1 + 9, 3 + 0 + 6 + 1, 2 + 8) को जोड़ते हैं, इसलिए एक सत्य मूल्य आउटपुट होना चाहिए।

सत्य उदाहरण (प्रति पंक्ति एक):

19306128
073
730
0028115111043021333109010
2222255

झूठे उदाहरण:

6810410
9218
12341
5222225
000

टास्क 8 - स्क्वायर क्लॉक

लगातार आकार के मल्टीलाइन स्ट्रिंग में लें।

12इनपुट है तो आउटपुट

 _ _
| | |
|_ _|

3इनपुट है तो आउटपुट

 _ _
| |_|
|_ _|

6इनपुट है तो आउटपुट

 _ _
| | |
|_|_|

9इनपुट है तो आउटपुट

 _ _
|_| |
|_ _|

कोई अन्य इनपुट मामले नहीं हैं।


टास्क 9 - ब्रैकेट आर्ट

एक 4 बाइट छोड़ दिया वर्गों में से प्रत्येक से एक युक्त स्ट्रिंग में ले लो (, [, {, और <किसी भी क्रम में।

संगत दाएं कोष्ठक जोड़ें ताकि स्ट्रिंग 8 बाइट्स लंबी हो और समरूपता की एक ऊर्ध्वाधर रेखा हो। जैसे [<({बन जाता है [<({})>]

फिर इस स्ट्रिंग में प्रत्येक ब्रैकेट को उल्टा करें। जैसे [<({})>]बन जाता है ]>)}{(<[

मूल 8 बाइट ब्रैकेट स्ट्रिंग को अलग-अलग लाइनों पर ऊपर और नीचे रिवर्स संस्करण के साथ आउटपुट करें।

तो इनपुट के लिए अंतिम आउटपुट [<({होगा

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

इसी तरह, के लिए आउटपुट <({[होना चाहिए

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

इनपुट (<<[अमान्य है क्योंकि {गायब है और एक अतिरिक्त है <


टास्क 10 - पेरिमिटराइज़

पाठ के एक आयताकार ग्रिड में ले लो (1 × 1 सबसे छोटा) .जो खाली जगह का प्रतिनिधित्व करता है और Xठोस टाइल्स का प्रतिनिधित्व करता है। ग्रिड की सीमा से परे कोशिकाओं को खाली माना जाता है। आप मान सकते हैं कि 4 ग्रिड एज पंक्तियों में से प्रत्येक और कॉलम में कम से कम एक होगा X

उदाहरण के लिए एक वैध इनपुट हो सकता है:

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

पाठ का एक और आयताकार ग्रिड आउटपुट करें जहां हर खाली सेल जो कि इनपुट ग्रिड से बाहर के लोगों सहित एक Xorthogonally या तिरछे पड़ोसी , बन जाता है । तो अनिवार्य रूप से ठोस टाइलों के सभी भागों के चारों ओर एक परिधि खींची जाती है। नया ग्रिड जितना होना चाहिए, उससे बड़ा नहीं होना चाहिए।oo

तो ऊपर दिए गए उदाहरण का आउटपुट होगा:

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

इसी तरह, इनपुट का आउटपुट XXX..X.Xहोना चाहिए

oooooooooo
oXXXooXoXo
oooooooooo

और उत्पादन

oooooooooo.
oXXXooXoXo.
oooooooooo.

खाली सही कॉलम अनावश्यक होने के कारण अमान्य होगा।

आप किसी भी 3 अलग उपयोग कर सकते हैं प्रिंट योग्य ASCII के स्थान पर वर्ण ., Xहै, और o


टास्क 11 - सटोर स्क्वायर

उत्पादन Sator वर्ग :

SATOR
AREPO
TENET
OPERA
ROTAS

कोई भी पत्र लोअरकेस या अपरकेस हो सकता है, इसलिए

SatOR
aRePO
tenet
OPERa
RoTaS

मान्य आउटपुट भी है।

कोई इनपुट नहीं है।


टास्क 12 - प्रधान ट्वीट

कोई इनपुट न लें, लेकिन 140 बाइट प्रिंट करने योग्य ASCII स्ट्रिंग का उत्पादन करें जिसमें 95 प्रिन्ट ASCII वर्णों में से कम से कम एक हो। (इसलिए 45 अक्षर डुप्लिकेट होंगे।)

इस स्ट्रिंग में सभी 140 बाइट्स के वर्ण कोडों का योग एक सोफी जर्मेन प्राइम होना चाहिए , अर्थात एक अभाज्य संख्या pऐसी है जो 2p+1प्रधान भी है। अंतरिक्ष के लिए वर्ण कोड 32, 33 के लिए !, 34 के लिए ", और इतने पर 126 के लिए है ~। इस राशि की गणना अजगर के रूप में की जा सकती है sum(map(ord, myString))

एक उदाहरण आउटपुट है:

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

वर्ण कोड योग 12203 का अभिप्राय है जिसका संबंधित सुरक्षित प्राइम 24407 है।


7
मैं प्रभावित होऊंगा अगर कोई वास्तव में 140 बाइट्स से कम में सब कुछ हल करने का प्रबंधन करता है, यहां तक ​​कि सीजाम / पायथ के साथ
घातक।

9
मैं में सम्मानित होने के लिए सम्मानित किया जाता है .a नी ईबे ओ.टी. डेरोनोह मा मैं ... आपकी चुनौती। : पी
एलेक्स ए।

क्या परिणाम आउटपुट पर प्रिंट होने के बाद किसी त्रुटि के साथ समाप्त होने की अनुमति है?
20

1
हमें बाइट्स को importएस से कैसे गिनना चाहिए ? मान लें कि मैं 5 फ़ंक्शन लिखता हूं जहां 2 को एक ही मॉड्यूल (जैसे import Math) की आवश्यकता है, क्या यह दो बार गिना जाता है?
निम्मी

3
मैं इस विषय को ऑफ-टॉपिक के रूप में बंद करने के लिए मतदान कर रहा हूं क्योंकि यह भागों के बीच अपर्याप्त बातचीत के साथ
20

जवाबों:


10

Pyth, 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) जोड़ें । इनपुट के प्रत्येक अक्षर को उस स्ट्रिंग में उसकी उपस्थिति की गिनती में मैप करें। ( /L ... z)। योग। ( s)।

टास्क 5: 16 बाइट्स

u+"Alex "_GhQ".A

प्रदर्शन

के साथ शुरू "A.", रिवर्स और एक जोड़ने "Alex "शुरू करने के लिए, इनपुट + 1 बार।

टास्क 7: 13 बाइट्स

}Y-RTsMM./sMz

इनपुट स्ट्रिंग को 1-अंकीय संख्याओं की सूची में परिवर्तित करें ( sMz)। सभी विभाजन फॉर्म ( ./)। प्रत्येक विभाजन के प्रत्येक तत्व को जोड़ो ( sMM)। प्रत्येक सबलिस्ट ( -RT) से सभी 10s निकालें । जाँच करें कि क्या खाली सूची समग्र सूची ( }Y) में है या नहीं, यह जाँच कर किसी भी उदात्त व्यक्ति को खाली नहीं किया जाएगा ।

टास्क 8: 11 बाइट्स

*3h%%CQC\Ç4

प्रदर्शन

मोडुलो जादू। संख्या में परिवर्तित करें ( CQ), इसे mod 199 ( C\Ç= 199) लें, और उस mod 4 को लें। फिर 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

CJam, 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 बाइट बचाने के लिए jimmy23013 को धन्यवाद।

q~$~\->

परीक्षण सूट।

इनपुट CJam- शैली की सूची होने की उम्मीद है।

यह काफी सीधा है: जाँच करें कि सबसे बड़ा पक्ष अन्य दो के योग से छोटा है या नहीं। या समकक्ष, यह जांचें कि सबसे छोटा पक्ष अन्य दो के अंतर से अधिक लंबा है:

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 बाइट बचाने के लिए jimmy23013 का धन्यवाद।

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

परीक्षण सूट।

यह विचार एक स्ट्रिंग बनाने का है जिसमें उनके प्रत्येक ऑर्थोगोनल लाइनों में से प्रत्येक के लिए एक बार FILTHE अक्षर शामिल हैं। यह कुछ अजीब स्ट्रिंग हेरफेर के माध्यम से किया जाता है:

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 (लाइनफीड) के साथ वर्ण को कुल रीसेट करना था , और फिर अंत में जांच लें कि हमारे पास वास्तव में स्टैक पर वह चरित्र है, और संख्या 10 नहीं। यह काम करता है, आदि। क्योंकि पूर्णांक शून्य और वर्ण शून्य (शून्य बाइट) दोनों मिथ्या हैं:

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

इसका परीक्षण यहां करें। (परिणाम के लिए नैदानिक ​​आउटपुट के साथ।)

'वहाँ के बाद unprintable <DEL>(0x7F) है, जो SE स्ट्रिप्स आउट। कॉपी-पेस्ट करने के लिए, इस संस्करण का उपयोग करें:

'~),32>_51>'d

मुद्रित स्ट्रिंग है

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

अर्थात्, इसमें सभी वर्णों में से एक रन होता है, जिसके बाद एक और रन होता Sहै ~, इसके बाद एकल होता है d। वर्ण कोडों का योग 12203 है। मैंने इसे थोड़ा परीक्षण और त्रुटि के माध्यम से पाया।

'~),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

@ jimmy23013 ओह्ह्ह, मैं भूलती रहती हूं कि हमारे पास e=ये दिन हैं।
मार्टिन एंडर

मैं उम्मीद कर रहा था कि 20 वर्णों में # 5 कैसे करें, इससे पहले कि आपको कुछ पोस्ट करने के लिए पर्याप्त उत्तर मिलें।
पीटर टेलर

19

Pyth, 138 बाइट्स में 9 कार्य

इसमें काफी समय लगा।

मुझे लगता है कि 9 कार्य Pyth की सीमा है। 160 बाइट्स में अगले सबसे छोटे कार्यक्रम (सटोर स्क्वायर) परिणामों को शामिल करना। गोइंग 20 बाइट्स काफी संभावना नहीं है। 2 या 3 कार्य हैं जो थोड़े बदसूरत हैं और शायद इन्हें छोटा किया जा सकता है, लेकिन कुल मिलाकर मैं समाधानों से काफी प्रसन्न हूं।

टास्क 1 - क्या तीन नंबर एक त्रिभुज बना सकते हैं ?, 8 बाइट्स

>FsMc2SQ

इसे ऑनलाइन आज़माएँ: नियमित इनपुट या टेस्ट सूट

टास्क 2 - निकटतम दस लाख, 14 बाइट्स

ho.a-^T6NsM.pz

इसे ऑनलाइन आज़माएँ: नियमित इनपुट या टेस्ट सूट

टास्क 4 - FILTHE लेटर्स, 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

TI-BASIC, 728 830 बाइट्स में 11 12 कार्य

टास्क 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

एक तार के लिए संकेत। मान लेता है कि C और L या तो अपरिभाषित हैं या 0 हैं।

टास्क 4 35 बाइट्स में

: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

: 3 ^ ((Ans <7) (Ans-3 (Ans >3 ) ( For (Y, ,1,1): Disp sum (seq ((5-real (AnsX + Ans𝑖Y)) -3imag (AnsX + Ans𝑖Y)) ₁₀ ^ ( एक्स + 1), एक्स, ⁻1,1: अंत

इनपुट में एक नंबर है Ans

टास्क 7 36 36 बाइट्स में

: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

अंकों की सूची के लिए संकेत स्ट्रिंग।

टास्क 8 29 बाइट्स में

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

इनपुट में एक स्ट्रिंग है Ans

83 बाइट्स में टास्क 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

टास्क 12 77 बाइट्स में

... Ans + "tvm_I% LinReg (ax + b) DS <(getKeyconj (1-PropZTest (dayOfWk) (मैनुअल-फिट C / YANOVA) (* पंक्ति (HorizRegEnnarchive [J]? # $ &'', .234567890 >:? @GBQX \^) _`qw {|} ~

या हेक्स के रूप में:

72702ABB21FFDBADBB25BB3EEF06EF16
6331BB5917746201BB695C092DBBD2BB
D3BBD4AEAE2B3A323334353637383930
3EBBD66A6CAFBBD147425158BBD7F0BB
D9BBD5BBC1BBC708BBD809BBCF

इनपुट एक स्ट्रिंग है जिसमें शामिल "है Ans

यह वास्तव में TI-BASIC में असंभव है। यह संभव है कि एक मूल कार्यक्रम को संपादित करें और सभी 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)। इसके बाद, मैं के लिए bruteforce मूल्यों के लिए एक कार्यक्रम में लिखा था 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

रूबी, 280 बाइट्स (गैर-प्रतिस्पर्धी) में 4 कार्य

यह केवल एक प्रयास है, मैं बाद में कार्य करता रहूंगा (और मौजूदा लोगों को उम्मीद है कि गोल्फ को)।

कार्य 1

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

टास्क २

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

TI-BASIC, 994 बाइट्स में 12 कार्य

सभी को TI समूह फ़ाइल ( .8xg ) के रूप में डाउनलोड करें

(अनुरोध के अनुसार स्पॉयलर टैग जोड़े गए।)

टास्क 1 - क्या तीन नंबर एक त्रिकोण बना सकते हैं? - 7 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

:2max(Ans)<sum(Ans

टास्क 2 - निकटतम मिलियन तक - 114 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 - FILTHE लेटर्स - 34 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

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

टास्क 5 - एलेक्स रिकर्सिव ए - 107 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

:.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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

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

टास्क 9 - ब्रैकेट आर्ट - 86 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

:".
: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 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

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

टास्क 12 - प्राइम ट्वीट - 151 बाइट्स

TI-83 + प्रोग्राम फ़ाइल ( .8xp ) के रूप में डाउनलोड करें

: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 में टास्क # 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]

PPCG में आपका स्वागत है। आप अजगर 3 में पाएंगे कि आप अपने कुछ कथन एक पंक्ति में रख सकते हैं उदाहरण के लिए आप यह लिख सकते हैं x=10;print(x)कि यह आपके कुछ इंडेंट किए गए अनुभागों में मदद करेगा।
जार्ज
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.