ईस्ट में क्विकेस्ट फॉक्स

Question

हैलो दुनिया की भावना में ! सं पुनरावृत्ति के साथ

एक प्रोग्राम लिखें जो स्ट्रिंग को "आलसी कुत्ते पर त्वरित भूरे लोमड़ी कूदता है" को वैकल्पिक न्यूलाइन के साथ प्रिंट करता है। पूरे कार्यक्रम को किसी भी वर्ण को दोहराना नहीं चाहिए।

ध्यान दें कि मुद्रित किया जाने वाला स्ट्रिंग दोहराए जाने वाले वर्ण करता है , इसलिए आपको किसी भी तरह उस सीमा के आसपास पहुंचना होगा।

ध्यान दें कि जीतने की स्थिति लोकप्रियता-प्रतियोगिता है , यानी उच्चतम-वोट वाली उत्तर जीत।

अपडेट: इसे थोड़ा आसान बनाने के लिए, पुनरावृत्ति की अनुमति है लेकिन आपको इसे कम से कम करने का प्रयास करना होगा। कुछ पुनरावृत्ति वाले कार्यक्रमों पर कम (या नहीं) दोहराव वाले कार्यक्रमों को वरीयता दी जाती है।

Comments

मुझे डर है कि यह बहुत कठिन है, अगर एकमुश्त असंभव नहीं है। Hello world!बिना पुनरावृत्ति काफी कठिन थी कि लोगों को बहुत ही आला भाषाओं का सहारा लेना पड़ा या एकमुश्त पूरी तरह से कार्य को हल नहीं किया जा सका, और यह उस पर बहुत कठिन है।

— फायरफली

खैर, यह सुनिश्चित है कि सी में असंभव है। आप फ़ंक्शन को कॉल नहीं कर सकते हैं या मैक्रोज़ का उपयोग नहीं कर सकते हैं।

— ओबेरॉन

मैं अनुशंसा करता हूं: दिए गए स्ट्रिंग को यथासंभव दोहराया जाने वाले वर्णों के साथ प्रिंट करें ।

— प्रिमो

@FireFly को जवाब देने में देर नहीं लगी :)

— SirDarius

@tmartin नहीं, यह नहीं है। जुड़ा हुआ प्रश्न पुनरावृत्ति का पक्षधर है जबकि वर्तमान प्रश्न उसे दंडित करता है।

— गेरिट

Answer 1

Microsoft Word 97 से 2003 तक (और कुछ मैक वर्ड संस्करण) - 10 अक्षर

कोई पुनरावृत्ति नहीं, लेकिन काफी ऐनक से मेल नहीं खाता - 10 वर्ण:

=rand(2,1)

आउटपुट:

The quick brown fox jumps over the lazy dog.
The quick brown fox jumps over the lazy dog.

पूंजीकरण और विराम चिह्न, एक पुनरावृत्ति के अलावा अन्य चश्मा मिलान करता है - 10 वर्ण:

=rand(1,1)

आउटपुट:

The quick brown fox jumps over the lazy dog.

Microsoft Word के नए संस्करण उपयोग करते हैं =rand.old(1,1)जो डुप्लिकेट dऔर 1।

{=SUM(3,-2)}रैंड () के इनपुट के रूप में फ़ील्ड का उपयोग करने का एक तरीका हो सकता है, लेकिन मेरी स्थापना फ़ील्ड के साथ समस्या हो रही है - अर्थात्, वे काम नहीं कर रहे हैं ...

"बॉब" ने पुष्टि की है कि {=SUM(3,-2)}(कुछ कठिनाई के साथ) पहले को बदलने के लिए इस्तेमाल किया जा सकता है 1, लेकिन =दोहराया जाता है ...

=rand({=SUM(3,-2)},1)

बशर्ते आपको SUMपहले अपडेट करने के लिए वर्ड मिले , आउटपुट है:

The quick brown fox jumps over the lazy dog.

Comments

मुझे यकीन नहीं है कि दिए गए वाक्यविन्यास सही हैं, लेकिन मेरे पास कोई भी सिस्टम नहीं है जो इसे परीक्षण करने के लिए पुराना है। नए संस्करणों के लिए हालांकि, यह होना चाहिए =rand.old(1,1)। मुझे लगता है कि आप पहले 1 को बदलने के लिए 3-2 का उपयोग करने की कोशिश कर रहे हैं, लेकिन यह मेरे लिए 2010 में rand.old या रैंड के साथ काम करना प्रतीत नहीं होता है।

— इसिज़ी

मेरे पास यहां कोई सिस्टम नहीं है, जब मैं घर पहुंचूंगा तो जांच करूंगा। { ... }सीमांकक के रूप में ब्रेसिज़ का उपयोग करने की आवश्यकता हो सकती है , लेकिन मुझे पूरा यकीन है कि किसी भी फ़ंक्शन में अभिव्यक्ति का उपयोग किया जा सकता है। यदि नहीं, तो मैं संशोधित करूँगा!

मैं {=SUM(3,-2)}वर्ड 2007 में कार्यों की पुष्टि कर सकता हूं । लेकिन विधि थोड़ा जटिल है। सबसे पहले, आपको एक फ़ील्ड कोड (Ctrl + F9) डालना होगा। फिर, राइट क्लिक करें => फ़ील्ड संपादित करें => सूत्र => उन्नत => सूत्र में टाइप करें। क्योंकि इसे सीधे टाइप करना किसी भी कारण से काम नहीं करता है। अब फील्ड में क्लिक करें और Shift + F9 से मूल्यांकन करें। और =rand.old()

— बॉब

क्या इसका उपयोग करना आवश्यक है =SUM, या बस सीधे अंकगणित ऑपरेटरों का उपयोग कर सकते हैं, जैसा कि 3-2?

— सुपरकैट

@ सुपरकैट - हमने कोशिश की है, और किसी कारण से, शब्द अभिव्यक्ति को पैरामीटर के रूप में स्वीकार नहीं करता है =rand(), उदाहरण के =rand(3-2,1)लिए सही होगा। मैं वास्तव में कोशिश नहीं की =rand({=3-2},1), लेकिन यह उसी तरह से काम करना चाहिए, जिसके दोहराव के साथ =।

Answer 2

स्कल्प्टिंग - 36 वर्ण

덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬首坼

(खाली इनपुट की उम्मीद है)

स्पष्टीकरण:

Push the string "the quick brown ,fo,x, jumps ove,r the lazy dog,"
덆둥긇굵늖꽫긆깲닷덮긂롦닲롸껂걪덖륰댲걯덦넬댢건늆넠닆굺뎒걤닶댬
Retrieve last character from the string (",")
首
Regular expression string-split
坼

परिणाम सूची है ["the quick brown ", "fo", "x", " jumps ove", "r the lazy dog", ""], जो आउटपुट के लिए स्वचालित रूप से एक स्ट्रिंग में समाप्‍त हो जाती है।

Comments

मैं 105 बाइट्स गिनता हूं, कई रिपीट का जिक्र नहीं करता। उदाहरण के लिए, चार्ट 235 का उपयोग 20 बार किया जाता है।

— Primo

"किसी भी वर्ण को दोहराना नहीं चाहिए ", "किसी भी बाइट को दोहराना नहीं चाहिए"।

— प्लूटोर

मुझे आश्चर्य नहीं है टिमवी, आपकी खुद की भाषा "कोई दोहराया वर्ण" चुनौतियों के लिए एकदम सही है।

— पियरे अरलाउड

Answer 3

पर्ल 6 (76 वर्ण, कोई युगल नहीं)

स्क्रिप्ट (बोर्ड सॉफ्टवेयर द्वारा मंगाई जाएगी, लेकिन एन स्पेस थिन स्पेस और एनएल और एलएफ और टैब के लिए है)

say　EVAL    lc q{<the Quiţk Brown fïX jUmpS ůvťɲ Tɨå ìšzY dOg>~&(127.CHR
x
43)}

• यह EVAL (फिर से इसे अपरकेस बनाने के लिए धन्यवाद) और <foo bar>उद्धरण शब्दों का उपयोग करता है जो शब्द विभाजकों के रूप में सभी विशेष अंतरिक्ष वर्णों का समर्थन करता है।
• say अंतरिक्ष का उपयोग करते हुए तार की सूची में शामिल होता है, यहाँ अच्छी तरह से काम करता है :)
• इसके बाद मैं उपयोग ~&और 127 से सादी एस्किसी में फेरबदल करने के लिए। अतिरिक्त जटिलता: 'Ŭ'.lcहो जाता है 'ŭ'तो यह है कि हो जाता है एक sके बजाय rमैं की जरूरत है। 128 कुछ अतिरिक्त समय जोड़ने से मदद मिलती है :)

बैकस्लैश के साथ एक संस्करण यूनिकोड वर्णों के बजाय बच निकलता है ताकि वे सभी अलग-अलग दिख सकें

say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}

यदि आप सत्यापित करना चाहते हैं कि वे सभी अद्वितीय हैं, तो इस स्क्रिप्ट का उपयोग करें (मैं Qb"string"केवल बैकस्लैश एस्केप के साथ मूल उद्धरण का उपयोग करता था)

.say for 
Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"
.comb.Bag.grep(*.value > 1).map: {.key.ord.base(16) ~ " $_"  }

या इसे सीधे उपयोग करके निष्पादित करें

EVAL Qb"say\x[3000]EVAL\x[9]lc q{<the\x[2003]Qui\x[163]k\x[2004]Brown\x[2005]f\x[EF]X\x[2006]jUmpS\x[2007]\x[16F]v\x[165]\x[272]\x[2008]T\x[268]\x[E5]\x[2009]\x[EC]\x[161]zY\x[200A]dOg>~&(127.CHR\x[0A]x\x[0D]43)}"

Answer 4

PHP - 67 बाइट्स

<?echo$g^¶¥€¼½ˆ•.${~˜}=ÂÍåœÌýü¡¦Åþ¾’‹Ï†£‘ƲáºëÓâæݗߙ󖎸·³ø‰ï®ÜØÔ;

कॉपी-पेस्ट, लैटिन -1 (एएनआई) के रूप में सहेजें।

यह एक 7-बाइट एक्सोर-सिफर है, जो ¶¥€¼½ˆ•नमक के लिए स्ट्रिंग का उपयोग करता है ।

एक दोहराया चरित्र $:।

Comments

<?=जब आप पहले से ही संक्षिप्त टैग का उपयोग कर रहे हैं, तो आप इसे एक और 3 पात्र को छोटा कर सकते हैं

— क्रिस्टोफ़र साल्-स्टॉरगार्ड

आह, क्षमा करें, बस आपने पहले से ही उपयोग किया देखा =

— क्रिस्टोफ़र सॉल-स्टॉरगार्ड

@KristofferSHansen मुझे लगता है eval('Return$g=binary;')कि $पुनरावृत्ति से बचने के लिए कुछ क्रिप्टोकरंसी (शायद थोड़ा उलटा) में उपयोग करना संभव =होगा , और फिर इसे भी मुक्त कर दिया जाएगा।

— प्राइमो

उद्घाटन टैग को बाइट की गिनती में शामिल नहीं किया जाना चाहिए।

— TecBrat

@TecBrat अंतिम ;टैग को बंद करके बदला जा सकता है: क्या इसे भी नहीं गिना जाना चाहिए? संक्षेप में, मैं असहमत हूं। यदि आपका कोड जैसा है वैसा नहीं चलता है, तो यह एक पूर्ण कार्यक्रम नहीं है।

— प्राइमो

Answer 5

हास्केल, 71 अक्षर

map(\c->chr$mod(ord c)128)"tŨeఠquiţkĠbŲɯwnȠfѯxРjѵŭŰsܠůvťѲठѴѨѥਠlšzyଠɤկg"

अभी तक एक और 7-बिट modulo समाधान।

बार-बार वर्ण:

c 3
d 2
m 2
o 2
r 2
( 2
) 2
" 2

हास्केल के साथ पहली बार गोल्फ; भाषा में कोई भी अधिक अनुभवी, बेहिचक सुधार कर सकता है। मैं एक चर का उल्लेख करने से बचने के लिए अनाम फ़ंक्शन को बिंदु-मुक्त करना चाहता था, लेकिन मुझे नहीं पता कि यह शुद्ध लाभ होगा या नहीं।

Answer 6

जेएस, 35

btoa("¶ªº'$nº0ú1驲ޮØ^¬òv")

(हाँ ... दोहरा उद्धरण दोहराया गया है। और आउटपुट खराब है। यह अभी तक एक गंभीर जवाब नहीं है।)

Answer 7

बैच स्क्रिप्ट: 7 बाइट्स

echo %1

यदि स्क्रिप्ट का नाम hello.bat है, तो इसे कमांड लाइन पर टाइप करें:

hello.bat "The quick brown fox jumps over the lazy dog"

Comments

यह है, यह ऐसा है ... असंवेदनशील मामला! (मेरा मतलब है, यह वास्तव में क्या सवाल पूछता है प्रिंट नहीं करता है।)

— श्री लिस्टर

कमांड लाइन पर टाइप करके, आप वर्ण दोहरा रहे हैं।

— जेरिट