अपनी भाषा को व्यर्थ बनाओ


191

अपनी भाषा में कुछ कोड लिखने का प्रयास करें और इसे प्रोग्रामिंग भाषा होने के हमारे मानदंड को संतुष्ट न करें ।

एक भाषा एक प्रोग्रामिंग भाषा होने के हमारे मानदंड (इस चुनौती के लिए सरलीकृत संस्करण) को संतुष्ट करती है:

  • यह किसी तरह से सकारात्मक पूर्णांकों के ट्यूपल्स का प्रतिनिधित्व करने वाले उपयोगकर्ता इनपुट को पढ़ सकता है।
  • यह इनपुट के आधार पर कम से कम दो अलग-अलग संभावित परिणामों को आउटपुट कर सकता है।
  • यह दो सकारात्मक पूर्णांक ले सकता है और उन्हें जोड़ सकता है (और परिणाम आउटपुट को प्रभावित कर सकता है)।
  • यह एक सकारात्मक पूर्णांक ले सकता है और यह तय कर सकता है कि क्या यह एक प्रमुख है (और परिणाम आउटपुट को प्रभावित कर सकता है)।
  • इस चुनौती के उद्देश्य के लिए, सामान्य चुनौती के लिए किसी भी प्रकार के आउटपुट की अनुमति उत्पादन विधि नहीं है। तो यह कोई फर्क नहीं पड़ता कि क्या कार्यक्रम संगीत का एक टुकड़ा भी खेल सकता है, या HTTP के माध्यम से पोस्ट कर सकता है, आदि।
  • अद्यतन: आप एक या कुछ आउटपुट विधियों को चुन सकते हैं, और अन्य सभी को अनदेखा कर सकते हैं। लेकिन आपको निम्नलिखित मानदंडों में हर जगह एक ही परिभाषा का उपयोग करना होगा। और अगर आपका प्रोग्राम एक से अधिक आउटपुट मेथड को डिसेबल कर सकता है - जो कि अधिक अपवोट्स को प्राप्त करता है।

इसे बनाने में सक्षम नहीं होने या सभी लूप निर्माण को अक्षम करने जैसे उदाहरण हैं, इसलिए यह व्यावहारिकता परीक्षण करने में सक्षम नहीं होगा और सुनिश्चित करें कि उपयोगकर्ता उन्हें फिर से सक्षम नहीं कर सकता है।

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

लेकिन डाला कोड इस तरह से मार डाला जाना चाहिए जैसे मानदंडों को पूरा एक भाषा:

  • सम्मिलित कोड को व्याकरणिक रूप से कुछ के समान होना चाहिए (कहते हैं कि यह निम्नलिखित मानदंडों में एक कोड ब्लॉक है) जो आम तौर पर मानदंडों को संतुष्ट करता है, जो कोई भी वाक्यविन्यास हाइलाइटर लिखना चाहता है। तो यह एक स्ट्रिंग, टिप्पणी, आदि में नहीं हो सकता
  • सम्मिलित कोड को वास्तव में निष्पादित किया जाना चाहिए, एक तरह से यह मानदंड को संतुष्ट करने वाला है। तो यह एक अप्रयुक्त फ़ंक्शन या sizeofसी में नहीं हो सकता है, आप कोड में केवल एक गैर-कार्यात्मक भाग को निष्पादित नहीं कर सकते हैं, और आप इसे अनंत लूप के बाद नहीं डाल सकते हैं, आदि।
  • आप इस तरह से उत्पन्न संभावित रूप से सही कार्यक्रमों की संख्या को सीमित नहीं कर सकते। यदि आपके द्वारा उपयोग की जा रही भाषा में पहले से ही लंबाई सीमा जैसी कोई चीज है, तो यह मानदंड को संतुष्ट नहीं करना चाहिए भले ही यह सीमा हटा दी जाए।
  • आप इनपुट / आउटपुट की सामग्री को संशोधित या "उपयोग" नहीं कर सकते, लेकिन आप उन्हें एक्सेस करने से रोक सकते हैं।
  • ये मानदंड आमतौर पर केवल स्पष्ट I / O के बिना भाषाओं पर लागू होते हैं:
    • आपके कोड को सम्मिलित किए गए कोड को उपयोगकर्ता इनपुट (जिसमें मनमानी लंबाई का पता होता है) को पुनर्निर्देशित करना चाहिए, यदि कोड ब्लॉक आमतौर पर उपयोगकर्ता इनपुट को सीधे / स्पष्ट रूप से उस भाषा में प्राप्त करने में सक्षम नहीं है जो आप उपयोग कर रहे हैं।
    • आपके कोड को सम्मिलित कोड का लौटा हुआ मान प्रिंट करना चाहिए, यदि कोई कोड ब्लॉक आमतौर पर आपके द्वारा उपयोग की जा रही भाषा में सीधे / स्पष्ट रूप से चीजों को आउटपुट करने में सक्षम नहीं है।
    • यदि आप लौटाए गए मान को प्रिंट करते हैं, और यह उस भाषा में टाइप किया जाता है जिसे आप उपयोग कर रहे हैं, तो लौटे हुए प्रकार में 2 अलग-अलग व्यावहारिक रूप से संभव मान हो सकते हैं। उदाहरण के लिए, आप प्रकार का उपयोग नहीं कर सकते हैं struct {}या struct {private:int x;}C ++ में।

यह लोकप्रियता-प्रतियोगिता है। उच्चतम मतदान मान्य उत्तर (इसलिए किसी को कोई त्रुटि नहीं मिली या सभी त्रुटियां निश्चित हैं) जीतता है।

स्पष्टीकरण

  • आपको पाठ रूप में कोड को संशोधित नहीं करना चाहिए, लेकिन कोड की व्याख्या या संकलित करने से पहले वाक्यविन्यास को बदल सकते हैं।
  • कोड चलने के दौरान आप अन्य काम कर सकते हैं। लेकिन यह मानदंड संतुष्ट नहीं करता है कारण सम्मिलित कोड के भीतर होना चाहिए। यह किसी अन्य थ्रेड के हस्तक्षेप के कारण त्रुटि कर सकता है, लेकिन न केवल दूसरे थ्रेड द्वारा मारा जा सकता है।
  • सभी चश्मा मूल रूप से इसका मतलब है कि यह व्याकरणिक रूप से मापदंड को संतुष्ट करने की संभावना होनी चाहिए अगर सभी अंतर्निहित इन्स को नहीं बदला गया लेकिन वास्तव में ऐसा नहीं हुआ। यह ठीक है अगर आप किसी भी गैर-व्याकरणिक कार्यक्षेत्र को पाते हैं, जैसे कि मापदंडों को कोड ब्लॉक में सही तरीके से पास करना, लेकिन उन्हें किसी तरह से उपयोग करने में सक्षम नहीं बनाते हैं।
  • फिर से, सम्मिलित कोड को वास्तव में निष्पादित किया जाना चाहिए। एक अनंत लूप या क्रैश के बाद कोड को "वास्तव में निष्पादित नहीं" माना जाता है, इस प्रकार मान्य नहीं है । वे उत्तर दिलचस्प हो सकते हैं, लेकिन इस साइट पर पहले से ही कुछ अन्य अनंत लूप या क्रैश प्रश्न हैं, और आपको उत्तर देने के लिए अधिक उपयुक्त मिल सकता है। यदि नहीं, तो एक नया प्रश्न पूछें। उन सवालों के उदाहरण हैं:

लीडरबोर्ड

var QUESTION_ID=61115/*,OVERRIDE_USER=8478*/;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 commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,/*getComments()*/(more_answers?getAnswers():process())}})}/*function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}*/function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),score:s.score,language:a[1],lang:jQuery('<div>').html(a[1]).text(),link:s.share_link})}),e.sort(function(e,s){var r=e.score,a=s.score;return a-r});var s={},r=1,a=null,n=1;e.forEach(function(e){e.score!=a&&(n=r),a=e.score,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",e.n=n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.score).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text())/*,s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}*/});var t=e/*[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o])*/;t.sort(function(e,s){return (e.lang.toUpperCase()>s.lang.toUpperCase())-(e.lang.toUpperCase()<s.lang.toUpperCase())||(e.lang>s.lang)-(e.lang<s.lang)});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{PLACE}}",o.n).replace("{{LANGUAGE}}",o.language).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.score).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<(?:h\d|(?!.*<h\d>)p)>\s*((?:[^,;(\s]| +[^-,;(\s])+)(?=(?: *(?:[,;(]| -).*?)?\s*<\/(h\d|p)>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;
body{text-align:left!important}#answer-list,#language-list{padding:10px;float:left}table{width:250px}table thead{font-weight:700}table td{padding:5px}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="https://cdn.sstatic.net/Sites/codegolf/all.css?v=7509797c03ea"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Score</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Sorted by Language</h2> <table class="language-list"> <thead> <tr><td></td><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{PLACE}}</td><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>


क्या मुझे इसे निष्पादित करने से पहले कोड बदलने की अनुमति है? इसके अलावा, क्या मैं दिए गए कोड को चलाने के दौरान अन्य कोड चला सकता हूं?
ब्लू

21
इससे मुझे लगता है कि वास्तव में महान पुलिस और लुटेरे चुनौती दे सकते हैं।
डंकेमेसेस

6
@DankMemes सहमत हुए। जैसा कि यह खड़ा है, यह बहुत अधिक अस्पष्ट है, और अधिकांश उत्तर एक वर्कअराउंड ढूंढकर अमान्य हो जाएंगे। इस आधार के साथ CnR रमणीय होगा।
मेगो

3
तो फिर यह कहा जा रहा है कि स्पष्ट IO के साथ भाषाओं में यह पूरी तरह से उबाऊ चीजों को पढ़ने और स्टाइन की सामग्री को त्यागने की अनुमति है। यह पूरी तरह से अनुचित खेल मैदान स्थापित करता है जहां कुछ भाषाओं को सम्मिलित कोड के लिए IO को सावधानीपूर्वक संभालने की आवश्यकता होती है, और अन्य भाषाएं आपको इसे रद्दी करने और सम्मिलित कोड में IO को अस्वीकार करने की अनुमति देती हैं।
पीटर टेलर

1
क्या हमें उस भाषा का उपयोग करने की अनुमति है जो पहले से ही अनुपयोगी है? (उदाहरण के लिए जावास्क्रिप्ट)
12M2121

जवाबों:


319

जावास्क्रिप्ट खोल

इससे भाषा पूरी तरह से अनुपयोगी हो जाएगी।

clear(this);

क्या यह अच्छा नहीं है कि स्वयं को नष्ट करने के लिए जावास्क्रिप्ट का इतना अच्छा कार्य कैसे हो सकता है?


यह बहुत आसान है, clearफ़ंक्शन पूरी तरह से एक ऑब्जेक्ट को खाली करता है। thisवैश्विक वस्तु को संदर्भित करता है जिसमें कंस्ट्रक्टर और फ़ंक्शंस सहित सब कुछ समाशोधन है ।


क्योंकि यह साफ करता है सब कुछ , कर कुछ भी , यहां तक कि, एक शाब्दिक को परिभाषित करने में कोई त्रुटि फेंक होगा भाषा पूरी तरह से बेकार बना: * आरईपीएल वातावरण नहीं की आवश्यकता है। मूल JS इंजन, स्पाइडरमोंकी इंजन (शेल नहीं ब्राउज़र) का उपयोग करता है उदाहरण उपयोग


4
यह clearफ़ंक्शन स्पाइडरमॉन्की-शेल-विशिष्ट जोड़ प्रतीत होता है, न कि सामान्य जावास्क्रिप्ट चीज़। यह निश्चित रूप से ईएस 5 कल्पना में प्रकट नहीं होता है the ग्लोबल ऑब्जेक्ट का फ़ंक्शन गुण । मैंने इसके साथ प्रयास किया nodeऔर एक "संदर्भ संदर्भ: स्पष्ट परिभाषित नहीं किया गया" मिला। क्रोम और फ़ायरफ़ॉक्स के कंसोल में, clearफ़ंक्शन केवल कंसोल को साफ़ करता है, चाहे वह किसी भी तर्क से पारित हो। या शायद आपके द्वारा उपयोग किया जाने वाला उपकरण 5.1 से अधिक पुराने ECMAScript के संस्करण के लिए संकलित है?
एको

2
क्या आप इस कथन को संशोधित कर सकते हैं कि "क्या यह अच्छा नहीं है कि जावास्क्रिप्ट के पास खुद को नष्ट करने के लिए इतना अच्छा कार्य कैसे हो"? जावास्क्रिप्ट में वह कार्य नहीं है, केवल स्पाइडरमॉनिक कार्यान्वयन करता है।
एको

1
@Anko Spidermonkey यह फ़ायरफ़ॉक्स (Spidermonkey के साथ आता है, हालांकि जावास्क्रिप्ट है, है Firefox के जे एस इंजन)। मैं नोड.जेएस, आदि के लिए बाद में एक संस्करण लिखूंगा, जब मेरे पास समय होगा
डाउनगोट

6
मुझे लगता है कि आप स्पाइडरमोंकी ( भाषा के कई कार्यान्वयनों में से एक ) के साथ जावास्क्रिप्ट (भाषा) को भ्रमित कर रहे हैं । चरम रूपक: जबकि मैं एक पागल लिख सकता था सी का कार्यान्वयन था जिसमें मानव अधिकारों की घोषणा के पूर्ण पाठ को छापने के लिए अपरिभाषित व्यवहार के सभी चालान थे, मैं शायद यह तर्क नहीं दे पाऊंगा कि मेरा सी "गोल्फ यूडीएचआर को प्रस्तुत करना" "कि बस डेरेफरेंस एक नल सूचक एक वैध सी समाधान है। :)
अंको

8
@Anko एक साइट नियम के अनुसार, एक भाषा इसके कार्यान्वयन से परिभाषित होती है। यदि कोई उत्तर कम से कम एक कार्यान्वयन में लगातार काम करता है जो प्रश्न से पहले प्रकाशित किया गया था , तो यह स्वीकार्य है। यहाँ और यहाँ देखें । (तो कोड मान्य है। लेकिन मैं उस विशिष्ट शब्द
विन्यास

169

एमेंटल

;#33!

मुझे पता है कि यह कोड गोल्फ नहीं है, लेकिन नौकरी के लिए सही उपकरण है, आप जानते हैं ...

के बाद उपयोगकर्ता का कोड डाला जा सकता है !

एमेंथमल एक दिलचस्प एसोलैंग है जो दुभाषिया को फिर से लिखने पर आधारित है । हर एक प्रतीक (बिल्ट-इन सहित) को एक मनमाना Emmental प्रोग्राम के रूप में पुनर्परिभाषित किया जा सकता है। भाषा इस सुविधा पर इतनी निर्भर करती है कि यह कोई भी लूपिंग निर्माण प्रदान नहीं करती है। इसके बजाय, आप पुनरावर्ती आदेशों को परिभाषित करते हैं जो अपनी परिभाषाओं में दिखाई देते हैं।

यह पुनर्परिभाषित होता है !, जो स्टैक से एक वर्ण को पढ़ता है, और तब स्टैक से एक स्ट्रिंग पढ़ता है जब तक कि यह एक का सामना नहीं करता है ;। फिर चरित्र को उस स्ट्रिंग द्वारा दर्शाए गए कार्यक्रम के लिए पुनर्परिभाषित किया जाता है।

इसका मतलब है, हम Emmental की लूपिंग सुविधाओं को फिर से परिभाषित करके अक्षम कर सकते हैं ! खाली प्रोग्राम के रूप में खुद को । जबकि अन्य सभी इममेंटल कोड अभी भी पूरी तरह से ठीक हैं, और एक प्रोग्रामिंग भाषा के कई मानदंड अभी भी पूरे हैं, किसी भी अधिक प्रतीकों को फिर से परिभाषित करना असंभव है। इस सुविधा के बिना (और इसलिए, लूप में सक्षम होने के बिना), Emmental अब यह परीक्षण नहीं कर सकता है कि कोई संख्या प्रमुख है या नहीं।


49
भाषा की एकल परिभाषित विशेषता को अक्षम करना: शुद्ध प्रतिभा। यह निश्चित रूप से नौकरी के लिए सही उपकरण है। +1
ETHproductions

93

पीएचपी

एक मेमोरी सीमा को 1 पर सेट करके पूरी तरह से PHP को मार सकता है।

यह पूरी तरह से मर जाएगा।

इसे इस्तेमाल करे:

<?php
    ini_set('memory_limit',1);

    //code here

यह भी किसी भी त्रुटि नहीं फेंकना चाहिए, क्योंकि उस के लिए पर्याप्त स्मृति नहीं है।

आप निर्देश के बारे में अधिक पढ़ सकते हैंmemory_limit


यदि पिछला अमान्य है, तो कोई आउटपुट बफ़र का उपयोग कर सकता है:

<?php
    ob_start();

    //code here

    ob_clear();

यह किसी भी आउटपुट को पूरी तरह से हटा देता है। चूंकि आउटपुट बफर अभी भी खुला है, कोड के बाद भी कुछ अन्य चीजें गलती से नहीं बची हैं।


@Fschmengler के विचार का उपयोग करना :

<?php
    define('OB_START_LEVEL', ob_get_level());
    ob_start(function(){return'';}, -1, PHP_OUTPUT_HANDLER_CLEANABLE);
    //or, for PHP <5.3:
    //ob_start(create_function('','return"";'), -1, PHP_OUTPUT_HANDLER_CLEANABLE);

    //code here

    while(ob_get_level() > OB_START_LEVEL) ob_clear();

यह स्वचालित रूप से शुरू किए गए आउटपुट बफर को हटाने की समस्या से बचाएगा, जिसका उपयोग आउटपुट को संपीड़ित करने के लिए किया जाएगा।

यह भी रोकता है कि आउटपुट बफ़र को हटा दिया जाता है या फ्लश किया जाता है (ब्राउज़र में भेजा जाता है)। पुन: इन्फ़ॉर्म करने के लिए, एक आउटपुट हैंडलर जोड़ा जाता है, जो हमेशा एक खाली स्ट्रिंग लौटाता है।
रनिंग ob_end_flush(); echo "Hello, world!";से कुछ भी नहीं होगा, लेकिन आउटपुट को सादे के साथ भेजेगा ob_start();

इस मुद्दे को उजागर करने के लिए @LucasTrzesniewski को धन्यवाद !


1
चूंकि आपके पास आउटपुट बफरिंग का गंभीर स्तर हो सकता है, दूसरा काम नहीं करता है। अक्सर, while(ob_get_level()) ob_end_flush();सभी आउटपुट बफ़र्स को फ्लश करने के लिए चौखटे में इस्तेमाल किया जाता है जो शायद खुले तौर पर छोड़ दिया गया हो।
फाबियन शेंगलर

@fschmengler यह स्वचालित रूप से खोले गए आउटपुट बफ़र्स के साथ समस्याओं का कारण होगा, आमतौर पर gzip का उपयोग करके आउटपुट को संपीड़ित करने के लिए उपयोग किया जाता है। जो बदले में उद्देश्य को हरा देगा।
इस्माइल मिगुएल

इस के साथ दरकिनार किया जा सकता है:ob_end_flush(); echo "Hello, world!";
लुकास Trzesniewski

8
मुझे आश्चर्य नहीं है कि PHP वोट-चार्ट के शीर्ष की ओर समाप्त हो गया :)
मंकीज़ियस

47
This shouldn't even throw any error, since there isn't enough memory for that.उस पर LOL'ed:
ETHproductions

91

वास्तविक मोड में x86 मशीन कोड (=> लगभग किसी भी डॉस कार्यक्रम)

00000000  6a 00 07 b9 00 04 30 c0  31 ff f3 aa              |j.....0.1...|
0000000c

अर्थात

push 0
pop es
mov cx,400h
xor al,al
xor di,di
rep stosb

मुझे आशा है कि आप अपनी रुकावट तालिका से बहुत अधिक संलग्न नहीं थे।


75
महोदय, अगर मैं आपको कुछ चक्रों के लिए बाधित कर सकता हूं, तो हो सकता है कि मैं समाप्त हो जाऊं ....
चमकदार 12

6
तो क्या हुआ अगर मेरे सम्मिलित कोड का पहला निर्देश है cli, और फिर मैं रुकावट तालिका को ठीक करता हूं, और कुछ अपराधों की गणना करने के लिए आगे बढ़ता हूं, आदि।
नैट एल्ड्रेडगे

3
@NateEldredge: अगला चरण रिंग 3 के लिए कोड के बाकी हिस्सों को जेल करना है, जिसमें ट्रम्पोलिन नहीं है; मैं देखूंगा कि क्या मैं एक काम करने के उदाहरण को एक साथ रखना चाहता हूं (एक और संभावना यह होगी कि पूरे एड्रेस स्पेस को स्कैन किया जाए और एनओपी-आउट सभी cli( inpऔर outpसिर्फ अच्छे उपाय के लिए), लेकिन मुझे नहीं पता कि क्या इसकी अनुमति होगी नियमों द्वारा।
मैटियो इटालिया

2
कम से कम यह खड़ा है, यह एक प्रोग्राम को सीधे स्क्रीन बफर पर लिखने से नहीं रोकेगा (जो डॉस के तहत बहुत आम था)।
जेरी कॉफ़िन

1
@NateEldredge: नियम वास्तव में इस पर स्पष्ट नहीं होते हैं, और यदि आप अधिकांश उत्तर देखते हैं, तो वास्तव में पर्यावरण में संशोधन होते हैं जो तुच्छ निर्देशों पर कुछ प्रकार के रनटाइम त्रुटि उत्पन्न करते हैं (जेएस clear(this);, पीएचपी में मेमोरी सीमा, पुनरावृत्ति) पायथन में सीमा, पायथन में सैंडबॉक्स वाला वातावरण और कई अन्य), मैं इसे एक समस्या के रूप में नहीं देखूंगा।
मट्टियो इटालिया

68

जावा

import java.io.*;
import java.lang.reflect.*;
public class Test2 {
    public static void main(String[] args) throws Exception {
        args = new String[0];
        System.setOut(new PrintStream(new ByteArrayOutputStream()));
        System.setErr(new PrintStream(new ByteArrayOutputStream()));
        System.setIn(new ByteArrayInputStream(new byte[0]));

        Field modifiersField = Field.class.getDeclaredField("modifiers");
        modifiersField.setAccessible(true);

        Class<?> fdClass = java.io.FileDescriptor.class;
        Field outField = fdClass.getDeclaredField("out");
        outField.setAccessible(true);
        modifiersField.setInt(outField, outField.getModifiers() & ~Modifier.FINAL);
        outField.set(null, new FileDescriptor());
        Field errField = fdClass.getDeclaredField("err");
        errField.setAccessible(true);
        modifiersField.setInt(errField, errField.getModifiers() & ~Modifier.FINAL);
        errField.set(null, new FileDescriptor());
        Field inField = fdClass.getDeclaredField("in");
        inField.setAccessible(true);
        modifiersField.setInt(inField, inField.getModifiers() & ~Modifier.FINAL);
        inField.set(null, new FileDescriptor());

        System.setSecurityManager(new SecurityManager(){
            private boolean exitAllowed = false;
            public void checkPermission(java.security.Permission perm) {
                String name = perm.getName();
                if(name.equals("setIO")
                        || name.equals("setSecurityManager")
                        || name.equals("writeFileDescriptor")
                        || name.equals("readFileDescriptor")
                        || name.equals("suppressAccessChecks")
                        || (perm instanceof FilePermission
                            && name.startsWith("/proc/self/fd/"))){
                    throw new SecurityException("Nope");
                }
                if(name.startsWith("exitVM") && !exitAllowed){
                    exitAllowed = true;
                    System.exit(0);
                }
            }
            public void checkExec(String cmd){
                throw new SecurityException("nope");
            }
        });

        // program here
    }
}

संपादित करें: काउंटर- countermeasures इस विशाल बना रहे हैं :(

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




10
+1 व्‍यक्तिगत रूप से / मैं वर्कअराउंड को असली डील ब्रेकर नहीं मानता, क्‍योंकि मैं लिनक्स का उपयोग नहीं करता हूं और न ही मेरे यूनिक्स ओएस में, न ही मेरे विंडोज ओएस में / proc फाइलसिस्टम है।
जेरी यिर्मयाह

67
अब तक इस चुनौती का सारांश: 1. जावास्क्रिप्ट, 12 वर्ण। 2. भावना, 6 वर्ण। 3. x86, 12 बाइट्स। 4. पायथन, 42 वर्ण। 5. जावा, 2264 चरस ! मुझे हैरानी क्यों नहीं हुई?
को बंद कर दिया

34
@ceasedtoturncounterclockwis यह इसलिए है क्योंकि जावा अधिक सुरक्षित है इसलिए इसे तोड़ना कठिन है: D
पियरे अरलाउड

62

लुआ

_ENV=""

लुआ में, _ENVवह वातावरण है जिसमें सभी वैश्विक चर, फ़ंक्शंस, टेबल आदि को स्टोर किया जाता है। इसे परिभाषित करने के लिए इसे केवल एक खाली स्ट्रिंग होना चाहिए जिसका अर्थ है कि आप कुछ भी नया परिभाषित नहीं कर सकते हैं, और सभी फ़ंक्शन और चर मिटा दिए जाते हैं। इसका मतलब है कि आप कुछ भी आउटपुट नहीं कर सकते हैं, इनपुट में ले सकते हैं, या बहुत कुछ भी कर सकते हैं।


1
_ENV=5काम करता है ? यदि हां, तो यह एक वर्ण छोटा है।
ओबिस

7
@ मिनीबिस ट्रू, लेकिन यह एक लोकप्रियता प्रतियोगिता है, न कि एक कोड लंबाई प्रतियोगिता। PS - लुआ उत्तर पर घर पर भरोसा करें।
1

लुआ के लिए +1। क्या $ _G = nil $ कम या ज्यादा समान नहीं है?
डोडी

@ डोडी नहीं, क्योंकि _G सिर्फ _ENV की एक प्रति है जिसका उपयोग आप चर और सामान को देखने के लिए कर सकते हैं - यह वास्तव में पर्यावरण नहीं है। हालाँकि, आप _G = nil कर सकते हैं और फिर पर्यावरण को _G पर सेट कर सकते हैं, और इसका वही प्रभाव होगा।
ट्रेफॉक्स

पूरी तरह से सच नहीं है। यदि आपके पास स्थानीय चर में कहीं बैकअप है, तो आप इसे पुनर्स्थापित कर सकते हैं। और आप अभी भी स्थानीय चर को परिभाषित कर सकते हैं और यहां तक ​​कि स्ट्रिंग से संबंधित कार्यों को भी कॉल कर सकते हैं!
वैल

46

शेक्सपियर प्रोग्रामिंग भाषा

Have Fun Mr Parser.

Romeo, a young man of Verona.
Juliet, a young lady of Verona.
Hamlet, another character which causes the crash.

Act I
Scene I The crash.

[Enter Romeo]
[Enter Juliet]
[Exit Hamlet]

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

PS यदि आपको पता नहीं है कि यह भाषा कैसे काम करती है, तो Google यह विस्मयकारी है।


1
तो, क्या यह एक पार्स त्रुटि या एक रनटाइम त्रुटि है?
फैबियन शेंगलर

4
@fschmengler मूल रूप से व्याख्या की गई भाषाओं के लिए समान है।
nwp

13
यदि मैं अंतिम पंक्ति के बाद कोड जोड़ता हूं, तो क्या यह वास्तव में निष्पादित करेगा ?
Sp3000

@ Sp3000 यह निश्चित रूप से कोशिश करेगा ...... यह ऐसा प्रतीत होगा जैसे कि सामान्य से बाहर कुछ भी नहीं हुआ है ... जब तक कि पार्सर दुर्घटनाग्रस्त नहीं हो जाता। :)
3.14ed_Piper

43

छोटी बात

मुझे यकीन नहीं है कि यह योग्य है:

Smalltalk := Nil.

यह ऑब्जेक्ट इंजन को लटकाते हुए पूरे रन-टाइम वातावरण को हटा देता है। इसे ठीक करने का एकमात्र तरीका प्रक्रिया को जबरन समाप्त करना और बैकअप से पुनरारंभ करना है।

उन लोगों के लिए जो नहीं जानते हैं, [विजुअल वर्क्स] स्मालटाक का काम थोड़ा अजीब है। यह मिनी-ओएस की तरह है। जब आप स्मॉलटाक शुरू करते हैं, तो आप एक "मेमोरी इमेज" को रैम में लोड करते हैं, और यह वहीं से निष्पादित होता है जहां से इसे छोड़ा गया था। संपूर्ण स्मॉलटॉक आईडीई स्मालटॉक में लिखा गया है और गतिशील रूप से परिवर्तनीय है।

विशेष रूप से, Smalltalkएक शब्दकोश है जिसमें सभी वैश्विक चर शामिल हैं। विशेष रूप से, हर बार जब आप एक नए वर्ग की घोषणा करते हैं, तो उस नाम के साथ एक वैश्विक चर बनाया जाता है, जो Classआपके नए वर्ग के लिए ऑब्जेक्ट की ओर इशारा करता है । तो करने के Smalltalkलिए सेटिंगNil (मूल रूप से नल) पूरे सिस्टम में सभी वर्गों को हटाता है। यहां तक ​​कि GUI इवेंट हैंडलर भी शिकार करते हैं।

मुझे यह पता नहीं है कि यह चर भी लिखने योग्य क्यों है। संभवतः क्योंकि यह एक वैश्विक परिवर्तनशील है, और इसलिए अपने भीतर एक प्रविष्टि के रूप में मौजूद है। (क्या आपके सिर पर अभी तक चोट लगी है? क्या मैंने उल्लेख किया है कि प्रत्येक वस्तु में एक वर्ग है, और कक्षाएं वस्तुएं हैं, इसलिए प्रत्येक वर्ग में एक वर्ग है; एक वर्ग के वर्ग को मेटाक्लास कहा जाता है, लेकिन मेटाक्लस भी एक वस्तु है, जो इसलिए है एक कक्षा...)

आप संभवतः इसे रिक्त करने के बजाय शब्दकोश को साफ़ करके एक समान प्रभाव प्राप्त कर सकते हैं । वास्तव में, सिस्टम में सभी वर्गों को हटाने के लिए आपके पास कुछ भी चीजें हो सकती हैं, जिससे आप कुछ भी करने में असमर्थ हो सकते हैं। लेकिन चूँकि वास्तविक स्मालटाक कंपाइलर भी एक वर्ग है ... जो कुछ भी भाषा को तोड़ता है वह थोड़े पूरे आईडीई को भी तोड़ देता है, इसलिए ...


यह अमान्य है यदि यह खुद को लटकाता है, लेकिन अगले आदेश को नहीं। लेकिन मैं उत्सुक हूं: क्या इसमें एक वर्ग है जो दोनों मूल्यों को एक वर्ग होने और एक सामान्य वस्तु होने के लिए हो सकता है? और एक वर्ग जो उन दोनों मूल्यों और इस नए वर्ग के हो सकते हैं? और खुद का एक वर्ग?
jimmy23013

एक स्मॉलटॉक वर्ग एक जावास्क्रिप्ट प्रोटोटाइप की तरह अस्पष्ट है। सिस्टम क्लासेस को पर्याप्त रूप से हैक करके, आप स्मॉलटॉक को मल्टीपल-इनहेरिटेंस भाषा में बदल सकते हैं। इसके अलावा, विधि कॉल ऑब्जेक्ट हैं, कोड ब्लॉक ऑब्जेक्ट हैं ... आप अपरिभाषित विधि कॉल को इंटरसेप्ट कर सकते हैं और उन्हें सामान बना सकते हैं ... यह एक बहुत ही गतिशील भाषा है। सब कुछ एक वस्तु है! आईडीई ... सहित
MathematicalOrchid

1
का इस्तेमाल किया था nilके बजाय NilPharo में।
मर्गिसिसेया

5
एक और है true become: false, लेकिन मुझे लगता है कि यह भाषा के नए संस्करणों में काम नहीं करता है। आप SmallTalk / V 286 को इस तरह मार सकते हैं।

15
“क्या मैंने उल्लेख किया है कि प्रत्येक वस्तु में एक वर्ग होता है, और कक्षाएं एक वस्तु होती हैं, इसलिए हर वर्ग में एक वर्ग होता है? एक वर्ग के वर्ग को मेटाक्लास कहा जाता है, लेकिन एक मेटाक्लास भी एक वस्तु है, जिसके कारण एक वर्ग है ... "पायथनोइस्टा के रूप में, मेरा सिर बिल्कुल भी चोट नहीं करता है। इसके विपरीत, मुझे लगता है कि मैं स्मॉलटाक के साथ घर पर सही महसूस करूंगा।
ब्लैकलाइट शाइनिंग

40

हास्केल

यहां कुछ संभावनाएं हैं।

बोरिंग विचार # 1: परिभाषित करें main कुछ भी नहीं करने के लिए । अब कोई फर्क नहीं पड़ता कि आप अन्य कोड क्या लिखते हैं, यह कभी भी निष्पादित नहीं कर सकता है। (जब तक आप इसे मैन्युअल रूप से REPL से नहीं चलाते हैं।)

बोरिंग विचार # 2: सार्वजनिक निर्यात के बिना एक मॉड्यूल को परिभाषित करें। अब कोई फर्क नहीं पड़ता कि आपका अन्य कोड क्या लिखता है, यह कभी भी निष्पादित नहीं हो सकता है।

दिलचस्प विचार: सभी आयातों को अक्षम करें।

module Fubar where
import Prelude ()
foo = foo
-- More code here.

अब आप उन कार्यों को परिभाषित कर सकते हैं जो दिखाई दे रहे हैं और चलाए जा सकते हैं ... लेकिन वे कुछ भी नहीं कर सकते हैं। सभी मानक हास्केल प्रकार और फ़ंक्शन अब छिपे हुए हैं। (कुछ चीजों के अपवाद के साथ वास्तव में भाषा में गहराई से हार्ड-वायर्ड।)

विशेष रूप से, आप किसी भी I / O का प्रदर्शन नहीं कर सकते। आप मशीन-सटीक अंकगणित भी नहीं कर सकते। (चूंकि Int, Doubleआदि अब अपरिभाषित हैं।)

आप अभी भी लैम्ब्डा-कैलकुलस फ़ंक्शन लिख सकते हैं जो हालांकि कुछ वास्तविक गणना करते हैं। आप किसी भी चीज़ में या उससे बाहर कोई डेटा प्राप्त नहीं कर सकते। लेकिन आप निश्चित रूप से एक और, अलग मॉड्यूल लिख सकते हैं जो कॉल करता हैFubar ऊपर करता है और I / O अपनी ओर से करता है (इस प्रकार यह साबित करता है कि कोड निष्पादित करता है और सामान करता है)।

कुछ सूक्ष्मताएँ:

  • foo = fooकिसी भी अतिरिक्त आयात को रोकने के लिए डमी घोषणा की आवश्यकता है। ( घोषणाओं के बाद आयात प्रकट नहीं हो सकता है ।)

  • विभिन्न गैर-मानक हास्केल भाषा एक्सटेंशन हैं जो आपको इस स्थिति से बाहर निकलने में सक्षम होंगे। लेकिन भाषा एक्सटेंशन को फ़ाइल के शीर्ष पर एक कंपाइलर प्राग्मा के साथ स्विच करना पड़ता है । (या कंपाइलर को कमांड-लाइन स्विच के साथ। मैं वास्तव में उस एक को नहीं रोक सकता!)


-0.1 उपयोग करें foobar, आपके द्वारा उपयोग की गई वर्तनी में कुछ है ... अनपेक्षित रूप से।
wizzwizz4

@ wizzwizz4 मुझे पूरा यकीन है कि "फ़ोबार" सेंसर से बचने के लिए सिर्फ "फ़ुबर" है। इसलिए मैं प्रोग्रामिंग उदाहरणों में इससे बचना चाहता हूं।
jpmc26

3
@ jpmc26 यह वास्तव में एक लंबा और प्रतिष्ठित इतिहास है, एमआईटी मॉडल ट्रेनों के समूह के माध्यम से जा रहा है, प्रलेखन में शामिल होने से पहले एक प्रोग्रामिंग बुक में लोकप्रिय हो रहा है, फिर लोकप्रिय संस्कृति में लाया जा रहा है। मुझे पूरा यकीन है कि यह एक संयोग है।
wizzwizz4

दोनों "उबाऊ विचार" अमान्य हैं क्योंकि उपयोगकर्ता कोड वास्तव में निष्पादित नहीं है। ("दिलचस्प विचार" हालांकि मान्य प्रतीत होता है)
पिपरी

40

परिशिष्ट भाग

हां, पोस्टस्क्रिप्ट एक प्रोग्रामिंग भाषा है। इसके अलावा, यह एक प्रोग्रामिंग भाषा है जहां सभी भाषा निर्माण सिस्टम-परिभाषित कार्य हैं, जिन्हें फिर से परिभाषित किया जा सकता है ...

1000 dict /Magic def
systemdict {pop Magic exch {} put} forall
Magic begin

अंग्रेजी में:

  • एक खाली 1,000-तत्व शब्दकोश बनाएं और इसे नाम दें Magic
  • हर कुंजी के systemdictलिए Magic, एक खाली कुंजी (" {}") के साथ एक ही कुंजी जोड़ें ।
  • Magicशब्दकोश स्टैक के शीर्ष पर पुश करें ।

इस क्षण से, हर पोस्टस्क्रिप्ट भाषा कमांड को कुछ भी नहीं करने के लिए परिभाषित किया गया है। AFAIK, इस स्थिति से बचना असंभव है।

(तकनीकी रूप से, आप पुरानी परिभाषाओं को "नष्ट" नहीं कर रहे हैं, आप बस उन्हें छाया दे रहे हैं। यदि आप अभी भी निष्पादित कर सकते हैं end, Magicतो शब्दकोश स्टैक को बंद कर देगा, सभी कमांडों को अन-शैडिंग कर देगा और आपको अपना जीवन वापस दे देगा। लेकिन तब से। endखुद भी छाया हुआ है ... यह अब कुछ नहीं करेगा। '

ध्यान दें कि सभी कमांड अभी भी निष्पादित करेंगे ... यह सिर्फ इतना है कि अब उन्हें कुछ भी नहीं करने के लिए परिभाषित किया गया है। आपको किसी भी प्रकार की त्रुटि नहीं होगी, यह सिर्फ इतना है कि कुछ भी नहीं होगा। (खैर, मुझे लगता है कि स्टैक ओवरफ्लो अंततः होगा ...)


यह वास्तव में थोड़े मजाकिया है ... और डरावना भी ...
ग्रिफन

34

लिनक्स / x86 (-64) के तहत निष्पादित कोई भी कार्यक्रम

यह कार्यक्रम सी में लिखा गया है, लेकिन यह लिनक्स / x86 (-32 या -64) के तहत चल रहे किसी भी कार्यक्रम के निष्पादन को बाधित कर सकता है। जिस प्रोग्राम को आप बाधित करना चाहते हैं, उसे आप कमांड-लाइन इनवोकेशन के लिए प्रस्तुत करते हैं।

यह लक्ष्य प्रोग्राम को किसी भी आउटपुट को उत्पन्न करने से रोकने के लिए डीबगर API का उपयोग करता है। विशेष रूप से, सभी सिस्टम कॉल जो प्रक्रिया के बाहर दुनिया के लिए कुछ संचार कर सकते हैं (सबसे स्पष्ट रूप से write, निश्चित रूप से, लेकिन openएक फ़ाइल बनाते समय, सॉकेट एपीआई के थोक, killजब एक और प्रक्रिया पर लागू होता है, ...) विफल हो जाएगा। मानो वे बेमिसाल थे। _exitकी अनुमति है, लेकिन निकास कोड एक शून्य के साथ ओवरराइट किया गया है।

इस उत्तर के पिछले संस्करण के विपरीत, कई कार्यक्रम इन शर्तों के तहत पूरा करने के लिए लगभग चला सकते हैं; यह सिर्फ इतना है कि उनका सारा काम बर्बाद हो जाता है। उदाहरण के लिए, यदि आप ./no-syscalls /bin/ls(GNU कोरुटिल्स को मानते हैं ls) यह पूरी निर्देशिका को पढ़ता है और इसे प्रारूपित करता है, और तब writeआउटपुट उत्पन्न करने के लिए सभी कॉल विफल हो जाते हैं। (कुछ भी जो एक द्विदिश संचार चैनल खोलने की आवश्यकता है, हालांकि, जैसे कि सभी X11 क्लाइंट, उस बिंदु पर विफल होंगे। मैंने अनुमति देने के बारे में सोचा था socketलेकिन नहीं send, लेकिन यह कमियां खुलने की संभावना थी।)

व्यवहार को ट्विक करने के लिए कई कमांड-लाइन विकल्प हैं;

-a  log allowed system calls
-d  log denied system calls
-e  deny everything, not just output
-S  permit writes to stderr

गतिशील रूप से लिंक किए गए प्रोग्राम डायनेमिक लिंकर -eमोड से बाहर नहीं निकलेंगे । -Sस्पष्ट रूप से नीति में एक बहुत बड़ा छेद खुलता है, लेकिन यह कुछ भी काम नहीं करने के बारे में विलाप करने वाले कार्यक्रमों को देखने के लिए मनोरंजक हो सकता है, जैसे

$ ./no-syscalls -daeS /bin/ls
syscall 59...
syscall 59 = 0
syscall 12 (denied) = -38
syscall 21 (denied) = -38
syscall 9 (denied) = -38
syscall 20...
/bin/ls: error while loading shared libraries: cannot create cache for search path: Cannot allocate memory
syscall 20 = 107
syscall 231...
Program exited, status = 0

आपको लॉग आउटपुट को /usr/include/asm*/unistd.hदूसरी विंडो में खुले में पढ़ना होगा , क्योंकि यह पहले से ही काफी लंबा है।

अफसोस की बात है, डिबगर इंटरफेस का उपयोग करता है कि यह केवल यूनिक्स कार्यान्वयन में कमजोर रूप से सुसंगत हैं, और आंतरिक रूप से सीपीयू-विशिष्ट हैं। इसे अन्य CPU आर्किटेक्चर (बस उपयुक्त परिभाषाओं को जोड़ना SYSCALL_*_REG) में पोर्ट करना अपेक्षाकृत सरल होगा , और संभवत: इसे किसी भी यूनिक्स के साथ पोर्ट करना संभव है ptrace, लेकिन आपको डायवर्जन से निपटने के साथ-साथ बड़े पैमाने पर श्वेतसूची के साथ मिलाना पड़ सकता है। में है ptrace

#define _GNU_SOURCE 1
#include <stddef.h>
#include <sys/types.h>
#include <sys/mman.h>
#include <sys/ptrace.h>
#include <sys/stat.h>
#include <sys/syscall.h>
#include <sys/user.h>
#include <sys/wait.h>
#include <errno.h>
#include <fcntl.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#if defined __linux__
# define SYS_unimplemented -1L
# if defined __i386__
#  define SYSCALL_NUMBER_REG regs.orig_eax
#  define SYSCALL_ARG1_REG   regs.ebx
#  define SYSCALL_ARG2_REG   regs.ecx
#  define SYSCALL_ARG3_REG   regs.edx
#  define SYSCALL_ARG4_REG   regs.esi
#  define SYSCALL_RESULT_REG regs.eax
# elif defined __x86_64__
#  define SYSCALL_NUMBER_REG regs.orig_rax
#  define SYSCALL_ARG1_REG   regs.rdi
#  define SYSCALL_ARG2_REG   regs.rsi
#  define SYSCALL_ARG3_REG   regs.rdx
#  define SYSCALL_ARG4_REG   regs.r10
#  define SYSCALL_RESULT_REG regs.rax
# else
#  error "Need to know system call convention for this CPU"
# endif
#else
# error "Need to know system call convention for this OS"
#endif

static long
xptrace(int request, pid_t pid, void *addr, void *data)
{
  errno = 0;
  long rv = ptrace(request, pid, addr, data);
  if (rv == -1 && errno) {
    perror("ptrace");
    if (pid != 0) kill(pid, SIGKILL);
    exit(1);
  }
  return rv;
}
#define GET_REG_(pid, x) \
  xptrace(PTRACE_PEEKUSER, pid, (void*)offsetof(struct user, x), 0)
#define GET_REG(pid, x) GET_REG_(pid, SYSCALL_##x##_REG)
#define SET_REG_(pid, x, v) \
  xptrace(PTRACE_POKEUSER, pid, (void*)offsetof(struct user, x), (void*)v)
#define SET_REG(pid, x, v) SET_REG_(pid, SYSCALL_##x##_REG, v)

/* This function defines the system-call policy.  */
static int
deny_syscall(pid_t pid, int scnum, int deny_all, int allow_stderr)
{
  switch (scnum) {
  /* These syscalls are unconditionally allowed (when not in -e mode);
     they perform input, or change only process-local state. */
#ifdef SYS_access
  case SYS_access:
#endif
#ifdef SYS_alarm
  case SYS_alarm:
#endif
#ifdef SYS_arch_prctl
  case SYS_arch_prctl:
#endif
#ifdef SYS_brk
  case SYS_brk:
#endif
#ifdef SYS_capget
  case SYS_capget:
#endif
#ifdef SYS_clock_getres
  case SYS_clock_getres:
#endif
#ifdef SYS_clock_gettime
  case SYS_clock_gettime:
#endif
#ifdef SYS_clock_nanosleep
  case SYS_clock_nanosleep:
#endif
#ifdef SYS_close
  case SYS_close:
#endif
#ifdef SYS_dup
  case SYS_dup:
#endif
#ifdef SYS_dup2
  case SYS_dup2:
#endif
#ifdef SYS_dup3
  case SYS_dup3:
#endif
#ifdef SYS_epoll_create
  case SYS_epoll_create:
#endif
#ifdef SYS_epoll_create1
  case SYS_epoll_create1:
#endif
#ifdef SYS_epoll_ctl
  case SYS_epoll_ctl:
#endif
#ifdef SYS_epoll_ctl_old
  case SYS_epoll_ctl_old:
#endif
#ifdef SYS_epoll_pwait
  case SYS_epoll_pwait:
#endif
#ifdef SYS_epoll_wait
  case SYS_epoll_wait:
#endif
#ifdef SYS_epoll_wait_old
  case SYS_epoll_wait_old:
#endif
#ifdef SYS_eventfd
  case SYS_eventfd:
#endif
#ifdef SYS_eventfd2
  case SYS_eventfd2:
#endif
#ifdef SYS_faccessat
  case SYS_faccessat:
#endif
#ifdef SYS_fadvise64
  case SYS_fadvise64:
#endif
#ifdef SYS_fadvise64_64
  case SYS_fadvise64_64:
#endif
#ifdef SYS_fanotify_init
  case SYS_fanotify_init:
#endif
#ifdef SYS_fanotify_mark
  case SYS_fanotify_mark:
#endif
#ifdef SYS_fgetxattr
  case SYS_fgetxattr:
#endif
#ifdef SYS_flistxattr
  case SYS_flistxattr:
#endif
#ifdef SYS_fstat
  case SYS_fstat:
#endif
#ifdef SYS_fstat64
  case SYS_fstat64:
#endif
#ifdef SYS_fstatat64
  case SYS_fstatat64:
#endif
#ifdef SYS_fstatfs
  case SYS_fstatfs:
#endif
#ifdef SYS_fstatfs64
  case SYS_fstatfs64:
#endif
#ifdef SYS_ftime
  case SYS_ftime:
#endif
#ifdef SYS_futex
  case SYS_futex:
#endif
#ifdef SYS_getcpu
  case SYS_getcpu:
#endif
#ifdef SYS_getcwd
  case SYS_getcwd:
#endif
#ifdef SYS_getdents
  case SYS_getdents:
#endif
#ifdef SYS_getdents64
  case SYS_getdents64:
#endif
#ifdef SYS_getegid
  case SYS_getegid:
#endif
#ifdef SYS_getegid32
  case SYS_getegid32:
#endif
#ifdef SYS_geteuid
  case SYS_geteuid:
#endif
#ifdef SYS_geteuid32
  case SYS_geteuid32:
#endif
#ifdef SYS_getgid
  case SYS_getgid:
#endif
#ifdef SYS_getgid32
  case SYS_getgid32:
#endif
#ifdef SYS_getgroups
  case SYS_getgroups:
#endif
#ifdef SYS_getgroups32
  case SYS_getgroups32:
#endif
#ifdef SYS_getitimer
  case SYS_getitimer:
#endif
#ifdef SYS_get_kernel_syms
  case SYS_get_kernel_syms:
#endif
#ifdef SYS_get_mempolicy
  case SYS_get_mempolicy:
#endif
#ifdef SYS_getpeername
  case SYS_getpeername:
#endif
#ifdef SYS_getpgid
  case SYS_getpgid:
#endif
#ifdef SYS_getpgrp
  case SYS_getpgrp:
#endif
#ifdef SYS_getpid
  case SYS_getpid:
#endif
#ifdef SYS_getpmsg
  case SYS_getpmsg:
#endif
#ifdef SYS_getppid
  case SYS_getppid:
#endif
#ifdef SYS_getpriority
  case SYS_getpriority:
#endif
#ifdef SYS_getrandom
  case SYS_getrandom:
#endif
#ifdef SYS_getresgid
  case SYS_getresgid:
#endif
#ifdef SYS_getresgid32
  case SYS_getresgid32:
#endif
#ifdef SYS_getresuid
  case SYS_getresuid:
#endif
#ifdef SYS_getresuid32
  case SYS_getresuid32:
#endif
#ifdef SYS_getrlimit
  case SYS_getrlimit:
#endif
#ifdef SYS_get_robust_list
  case SYS_get_robust_list:
#endif
#ifdef SYS_getrusage
  case SYS_getrusage:
#endif
#ifdef SYS_getsid
  case SYS_getsid:
#endif
#ifdef SYS_getsockname
  case SYS_getsockname:
#endif
#ifdef SYS_getsockopt
  case SYS_getsockopt:
#endif
#ifdef SYS_get_thread_area
  case SYS_get_thread_area:
#endif
#ifdef SYS_gettid
  case SYS_gettid:
#endif
#ifdef SYS_gettimeofday
  case SYS_gettimeofday:
#endif
#ifdef SYS_getuid
  case SYS_getuid:
#endif
#ifdef SYS_getuid32
  case SYS_getuid32:
#endif
#ifdef SYS_getxattr
  case SYS_getxattr:
#endif
#ifdef SYS_inotify_add_watch
  case SYS_inotify_add_watch:
#endif
#ifdef SYS_inotify_init
  case SYS_inotify_init:
#endif
#ifdef SYS_inotify_init1
  case SYS_inotify_init1:
#endif
#ifdef SYS_inotify_rm_watch
  case SYS_inotify_rm_watch:
#endif
#ifdef SYS_ioprio_get
  case SYS_ioprio_get:
#endif
#ifdef SYS_kcmp
  case SYS_kcmp:
#endif
#ifdef SYS_lgetxattr
  case SYS_lgetxattr:
#endif
#ifdef SYS_listxattr
  case SYS_listxattr:
#endif
#ifdef SYS_llistxattr
  case SYS_llistxattr:
#endif
#ifdef SYS_lookup_dcookie
  case SYS_lookup_dcookie:
#endif
#ifdef SYS_lseek
  case SYS_lseek:
#endif
#ifdef SYS_lstat
  case SYS_lstat:
#endif
#ifdef SYS_lstat64
  case SYS_lstat64:
#endif
#ifdef SYS_madvise
  case SYS_madvise:
#endif
#ifdef SYS_mbind
  case SYS_mbind:
#endif
#ifdef SYS_mincore
  case SYS_mincore:
#endif
#ifdef SYS_mlock
  case SYS_mlock:
#endif
#ifdef SYS_mlockall
  case SYS_mlockall:
#endif
#ifdef SYS_mprotect
  case SYS_mprotect:
#endif
#ifdef SYS_mremap
  case SYS_mremap:
#endif
#ifdef SYS_munlock
  case SYS_munlock:
#endif
#ifdef SYS_munlockall
  case SYS_munlockall:
#endif
#ifdef SYS_munmap
  case SYS_munmap:
#endif
#ifdef SYS_name_to_handle_at
  case SYS_name_to_handle_at:
#endif
#ifdef SYS_nanosleep
  case SYS_nanosleep:
#endif
#ifdef SYS_newfstatat
  case SYS_newfstatat:
#endif
#ifdef SYS_nice
  case SYS_nice:
#endif
#ifdef SYS_oldfstat
  case SYS_oldfstat:
#endif
#ifdef SYS_oldlstat
  case SYS_oldlstat:
#endif
#ifdef SYS_oldolduname
  case SYS_oldolduname:
#endif
#ifdef SYS_oldstat
  case SYS_oldstat:
#endif
#ifdef SYS_olduname
  case SYS_olduname:
#endif
#ifdef SYS_pause
  case SYS_pause:
#endif
#ifdef SYS_perf_event_open
  case SYS_perf_event_open:
#endif
#ifdef SYS_personality
  case SYS_personality:
#endif
#ifdef SYS_pivot_root
  case SYS_pivot_root:
#endif
#ifdef SYS_poll
  case SYS_poll:
#endif
#ifdef SYS_ppoll
  case SYS_ppoll:
#endif
#ifdef SYS_prctl
  case SYS_prctl:
#endif
#ifdef SYS_pread64
  case SYS_pread64:
#endif
#ifdef SYS_preadv
  case SYS_preadv:
#endif
#ifdef SYS_prlimit64
  case SYS_prlimit64:
#endif
#ifdef SYS_pselect6
  case SYS_pselect6:
#endif
#ifdef SYS_query_module
  case SYS_query_module:
#endif
#ifdef SYS_read
  case SYS_read:
#endif
#ifdef SYS_readahead
  case SYS_readahead:
#endif
#ifdef SYS_readdir
  case SYS_readdir:
#endif
#ifdef SYS_readlink
  case SYS_readlink:
#endif
#ifdef SYS_readlinkat
  case SYS_readlinkat:
#endif
#ifdef SYS_readv
  case SYS_readv:
#endif
#ifdef SYS_recvfrom
  case SYS_recvfrom:
#endif
#ifdef SYS_recvmmsg
  case SYS_recvmmsg:
#endif
#ifdef SYS_recvmsg
  case SYS_recvmsg:
#endif
#ifdef SYS_remap_file_pages
  case SYS_remap_file_pages:
#endif
#ifdef SYS_request_key
  case SYS_request_key:
#endif
#ifdef SYS_restart_syscall
  case SYS_restart_syscall:
#endif
#ifdef SYS_rt_sigaction
  case SYS_rt_sigaction:
#endif
#ifdef SYS_rt_sigpending
  case SYS_rt_sigpending:
#endif
#ifdef SYS_rt_sigprocmask
  case SYS_rt_sigprocmask:
#endif
#ifdef SYS_rt_sigreturn
  case SYS_rt_sigreturn:
#endif
#ifdef SYS_rt_sigsuspend
  case SYS_rt_sigsuspend:
#endif
#ifdef SYS_rt_sigtimedwait
  case SYS_rt_sigtimedwait:
#endif
#ifdef SYS_sched_getaffinity
  case SYS_sched_getaffinity:
#endif
#ifdef SYS_sched_getattr
  case SYS_sched_getattr:
#endif
#ifdef SYS_sched_getparam
  case SYS_sched_getparam:
#endif
#ifdef SYS_sched_get_priority_max
  case SYS_sched_get_priority_max:
#endif
#ifdef SYS_sched_get_priority_min
  case SYS_sched_get_priority_min:
#endif
#ifdef SYS_sched_getscheduler
  case SYS_sched_getscheduler:
#endif
#ifdef SYS_sched_rr_get_interval
  case SYS_sched_rr_get_interval:
#endif
#ifdef SYS_sched_setaffinity
  case SYS_sched_setaffinity:
#endif
#ifdef SYS_sched_setattr
  case SYS_sched_setattr:
#endif
#ifdef SYS_sched_setparam
  case SYS_sched_setparam:
#endif
#ifdef SYS_sched_setscheduler
  case SYS_sched_setscheduler:
#endif
#ifdef SYS_sched_yield
  case SYS_sched_yield:
#endif
#ifdef SYS_select
  case SYS_select:
#endif
#ifdef SYS_setfsgid
  case SYS_setfsgid:
#endif
#ifdef SYS_setfsgid32
  case SYS_setfsgid32:
#endif
#ifdef SYS_setfsuid
  case SYS_setfsuid:
#endif
#ifdef SYS_setfsuid32
  case SYS_setfsuid32:
#endif
#ifdef SYS_setgid
  case SYS_setgid:
#endif
#ifdef SYS_setgid32
  case SYS_setgid32:
#endif
#ifdef SYS_setgroups
  case SYS_setgroups:
#endif
#ifdef SYS_setgroups32
  case SYS_setgroups32:
#endif
#ifdef SYS_setitimer
  case SYS_setitimer:
#endif
#ifdef SYS_setns
  case SYS_setns:
#endif
#ifdef SYS_setpgid
  case SYS_setpgid:
#endif
#ifdef SYS_setpriority
  case SYS_setpriority:
#endif
#ifdef SYS_setregid
  case SYS_setregid:
#endif
#ifdef SYS_setregid32
  case SYS_setregid32:
#endif
#ifdef SYS_setresgid
  case SYS_setresgid:
#endif
#ifdef SYS_setresgid32
  case SYS_setresgid32:
#endif
#ifdef SYS_setresuid
  case SYS_setresuid:
#endif
#ifdef SYS_setresuid32
  case SYS_setresuid32:
#endif
#ifdef SYS_setreuid
  case SYS_setreuid:
#endif
#ifdef SYS_setreuid32
  case SYS_setreuid32:
#endif
#ifdef SYS_setrlimit
  case SYS_setrlimit:
#endif
#ifdef SYS_set_robust_list
  case SYS_set_robust_list:
#endif
#ifdef SYS_setsid
  case SYS_setsid:
#endif
#ifdef SYS_set_thread_area
  case SYS_set_thread_area:
#endif
#ifdef SYS_set_tid_address
  case SYS_set_tid_address:
#endif
#ifdef SYS_setuid
  case SYS_setuid:
#endif
#ifdef SYS_setuid32
  case SYS_setuid32:
#endif
#ifdef SYS_sigaction
  case SYS_sigaction:
#endif
#ifdef SYS_sigaltstack
  case SYS_sigaltstack:
#endif
#ifdef SYS_signal
  case SYS_signal:
#endif
#ifdef SYS_signalfd
  case SYS_signalfd:
#endif
#ifdef SYS_signalfd4
  case SYS_signalfd4:
#endif
#ifdef SYS_sigpending
  case SYS_sigpending:
#endif
#ifdef SYS_sigprocmask
  case SYS_sigprocmask:
#endif
#ifdef SYS_sigreturn
  case SYS_sigreturn:
#endif
#ifdef SYS_sigsuspend
  case SYS_sigsuspend:
#endif
#ifdef SYS_socketpair
  case SYS_socketpair:
#endif
#ifdef SYS_stat
  case SYS_stat:
#endif
#ifdef SYS_stat64
  case SYS_stat64:
#endif
#ifdef SYS_statfs
  case SYS_statfs:
#endif
#ifdef SYS_statfs64
  case SYS_statfs64:
#endif
#ifdef SYS_sysfs
  case SYS_sysfs:
#endif
#ifdef SYS_sysinfo
  case SYS_sysinfo:
#endif
#ifdef SYS_time
  case SYS_time:
#endif
#ifdef SYS_timer_create
  case SYS_timer_create:
#endif
#ifdef SYS_timer_delete
  case SYS_timer_delete:
#endif
#ifdef SYS_timerfd_create
  case SYS_timerfd_create:
#endif
#ifdef SYS_timerfd_gettime
  case SYS_timerfd_gettime:
#endif
#ifdef SYS_timerfd_settime
  case SYS_timerfd_settime:
#endif
#ifdef SYS_timer_getoverrun
  case SYS_timer_getoverrun:
#endif
#ifdef SYS_timer_gettime
  case SYS_timer_gettime:
#endif
#ifdef SYS_timer_settime
  case SYS_timer_settime:
#endif
#ifdef SYS_times
  case SYS_times:
#endif
#ifdef SYS_ugetrlimit
  case SYS_ugetrlimit:
#endif
#ifdef SYS_ulimit
  case SYS_ulimit:
#endif
#ifdef SYS_umask
  case SYS_umask:
#endif
#ifdef SYS_uname
  case SYS_uname:
#endif
#ifdef SYS_unshare
  case SYS_unshare:
#endif
#ifdef SYS_uselib
  case SYS_uselib:
#endif
#ifdef SYS_ustat
  case SYS_ustat:
#endif
#ifdef SYS_wait4
  case SYS_wait4:
#endif
#ifdef SYS_waitid
  case SYS_waitid:
#endif
#ifdef SYS_waitpid
  case SYS_waitpid:
#endif
    return deny_all;

#ifdef SYS_exit
  case SYS_exit:
#endif
#ifdef SYS_exit_group
  case SYS_exit_group:
#endif
    /* Special case: exiting is allowed, even in -e mode,
       but the exit status is forced to 0. */
    SET_REG(pid, ARG1, 0);
    return 0;

#ifdef SYS_fcntl
  case SYS_fcntl:
#endif
#ifdef SYS_fcntl64
  case SYS_fcntl64:
#endif
    /* Special case: fcntl is allowed, but only for the *FD and *FL
       operations.  This is a compromise between not allowing it at
       all, which would break some interpreters, and trying to go
       through the dozens of extended ops and figure out which ones
       can affect global state.  */
    {
      int cmd = GET_REG(pid, ARG2);
      if (cmd == F_DUPFD || cmd == F_DUPFD_CLOEXEC ||
          cmd == F_GETFD || cmd == F_SETFD || cmd == F_SETFL || cmd == F_GETFL)
        return deny_all;
    }
    return 1;

#ifdef SYS_kill
  case SYS_kill:
#endif
#ifdef SYS_rt_sigqueueinfo
  case SYS_rt_sigqueueinfo:
#endif
#ifdef SYS_rt_tgsigqueueinfo
  case SYS_rt_tgsigqueueinfo:
#endif
#ifdef SYS_tkill
  case SYS_tkill:
#endif
#ifdef SYS_tgkill
  case SYS_tgkill:
#endif
    /* Special case: kill is allowed if and only if directed to the calling
       process. */
    {
      pid_t kpid = GET_REG(pid, ARG1);
      if (kpid == pid)
        return deny_all;
    }
    return 1;

#ifdef SYS_mmap
  case SYS_mmap:
#endif
#ifdef SYS_mmap2
  case SYS_mmap2:
#endif
    /* Special case: mmap is allowed if it is private or read-only.  */
    {
      int prot  = GET_REG(pid, ARG3);
      int flags = GET_REG(pid, ARG4);
      if ((flags & (MAP_SHARED|MAP_PRIVATE)) == MAP_PRIVATE)
        return deny_all;
      if (!(prot & PROT_WRITE))
        return deny_all;
    }
    return 1;

    /* Special case: open() variants are allowed only if read-only and
       not creating. */
#ifdef SYS_open
  case SYS_open:
#endif
#ifdef SYS_openat
  case SYS_openat:
#endif
#ifdef SYS_open_by_handle_at
  case SYS_open_by_handle_at:
#endif
    {
      int flags = ((scnum == SYS_open)
                   ? GET_REG(pid, ARG2)
                   : GET_REG(pid, ARG3));
      if (!(flags & O_CREAT) && ((flags & O_ACCMODE) == O_RDONLY))
        return deny_all;
    }
    return 1;

#ifdef SYS_write
  case SYS_write:
#endif
#ifdef SYS_write64
  case SYS_write64:
#endif
#ifdef SYS_writev
  case SYS_writev:
#endif
#ifdef SYS_pwrite
  case SYS_pwrite:
#endif
#ifdef SYS_pwrite64
  case SYS_pwrite64:
#endif
#ifdef SYS_pwritev
  case SYS_pwritev:
#endif
    /* Special case: optionally, the program is allowed to write to
       stderr.  This opens a gaping hole in the policy, but it can be
       quite entertaining to watch programs moan about how nothing works. */
    if (allow_stderr) {
      int fd = GET_REG(pid, ARG1);
      if (fd == 2)
        return 0;
    }
    return 1;

  default:
    /* All other system calls are unconditionally denied. */
    return 1;
  }
}

static void
usage(char *progname)
{
  fprintf(stderr, "usage: %s [-adeS] program args...\n", progname);
  fputs("\t-a  log allowed system calls\n"
        "\t-d  log denied system calls\n"
        "\t-e  deny everything, not just output\n"
        "\t-S  permit writes to stderr\n", stderr);
  exit(2);
}

int
main(int argc, char **argv)
{
  pid_t pid;
  int   status;
  int   opt;
  long  last_syscall = SYS_unimplemented;
  int   last_allowed = 0;
  int   after_execve = 0;
  int   trace_active = 0;
  int   allow_stderr = 0;
  int   deny_all     = 0;
  int   log_allowed  = 0;
  int   log_denied   = 0;

  while ((opt = getopt(argc, argv, "+adeS")) != -1) {
    switch (opt) {
    case 'a': log_allowed  = 1; break;
    case 'd': log_denied   = 1; break;
    case 'e': deny_all     = 1; break;
    case 'S': allow_stderr = 1; break;
    default:
      usage(argv[0]);
    }
  }
  if (optind == argc) {
    usage(argv[0]);
  }

  setvbuf(stdout, 0, _IOLBF, 0);
  setvbuf(stderr, 0, _IOLBF, 0);

  pid = fork();
  if (pid == -1) {
    perror("fork");
    exit(1);

  } else if (pid == 0) {
    raise(SIGSTOP); /* synch with parent */
    execvp(argv[optind], argv+optind);
    perror("execvp");
    exit(1);
  }

  /* If we get here, we are the parent. */
  for (;;) {
    pid_t rv = waitpid(pid, &status, WUNTRACED);
    if (rv != pid) {
      perror("waitpid");
      kill(pid, SIGKILL);
      exit(1);
    }
    if (!WIFSTOPPED(status)) {
      if (WIFEXITED(status))
        printf("Program exited, status = %d\n", WEXITSTATUS(status));
      else if (WIFSIGNALED(status))
        printf("Program killed by signal %d\n", WTERMSIG(status));
      else {
        printf("Un-decodable status %04x\n", status);
        kill(pid, SIGKILL); /* just in case */
      }
      exit(0);
    }
    if (WSTOPSIG(status) == SIGSTOP && !trace_active) {
      /* This is the raise(SIGSTOP) on the child side of the fork. */
      trace_active = 1;
      xptrace(PTRACE_SEIZE, pid, 0, (void*)PTRACE_O_TRACESYSGOOD);
      xptrace(PTRACE_SYSCALL, pid, 0, 0);
    }
    else if (WSTOPSIG(status) == (SIGTRAP|0x80)) {
      if (last_syscall == SYS_unimplemented) {
        last_syscall = GET_REG(pid, NUMBER);
        /* The child process is allowed to execute normally until an
           execve() succeeds.  */
        if (after_execve && deny_syscall(pid, last_syscall,
                                         deny_all, allow_stderr)) {
          last_allowed = 0;
          SET_REG(pid, NUMBER, SYS_unimplemented);
        } else {
          last_allowed = 1;
          if (log_allowed) {
            /* Log this now, we may not get another chance. */
            printf("syscall %ld...\n", last_syscall);
          }
        }
      } else {
        if (last_allowed ? log_allowed : log_denied) {
          long scret = GET_REG(pid, RESULT);
          printf("syscall %ld%s = %ld\n",
                 last_syscall, last_allowed ? "" : " (denied)", scret);
        }
        if (last_allowed && (last_syscall == SYS_execve ||
                             last_syscall == SYS_execveat)) {
          long scret = GET_REG(pid, RESULT);
          if (scret == 0)
            after_execve = 1;
        }
        last_syscall = SYS_unimplemented;
      }
      xptrace(PTRACE_SYSCALL, pid, 0, 0);
    }
    else if (WSTOPSIG(status) == SIGTRAP) {
      /* Swallow all SIGTRAPs, they are probably spurious debug events. */
      xptrace(PTRACE_SYSCALL, pid, 0, 0);
    } else {
      /* Allow all normal signals to proceed unmolested. */
      if (log_allowed) {
        printf("process received signal %d\n", WSTOPSIG(status));
      }
      xptrace(PTRACE_SYSCALL, pid, 0, (void*)(uintptr_t)WSTOPSIG(status));
    }
  }
}

1
"लक्ष्य अपने कमांड-लाइन तर्कों को पढ़ सकता है, शुद्ध संगणना कर सकता है, और 8-बिट निकास स्थिति का उत्पादन कर सकता है, लेकिन स्मृति को आवंटित करने या I / O करने में सक्षम नहीं होगा" - मुझे नहीं लगता, आप अभी भी चार मानदंडों को पूरा करते हैं । इंटेगर को कमांडलाइन तर्कों से व्याख्यायित किया जा सकता है; निकास की स्थिति को सरल आउटपुट के लिए बदला जा सकता है; इसके अलावा बाधा नहीं है; और आप सभी के लिए एक मौलिकता परीक्षण की आवश्यकता है, शुद्ध संगणना करने की क्षमता, थोड़ा सा स्थान और एक लूप।
ब्लैकलाइट शाइनिंग

1
@BlacklightShining मुझे लगता है कि यह सामान्य व्यवहार के सापेक्ष इतने बड़े प्रतिबंध को पूरा करता है कि यह स्वीकार्य होना चाहिए हालांकि, जैसा कि आप कहते हैं, आप अभी भी एक प्रमुख परीक्षक लिख सकते हैं, लेकिन -DNO_EXITमोड उन लोगों के लिए है जो आपको महसूस करते हैं। उस मोड में कोई सार्थक आउटपुट संभव नहीं है।
zwol

1
@BlacklightShining मैंने इसके बारे में कुछ और सोचा और मैंने इस कार्यक्रम को मूल रूप से खरोंच से फिर से लिखा। यह बहुत चालाक है अब यह क्या करता है और (मुझे उम्मीद है) चुनौती के सबसे कड़े पढ़ने से भी मिलता है।
zwol

2
@ जोशुआ चतुर है, और इस दृष्टिकोण का उपयोग करने से रोकना मुश्किल होगा (चूंकि कार्यक्रम सिर्फ अपनी स्मृति को संशोधित कर रहा है), लेकिन यह वर्तमान में "अनुमत आउटपुट विधियों" की सूची में नहीं है।
zwol

6
@ जेसेटीजी क्या आप परिचित हैं strace?
zwol

30

टेक्स

\catcode`\\=10

मुझे यकीन नहीं है कि यह वास्तव में काम करेगा, लेकिन सिद्धांत \रूप में इसे बच चरित्र के रूप में तोड़ना चाहिए ताकि आप इसे ठीक करने का कोई रास्ता नहीं छोड़ सकें। आम तौर पर TeX फ़ाइलों को पढ़ और लिख सकता है, अब यह कुछ भी नहीं लिख सकता है जो तर्क पर निर्भर करता है। इस प्रकार ओपी द्वारा परिभाषित भाषा अब टूट गई है।

संपादित करें: टिप्पणियों से ली गई अन्य किल कमांड (हालाँकि दोनों कोड-मस्ट-बी-एग्ज़्ड नियम का उल्लंघन कर सकती हैं):

  • \def\fi{}\iffalseयदि शाखा द्वारा smpl संयुक्त राष्ट्र को बंद कर देता है
  • \catcode13=9%iwillnotexist द्वारा idonotexist कभी न खत्म होने वाली टिप्पणी करता है

3
एक बेहतर संस्करण \def\fi{}\iffalse:। मैं इस पर उत्तर पोस्ट नहीं कर सकता क्योंकि इसके लिए इस साइट से कम से कम 10 प्रतिनिधि अर्जित किए जाने की आवश्यकता है, लेकिन यह आउटपुट को भी अनुमति नहीं देगा।
user530873

1
@smpl आप अभी भी \fiइसके मूल अर्थ को फिर से परिभाषित कर सकते हैं , है ना? इस प्रकार भाषा किसी भी मरम्मत से परे नहीं है।
सेफालोपॉड

1
@ चेफ़लोपॉड \fiएक टीईएक्स आदिम है। और नहीं, आप इस बिंदु पर कुछ भी फिर से परिभाषित नहीं कर सकते हैं, \iffalseकहा जाता है।
14

1
@smpl हम्म, मैं देख रहा हूँ। बहुत चालाक।
सेफेलोपॉड

1
+1। मैंने अभी खुद को TeXBook से बाहर पढ़ाना शुरू किया और जब मुझे एहसास हुआ\catcode13=9% कि पूरी तरह से भाषा टूट जाएगी ( %टिप्पणी के बाद सब कुछ और newlines (ASCII char 13) को नजरअंदाज किया जाता है, इसलिए टिप्पणी अनंत तक फैली हुई है) मैं इसे यहां पोस्ट करना चाहता था। लेकिन आपके पास यहां पहले से थोड़ी लंबी कमांड है।
इविलनोटिक्सिस्ट इडोनाटेक्सिस्ट

29

खरोंच

ब्रेक स्क्रैच इमेज
when [timer v] > (0)जैसे ही कोड initialised है चलेंगे, अगर आप संपादक में हैं जो इससे पहले कि आप भी कोड शुरू है। when I receive (join[][])एक त्रुटि कोड निष्पादन रोक आप फ्लैश का डेवलपर संस्करण है, हर बार कुछ भी प्रसारित किया जाता है फेंक दिया करने के लिए कारण होगा। breakसमारोह क्लोन बनाने के लिए, और प्रसारण त्रुटि ट्रिगर किया जाएगा। हर एक क्लोन दो सेकंड तक चलेगा और स्टैक पर दबाव डालते हुए खुद को हटा देगा। और हर क्लोन जवाब देगा when [timer v] > (0), breakसबरूटिन को चलाने और टाइमर को रीसेट करने का, जिससे टाइमर कोड फिर से चलाया जा सके। इसके अलावा, प्रत्येक क्लोन हर प्रसारण त्रुटि के लिए भी जवाब देगा, जिसका अर्थ है प्रति मूल्यांकन त्रुटियों breakकी संख्या है, जो क्लोन वर्गों की संख्या है। क्या मैं यह उल्लेख करना भूल गया कि breakसमारोह में हैrun without screen refreshजाँच की, संपादक को फ्रीज, झटका और अंतराल के साथ-साथ मेमोरी को हथियाने और आवंटित करने का कारण बना। और सीपीयू को अधिकतम कर रहा है।

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

और, when [timer v] > (0)ब्लॉक को ट्रिगर करने के लिए बहुत अधिक अंतराल होने के बाद भी यह चालू रहेगा break

when I receiveकुछ समय पहले मुझे मिली गड़बड़ के बारे में याद दिलाने के लिए @towerofnix को धन्यवाद , और मुझे इसके लिए विचार देने के लिएrun without screen refresh । यदि आप इसे पसंद करते हैं, तो यहां मूल है: https://codegolf.stackexchange.com/a/61357/43733


+1 इसके अलावा एक परमाणु (स्क्रीन रिफ्रेश के बिना रन) चलाने के लिए मज़ेदार हो सकता है stop this script: इसमें पी
फ्लोर्री

वह " when I receiveगड़बड़" कैसे काम करता है ?
शिमोनस्टर

@Scimonster when I receiveटोपी ब्लॉक केवल ड्रॉप-डाउन सूची से इनपुट लेने के लिए डिज़ाइन किया गया है। join[][]ब्लॉक एक डेटा प्रकार है कि रिटर्न when I recieveब्लॉक को स्वीकार करने के लिए नहीं बनाया गया है। जब भी कुछ प्रसारित किया जाता है, सभी हैट ब्लॉक्स की जाँच करते हैं, और ब्लॉक के रिटर्न वैल्यू का मूल्यांकन करते हैं, जिसमें एक incorrect typeत्रुटि होती है।
wizzwizz4

समझा। हालांकि आपको वास्तव में joinब्लॉक प्राप्त करने के लिए JSON फाइल को हैक करना होगा।
शिमोनस्टर

1
@ppperry यह फ़्लैश के एक संस्करण पर निर्भर है जो त्रुटियों को अनदेखा करता है - यह मौजूद है। अपने चरम पर ले जाया गया, "छोटे के लिए पर्याप्त n" का उपयोग (n-1)सकारात्मक n<3 के लिए काम करने के लिए कहा जा सकता है , लेकिन जैसा कि यह एल्गोरिथ्म-आधारित है एक अच्छा एल्गोरिथ्म nउस तर्क को दूर करने में सक्षम होने के लिए पर्याप्त बड़ा बनाने में सक्षम होना चाहिए । मुझे यकीन नहीं है कि एक तेज या धीमी मशीन इसे और अधिक उपयोगी बना देगी। हालांकि, मैं मानता हूं कि इस समाधान के आसपास काम किया जा सकता है। यह एक पुलिस और लुटेरे नहीं है , लेकिन वैसे भी अच्छी तरह से किया जाता है।
wizzwizz4

27

गणितज्ञ / वुल्फ्राम भाषा

गणितज्ञ एक व्याख्या की गई भाषा है जिसमें कमांड नाम ऐसे प्रतीक हैं जिन्हें प्रोग्रामर द्वारा हेरफेर किया जा सकता है। आप बिल्ट-इन ऑपरेटर्स को हटा नहीं सकते, लेकिन आप उन्हें ओवरलोड कर सकते हैं या अन्यथा उनके फ़ंक्शन को संशोधित कर सकते हैं। निम्नलिखित "विथ" कमांड को स्क्रैम्बल करता है, जो कि वेरिएबल्स को आंतरिक रूप से असाइन करने के लिए भी आवश्यक है। यह परिवर्तन कर्नेल को असाइनमेंट पूरा होने तक बिना तर्क दिए होल्ड करने से रोकता है, और यह भाषा को काफी मार डालता है।

ClearAttributes["With", HoldAll]

यदि यह कमांड एक संवादात्मक सत्र में या कोड के एक ब्लॉक के भीतर चलाया जाता है, तो Mathematica भी जोड़ नहीं पाएगा 1+1(परिणामी त्रुटि संदेश लगभग एक पृष्ठ लंबा है इसलिए मैं इसे यहां शामिल नहीं करूंगा)।


26

पीएचपी

मैं हैरान हूं कि यह वास्तव में काम करता है, लेकिन सभी आउटपुट को बंद करना STDOUTऔर STDERRदबा देता है। यह सुनिश्चित करने के लिए कि वे फिर से नहीं खोले जाएंगे, हम /dev/nullफ़ाइल डिस्क्रिप्टर 0, 1 और 2 को पुन: असाइन करने के लिए तीन बार खोलते हैं :

<?php
fclose(STDIN);
fclose(STDOUT);
fclose(STDERR);
fopen('/dev/null','r');
fopen('/dev/null','w');
fopen('/dev/null','w');

// insert program here

उस पर और अधिक: https://stackoverflow.com/questions/937627/how-to-redirect-stdout-to-a-file-in-php


फ़ाइलों को लिखने और प्रोग्राम के निकास कोड का उपयोग करने सहित अन्य मान्य आउटपुट फॉर्म हैं। युक्ति के प्रासंगिक बुलेट बिंदु में लिंक देखें।
मार्टिन एंडर

1
क्या वास्तव में अनुमति है और मेरे लिए स्पष्ट नहीं था। उदाहरण के लिए टैग विकी में मुझे फ़ाइलों और निकास कोड के बारे में कुछ नहीं मिला। लेकिन अगर उन्हें अनुमति दी जाती है, तो मुझे नहीं लगता कि मैं इसे वैध तरीके से प्रस्तुत कर सकता हूं।
फाबियन शेंगलर

केवल एक आउटपुट फ़ॉर्म को अक्षम करने की अनुमति देने के लिए प्रश्न संपादित किया गया।
jimmy23013

20
@ jimmy23013 क्या? यह सवाल के बिंदु को पूरी तरह से हरा देता है।
हॉब्स

5
@ jimmy23013 यदि यह केवल एक आउटपुट फॉर्म को अक्षम करने के लिए वैध है, तो उदाहरण के लिए प्रोग्राम के एग्जिट कोड को दबा देना (जैसा कि मार्टिन ने सुझाव दिया है) क्या मुझे केवल एक एग्जिट कोड के बिना भाषा पूरी तरह से उपयोग करने की आवश्यकता है?
जेरी यिर्मयाह

24

डॉस बैच (विंडोज 95 से पहले मुझे विश्वास है)

CTTY

बिना किसी तर्क के, यह टर्मिनल से कमांड लाइन को डिस्कनेक्ट करता है। इनपुट पढ़ने या आउटपुट उत्पन्न करने के लिए आगे कोई प्रयास कुछ भी नहीं करते हैं।

यदि आप जानना चाहते हैं कि सीटीटीवाई का सही उपयोग कैसे किया जाए:

MODE COM1,8600,8,N,1
CTTY COM1

थोड़ा अधिक शक्तिशाली बैच फ़ाइल भी मॉडेम का जवाब दे सकता है और CTTY में जो भी डायल करता है उसे कनेक्ट कर सकता है।


23

आम लिस्प

(set-macro-character #\( (lambda (x y) ()))

मुझे आशा है कि आपको उन उद्घाटन कोष्ठकों की आवश्यकता नहीं थी।

यह एक पाठक मैक्रो है जो लिस्प रीडर को (कॉल के प्रत्येक उदाहरण को बदलने के लिए कहता है (lambda (x y) ()), एक फ़ंक्शन जो दो तर्क लेता है और कुछ भी नहीं देता है। तो, उदाहरण के लिए, इसे पढ़ा होगा (foo)के रूप में foo), की व्याख्या fooएक चर के रूप में और फिर एक बेजोड़ कोष्ठक त्रुटि फेंक 0


2
कृपया )कुछ विराम के रूप में भी व्याख्या करें ! इस तरह, कम त्रुटियाँ होंगी।
wizzwizz4

7
मुझे यह पसंद है। "क्या लिस्प पर निर्भर करता है? एक एकल चरित्र? यह शर्म की बात होगी अगर कुछ ... यह हुआ ..." यह TeX में `\ 'को फिर से परिभाषित करने के समान तर्क है।
felixphew

23

खरोंच

यहां एक बहुत ही सरल उदाहरण दिया गया है जो आपके ब्राउज़र को क्रैश कर देगा (और, सिद्धांत रूप में, आपका कंप्यूटर):

तुरंत दुर्घटना

मैंने इस दौड़ को लगभग बीस सेकंड तक छोड़ दिया, फिर 2.65 जीबी मेमोरी को स्क्रैच में खो दिया। केवल एक पल बाद और 5 जीबी चले गए थे।

मैं अत्यधिक सुझाव देता हूं कि आपके पास इसे चलाने से पहले Adobe Flash या आपके वेब ब्राउज़र को छोड़ने के लिए मजबूर करने का एक साधन है!


मैं वास्तव में clear(this)जेएस एक की तरह एक शांत जवाब बनाना चाहता था लेकिन दुख की बात है कि स्क्रैच के पास ऐसा करने का कोई तरीका नहीं है। इस पोस्ट को अपडेट करने के लिए स्वतंत्र महसूस करें (या अपना खुद का बना लें) यदि आप स्क्रैच को अनुपयोगी बनाने का एक और तरीका खोज लेते हैं!


2
आप उपयोगकर्ता कोड कहां जोड़ते हैं, और क्या यह वास्तव में निष्पादित होता है?
jimmy23013

उपयोगकर्ता कोड? परियोजना में कहीं भी, जब तक यह स्निपेट डाला जाता है। प्रारंभिक रन के बाद इसे 0.3 सेकंड में एक बार निष्पादित किया जाता है, और फिर प्रत्येक 0.3 सेकंड (सिवाय इसके कि यह लगातार स्क्रिप्ट को बिना किसी अंत के पुनर्मिलन करता है, जिससे स्क्रैच बहुत धीमा हो जाता है)। क्या यह ठीक है अगर मैं इस पोस्ट को एक बेहतर, अधिक शक्तिशाली क्रैशर के साथ अपडेट करता हूं?
फ्लोर्री

5
कोई स्क्रैच का उपयोग कर रहा है ... d: -D YAY !!!
wizzwizz4

@towerofnix वैसे, मैंने इसमें सुधार / मौलिक रूप से संशोधित / पुनः यहाँ बनाया है: codegolf.stackexchange.com/a/61490/43394 मेरा माइक्रोफ़ोन के चालू होने पर भरोसा नहीं करता है।
19

1
@ wizzwizz4 हाँ तुम्हारा तुम्हारा मेरे से बहुत बेहतर है। कृपया अपना वोट दें
फ्लोरि

20

Thue

::=

अंत में एक नई रेखा के साथ

थुए भाषा नियमों को परिभाषित करने पर निर्भर करती है और ::=नियमों के अंत को दर्शाती है। यह नियमों को परिभाषित किए बिना थूथन में कुछ भी करना असंभव है , इसलिए इस बात की परवाह किए बिना कि आप इसके बाद क्या करते हैं::= , कुछ भी नहीं हो सकता है।

वैकल्पिक उत्तर

A::=
B::=
C::=
D::=
E::=
F::=
G::=
H::=

(और सभी में यूनिकोड के हर पात्र के लिए जो Aचरित्र और गैर-मुद्रण योग्य वर्णों से पहले शामिल हैं )। इसके लिए कमांड-लाइन विकल्प की आवश्यकता होती है -r


मुझे लगता है कि पाठ व्याकरणिक रूप से एक ही बात नहीं है क्योंकि कुछ मानदंड (जैसे एक नियम) को संतुष्ट करता है।
jimmy23013

16

Matlab

कोड का निम्नलिखित टुकड़ा पर्यावरण को पूरी तरह से अनुपयोगी बनाता है 1 :

builtin = @(varargin)false; clear = @(varargin)false;
%// Insert code after this point

यह builtinफ़ंक्शन और clearनए अनाम फ़ंक्शन हैंडल के साथ फ़ंक्शन को ओवरराइड करता है जो falseआपके द्वारा कोशिश किए जाने पर हर बार वापस लौटते हैं और इन फ़ंक्शन को कॉल करते हैं। builtinसमारोह सुनिश्चित करता है कि अगर वहाँ आप MATLAB में लिखने किसी भी कस्टम कार्यों कि उन है कि MATLAB के लिए निर्मित कर रहे हैं (चीजों की तरह के रूप में एक ही नाम हैं sum, max, min, आदि), आप इन स्पष्ट रूप से अतिभारित कार्यों के बजाय फोन करने में सक्षम हैं । इसी तरह, clearआपको वर्तमान में घोषित किए गए सभी चर को साफ़ करने की क्षमता प्रदान करता है ताकि आप नए सिरे से शुरुआत कर सकें। इन क्षमताओं को हटाकर, कोई तरीका नहीं है कि आप MATLAB का उपयोग कर सकते हैं जब तक कि आप प्रोग्राम को पुनरारंभ नहीं करते हैं।

MATLAB R2015a में, मुझे निम्नलिखित संदेश भी मिला:

यहां छवि विवरण दर्ज करें

कार्यक्षेत्र वे चर हैं जो वर्तमान में पर्यावरण में घोषित किए गए हैं ताकि आप उन्हें बाद के लिए उपयोग कर सकें। यह स्थायी रूप से कार्यक्षेत्र को निष्क्रिय कर देता है, इसलिए आपके द्वारा बनाए गए कोई भी चर सहेजे नहीं जाएंगे और इसलिए MATLAB में कोड की लाइनों को निष्पादित करते समय कोई प्रगति नहीं की जा सकती है।

1: क्रेडिट उपयोगकर्ता देव-आईएल को जाता है जिन्होंने मूल रूप से इस विचार की खोज की थी।


2
R2014b में आप feval('clear')इसे ठीक कर सकते हैं । या: s=str2func('clear'); s()
स्टेवी ग्रिफिन

13

///

/\///

/// में एकमात्र ऑपरेशन बार-बार स्ट्रिंग प्रतिस्थापन है, जैसे: /pattern/replacement/ :।

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

आप अभी भी \s का उपयोग कर सकते हैं , लेकिन यह आपकी बहुत मदद नहीं करेगा।


मुझे हमेशा आश्चर्य होता है कि क्या यह /// कोड का एक टुकड़ा लिखना संभव है जो खुद के बाद सब कुछ मिटाने की गारंटी देता है, और इस तरह कुछ भी छपाई के बिना रुक जाता है। यह असंभव लगता है, लेकिन मैंने ऐसा प्रमाण नहीं सोचा है कि यह असंभव है।
टान्नर स्विट

12

Befunge-96

'~h

उपयोगकर्ता का कोड इस अनुक्रम के बाद कहीं भी अनुसरण कर सकता है, जब तक कि ये स्रोत में पहले तीन वर्ण हैं।

'आदेश (एक शॉट स्ट्रिंग मोड) के ASCII मूल्य धक्का ~ढेर (यानी 126) पर, और hआदेश तो सेट क्या रूप में जाना जाता समग्र डेल्टा कि मूल्य के साथ। Befunge-96 से परिचित नहीं लोगों के लिए, Holistic Delta एक ऑफसेट है जो प्रत्येक कमांड बाइट के मूल्य में जोड़ा जाता है जो दुभाषिया का सामना करता है।

एक बार जब डेल्टा 126 पर सेट हो जाता है, तो एकमात्र वैध कमांड जो उत्पन्न किया जा सकता है ~(चरित्र इनपुट) है, स्रोत में एक शून्य बाइट के माध्यम से। अशक्त बाइट के अलावा कुछ भी 126 से अधिक के मूल्य के लिए अनुवाद करेगा, और उन मूल्यों में से कोई भी मान्य Befunge कमांड नहीं होगा।

मुझे लगता है कि यह कहना सुरक्षित है कि यह एक प्रोग्रामिंग भाषा के रूप में अर्हता प्राप्त करने के लिए अयोग्य होगा।


11

बू

macro harmless:
    Context.Parameters.Pipeline.Clear()

और फिर, परियोजना में कहीं और,

harmless

हानिरहित-ध्वनि वाले नाम के साथ एक सरल मैक्रो, लेकिन एक आश्चर्यजनक निराशाजनक प्रभाव। बू कंपाइलर एक मल्टी-स्टेप पाइपलाइन का उपयोग करता है जो एक एएसटी में पार्सिंग स्रोत से शुरू होता है और कोड पीढ़ी के साथ समाप्त होता है। (आम तौर पर। यह विभिन्न अनुप्रयोगों के लिए पुन: कॉन्फ़िगर किया जा सकता है।) बीच में हर कदम एएसटी पर विभिन्न संचालन करता है।

भाग के माध्यम से मैक्रो विस्तार चरण है, जिसमें संकलक के संदर्भ में मैक्रोज़ निष्पादित होते हैं। पिछले पैराग्राफ में बिट को याद रखें, पाइप लाइन को फिर से जोड़ने योग्य होने के बारे में? यदि, मैक्रो विस्तार के दौरान, आप एक मैक्रो को इनवॉइस करते हैं जो पाइपलाइन को साफ करता है, तो उपयोगकर्ता को कोई त्रुटि नहीं दिखाई देगी, लेकिन मैक्रो विस्तार (कोड पीढ़ी सहित) के बाद के सभी चरण अब नहीं हैं। तो आप एक सफल संकलन की तरह दिखने वाली किसी चीज़ के साथ समाप्त होते हैं - कोई त्रुटि संदेश प्रदर्शित नहीं होता है - लेकिन किसी कारण से कोई बाइनरी उत्पन्न नहीं होती है! यदि आप मैक्रो और इनवोकेशन को अच्छी तरह से छिपाते हैं, तो दीवार पर भी सबसे अच्छा समस्या निवारण ड्राइव करने की गारंटी है।


यह उत्तर अमान्य है, क्योंकि उपयोगकर्ता कोड कभी निष्पादित नहीं होता है।
पिपरी

@ppperry: निश्चित रूप से यह करता है: मैक्रो को उपयोगकर्ता कोड के हिस्से के रूप में लिखा जा सकता है, और इसे कंपाइलर के अंदर निष्पादित किया जाता है
मेसन व्हीलर

आप पात्रों के सेट का एक चरित्र है कि के लिए इस तरह मैक्रो निर्धारित करने के लिए होगा की जरूरत है में लिखा जाता है हर एक कार्यक्रम या प्रोग्राम बनाता है कि बू मापदंड फिट का सेट
पिपरी

@ppperry: हाँ, मैक्रो को इनवॉइस करना (कहीं भी कोड में) क्या है जो कंपाइलर को तोड़ने का कारण बनता है, मापदंड को पूरा करता है। यदि आप इससे कुछ गहरा कहने की कोशिश कर रहे हैं, तो आपको थोड़ा और स्पष्ट होना पड़ेगा, क्योंकि मैं नहीं देखता कि समस्या क्या है।
मेसन व्हीलर

2
@slebetman: और जब आपके पास एक REPL, या मैक्रोज़ होता है, जहां उपयोगकर्ता कोड को संकलन समय पर निष्पादित किया जाता है, तो दोनों के बीच का अंतर बहुत धुंधला हो जाता है।
मेसन व्हीलर

10

NGN / एपीएल

NGN / APL आदिम को पुनर्परिभाषित करने की अनुमति देता है, इसलिए ("पास से": दोनों और देता है ) के लिए सभी आदिम कार्यों को पुनर्परिभाषित करता है : भाषा को पूरी तरह से बेकार कर देता है:⊢32⊢33

⍪←-←+←?←⍵←∊←⍴←~←↑←↓←⍳←○←*←⌈←⌊←⍕←⊂←⊃←∩←∪←⊥←⊤←|←<←≤←=←≥←>←≠←∨←∧←×←÷←⍒←⍋←⌽←⍉←⊖←⍟←⍱←⍲←!←⌹←⊣←⍎←⊢

इसे यहाँ आज़माएँ।


1
-1 के लिए अब, लेकिन यह आशाजनक लगता है! हो सकता है कि अगर आपने सभी प्राइमिटिव्स को फिर से परिभाषित किया हो ...
ब्लैकलाइट शाइनिंग

@BlacklightShining वहाँ तुम जाओ।
आदम

8

रूबी (29 अक्षर)

class Object;def send;end;end

जब भी किसी विधि को रूबी के भीतर बुलाया जाता है, और ऑब्जेक्ट क्लास से विरासत में मिली सभी वस्तुओं को 'सेंड' आंतरिक रूप से उपयोग किया जाता है। यह चलाए जा रहे किसी भी तरीके को रोकना चाहिए।

मज़ा तथ्य: यह पूरी तरह से सिद्धांत में ध्वनि है। लेकिन ऐसा लगता है, किसी कारण के लिए, रूबी भाषा का शौक नहीं। मुझे नहीं पता कि इस कोड को चलाना क्यों संभव है और फिर भी खुले रूबी वातावरण का उपयोग करें।


दरअसल यह Pry Ruby शेल में काम करता है ।
फेलिक्स सपरेली

क्या आपका मतलब है कि यह "यह इसे तोड़ता है" के रूप में काम करता है या यह "इसके बाद भी काम करता है" के रूप में काम करता है? केवल, मैंने सादे पुराने irb में दूसरा होने का उल्लेख किया है
AJFaraday

1
मेरा मतलब है कि यह Pry को तोड़ता है। यह IRB को नहीं तोड़ता है, और यह .rb फ़ाइलों में चलना नहीं तोड़ता है, लेकिन यह Pry को तोड़ता है।
फेलिक्स सपरेली

दिलचस्प। मुझे लगता है कि प्राई में काम नहीं करने वाले भेजने के तरीके पर कुछ सुरक्षा है।
AJFaraday

8

Tcl

foreach x [info commands] {if {$x!="rename"&&$x!="if"} {rename $x ""}}

यह भाषा के सभी कीवर्ड को छोड़कर ifऔर को हटा देता है rename

उपरोक्त कोड किसी भी नए कोड को गलत करने का कारण होगा। यदि नया डाला गया कोड वास्तव में "निष्पादित" हो जाता है तो यह बहस का विषय है। नीचे एक संस्करण है कि नए कोड निष्पादित करता है लेकिन क्योंकि यह उन सभी कीवर्ड में परिवर्तन (सिवाय कुछ नहीं करता है ifऔर procनो-संचालन के लिए):

foreach x [info commands] {if {$x!="if"&&$x!="proc"} {
    proc $x args {}
}}

कीवर्ड को हटाने के बजाय यह कोड उन्हें एक फ़ंक्शन के साथ बदलता है जो कुछ भी नहीं करता है।

(नोट: मैं "कीवर्ड" का उपयोग यहां बहुत शिथिल रूप से कर रहा हूं क्योंकि Tcl में कीवर्ड नहीं हैं, केवल फ़ंक्शन हैं)


1
मुझे लगता है कि आप नाम बदलने ifऔर renameलूप के बाद इसे बेहतर बना सकते हैं । दूसरे संस्करण में, आपको procएक अपवाद भी बनाना चाहिए ।
jimmy23013

@ jimmy23013 हम्म .. तकनीकी रूप से आपको सही होना चाहिए, लेकिन यह कोड स्निपेट tcl के वर्तमान संस्करण के साथ काम करता है, procजबकि सूची में पहले भी दिखाई देता है puts। तकनीकी रूप से कोड को भी बिना काम करना चाहिए, renameलेकिन अंतर्निहित कमांड को अन्यथा संरक्षित किया जाना चाहिए। निश्चित नहीं है कि क्या चल रहा है, लेकिन कोड का परीक्षण किया जाता है और विज्ञापन के रूप में काम करता है।
स्लीपबेटमैन

@ jimmy23013: ठीक है। कोड अब कॉल करने की आवश्यकता के बिना काम करता है rename। यह मेरी ओर से दिमाग था - मैं बाहर करना भूल गयाproc
स्लीपबेटमैन

अगर आपने आउटपुट जेनरेट करना चाहा तो मैंने नाम बदलने का फैसला नहीं किया ifक्योंकि ifअकेले करने में सक्षम होना बहुत बेकार है।
स्लीवेटमैन

बेशक आपको उनका नाम बदलने की जरूरत नहीं है। लेकिन यह कोड-गोल्फ नहीं है। मैंने अभी सोचा कि उनका नाम बदलना (या नहीं) इस जवाब को बेहतर बना सकता है।
jimmy23013

7

मैं हूं

=<  ~
(your code)

हुन अजीब है। यह सिर्फ़ सिंटैक्स में ही नहीं बल्कि शब्दार्थ में भी अन्य प्रोग्रामिंग लैंग्वेजों से बिल्कुल अलग है। हेक्सागोनी जैसी भाषाओं के विपरीत, हालांकि, इसे जानबूझकर गूढ़ नहीं बनाया गया था।

हून नॉक के लिए संकलित करता है , एक न्यूनतम कॉम्बीनेटर आधारित वीएम। नॉक बेवकूफ है: कल्पना को 340 बाइट्स में लगाया जा सकता है। केवल गणित ऑपरेशन बढ़ रहा है। सब कुछ एक संज्ञा है: एक परमाणु (bignum) या एक कोशिका (संज्ञाओं की एक जोड़ी), पूरे स्मृति मॉडल के साथ एक अपरिवर्तनीय चक्रीय बाइनरी ट्री में व्यवस्थित होती है। एकमात्र आउटपुट संज्ञा है जिसे आपकी अभिव्यक्ति कम कर देती है।

अजीब संकलन लक्ष्य के कारण, हून भी अजीब है: यह पूरी तरह से शुद्ध है। हन एक नॉक अभिव्यक्ति के लिए संकलित करता है जिसका मूल्यांकन "संदर्भ" पर किया जाता है। पूरे कर्नेल और stdlib, सभी चर के साथ, संदर्भ द्वारा कार्यक्रम को स्पष्ट रूप से पारित किया जाता है।

हून को अनुपयोगी बनाने के लिए हम इसका उपयोग करते हैं =<, जो "बी के संदर्भ में मूल्यांकन" है। हम हमेशा मूल्यांकन कर रहे हैं ~, जो शून्य है। कोई फर्क नहीं पड़ता कि b, यह उस मूल्य को नहीं बदल सकता है जो इसे कम करता है, और चूंकि इसका साइड इफेक्ट नहीं हो सकता है इसलिए यह इनपुट या आउटपुट नहीं कर सकता है।

साइड नोट: चूंकि आप वास्तव में हून (शुद्धता!) से इनपुट के लिए संकेत नहीं दे सकते हैं, नियमों से यह वास्तव में एक प्रोग्रामिंग भाषा नहीं है। इनपुट फ़ंक्शन तर्कों के माध्यम से है, आउटपुट रिटर्न वैल्यूज़ (या ~&, जो कि एक प्रिंटफ डीबगिंग फ़ीचर से अधिक है और प्रोग्राम के लिए पारदर्शी है)।

Urbit में इनपुट प्राप्त करने के लिए एक कार्यक्रम के लिए, आप वास्तव में एक प्रोग्राम लिखते हैं जो एक फ़ंक्शन को वापस करता है जो इनपुट स्वीकार करता है, और शेल आपकी ओर से पूछता है और कॉलबैक को पास करता है।


3
निश्चित रूप से हमारे मानकों द्वारा एक प्रोग्रामिंग भाषा, हालांकि
बिल्ली

7

टैक्सी, 2354 बाइट्स।

यह छोटा सा कार्यक्रम बस टाउन्सबर्ग के माध्यम से टैक्सी चलाता है, गैस से बाहर चल रहा है। इसके बाद आपके द्वारा चलाया गया कोई भी कोड जल्दी से त्रुटि करेगा error: out of gas। और यहां तक ​​कि अगर आप एक गैस स्टेशन तक पहुंच सकते हैं, जो मुझे नहीं लगता कि संभव है, तो आपको कोई गैस नहीं मिल सकती है, क्योंकि कोई पैसा एकत्र नहीं किया गया है, क्योंकि कोई यात्री नहीं हैं।

Go to Trunkers: west, 1st right, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st right, 1st left, 3rd left, 2nd left, 3rd left, 2nd right, 1st right, 2nd right, 1st right, 1st left, 1st left, 1st left, 1st right.

6

ब्राउज़र में जावास्क्रिप्ट

कम से कम, IE11 में।

window.addEventListener("error", function(){});
document = document.write = alert = prompt = confirm = console = void(
    (function (window) {
        try {
            //Code goes here
        } catch (e) {}
    })({})
);

दस्तावेज़ को लिखना, वैश्विक चर को लिखना और फ़ंक्शन से वापस आना अक्षम करता है।

टिप्पणी करें कि क्या मैंने एक आउटपुट विधि को याद किया है!


अपवाद अभी भी कंसोल में दिखाई देंगे। आप कर सकते हैंwindow.addEventListener('error',function(){});
Ismael Miguel

@IsmaelMiguel अब मैं सभी क्रेडिट नहीं ले सकता! d
;;

4
क्या यह गंभीरता से काम करता है? इसका कोई मतलब नहीं है: documentसम्मिलित कोड में बाहरी दायरे से अभी भी सुलभ होना चाहिए, और सम्मिलित कोड समाप्त होने के बाद इसे प्रतिस्थापित नहीं किया जाना चाहिए ।
पीटर टेलर

@PeterTaylor :-( आपके तर्क ने मेरा सिद्धांत तोड़ दिया।
wizzwizz4


6

अजगर 2, पागलपन से बड़ा

import rexec, ihooks, types, os, struct,sys,imp
from functools import update_wrapper as do_update, wraps
__all__ = ["RExec","enable"]
trashed = False
from ctypes import pythonapi, POINTER, py_object
getdict = pythonapi._PyObject_GetDictPtr
getdict.restype = POINTER(py_object)
getdict.argtypes = [py_object]
modified = ctypes.pythonapi.PyType_Modified
modified.argtypes = [ctypes.py_object]
def dictionary_of(ob):
    dptr = getdict(ob)
    if dptr and dptr.contents:
        return dptr.contents.value
RESTRICTED = "NOT AVAILABLE"
class RExec(rexec.RExec):
    ok_sys_names = rexec.RExec.ok_sys_names + ("warnoptions","py3kwarning","flags")
    nok_sys_strings = ("executable",)
    ok_builtin_modules = rexec.RExec.ok_builtin_modules + ("cStringIO","exceptions","_collections","itertools","_hashlib","_codecs","_functools","_struct")
    def __init__(self, hooks = None, verbose = 0):
        ihooks._Verbose.__init__(self, verbose)
        self.hooks = hooks or rexec.RHooks(verbose)
        self.hooks.set_rexec(self)
        self.modules = {}
        self.ok_dynamic_modules = self.ok_builtin_modules
        list = []
        for mname in self.ok_builtin_modules:
            if mname in sys.builtin_module_names:
                list.append(mname)
        self.ok_builtin_modules = tuple(list)
        self.set_trusted_path()
        self.make_builtin()
        self.make_initial_modules()
        self.make_sys()
        self.loader = rexec.RModuleLoader(self.hooks, verbose)
        self.importer = rexec.RModuleImporter(self.loader, verbose)
        self.make_StringIO()
    def make_sys(self):
        old_rexec.make_sys(self)
        sys_ = self.modules["sys"]
        for name in dir(sys):
            obj = getattr(sys,name)
            if "__" not in name and type(obj) == str and \
              not hasattr(sys_,name):
                if name in self.nok_sys_strings:
                    obj = RESTRICTED
                setattr(sys_,name,obj)
        sys_.argv = [RESTRICTED]
    def make_initial_modules(self):
        old_rexec.make_initial_modules(self)
        self.copy_except(types,["__builtins__"])
        self.copy_except(os.path,["__builtins__"])
        b = self.modules["__builtin__"]
        for module in self.modules.itervalues():
            module.__builtins__ = b
    def make_StringIO(self):
        t = type(self.r_open)
        if t == types.ClassType or t == type:
            return
        elif t != types.FunctionType and t != types.MethodType:
            raise RuntimeError
        io = self.r_import("StringIO").StringIO
        old_open = self.r_open
        class r_open(io):
            def __init__(self,*openargs):
                o = old_open(*openargs)
                if o.isatty():raise IOError
                io.__init__(self,o.read())
            def __enter__(self):
                return self
            def __exit__(self,type,val,tb):
                self.close()
            for name in "truncate write flush".split():
                exec "def %s(self,arg=None):raise IOError('File not open for writing')" % name
            del name
        ntypes = self.modules["types"]
        b = self.modules["__builtin__"]
        ntypes.FileType = self.r_open = b.open = b.file = r_open
    def r_import(self,name,globals={},locals={},fromlist=[],level=-1):
        redone = name in self.modules
        found = False
        try:
            result = self.importer.import_module(name, globals, locals, fromlist,level)
        except ImportError:
            if name == "imp":
                result = imp.new_module("imp")
                self.modules["imp"]=result
                found = True
            if not found:raise
        if redone:pass #Only do this once
        elif name == "sysconfig":
            result._PROJECT_BASE = "x"
            result._CONFIG_VARS = {}
        elif name == "functools":
            update = result.update_wrapper
            def update_wrapper(wrapper,wrapped,assigned=(),updated=()):
                return update(wrapper,wrapped,assigned,updated)
            do_update(update_wrapper,update)
            result.update_wrapper = update_wrapper
            def wraps(wrapped,*args,**kw):
                return result.partial(update_wrapper,wrapped=wrapped,*args,**kw)
            do_update(wraps,result.wraps)
            result.wraps = wraps
        return result
    def s_apply(self,func,args=(),kw=None):
        kw = kw or {}
        if getattr(func,"__stdin_trashing",False):
            kw["s_applied"] = True
        return old_rexec.s_apply(self,func,args,kw)
    r_exc_info = staticmethod(sys.exc_info)
    def r_method(name):
        l = {}
        exec \
"""def %s(self,*args,**kwargs):
    s_applied = kwargs.pop("s_applied",False)
    if kwargs:raise TypeError
    if not s_applied:
        self.save_files()
        sys.stdin = sys.stdout = sys.stderr = None
    global restrictedly
    restrictedly = True
    try:
        return old_rexec.%s(self,*args)
    finally:
        restrictedly = False
        if not s_applied:
            self.restore_files()
setattr(%s,"__stdin_trashing",True)""" % (name,name,name) in globals(),l
        return l[name]
    r_exec = r_method("r_exec")
    r_eval = r_method("r_eval")
    del r_method
old_rexec = rexec.RExec
class ModuleImporter(ihooks.ModuleImporter):
    def determine_parent(self, globals, level=-1):
        if not globals or not level:return None
        pkgname = globals.get('__package__')
        if pkgname is not None:
            if not pkgname and level > 0:raise ValueError, 'Attempted relative import in non-package'
        else:
            modname = globals.get('__name__')
            if modname is None:return None
            if "__path__" in globals:pkgname = modname
            else:
                # normal module, work out package name if any
                if '.' not in modname:
                    if level > 0:raise ValueError, ('Attempted relative import in non-package')
                    globals['__package__'] = None
                    return None
                pkgname = modname.rpartition('.')[0]
            globals['__package__'] = pkgname
        if level > 0:
            dot = len(pkgname)
            for x in range(level, 1, -1):
                try:
                    dot = pkgname.rindex('.', 0, dot)
                except ValueError:raise ValueError('attempted relative import beyond top-level package')
            pkgname = pkgname[:dot]
        try:
            return self.modules[pkgname]
        except KeyError:
            if level < 1:
                warn("Parent module '%s' not found while handling "
                     "absolute import" % pkgname, RuntimeWarning, 1)
                return None
            else:raise SystemError, ("Parent module '%s' not loaded, cannot perform relative import" % pkgname)
restrictedly = False
def enable():
    rexec.RExec = RExec
    rexec.RModuleImporter = ModuleImporter
    global trashed
    if not trashed:
        subclasses = type.__subclasses__
        error = None
        def restrict(fun):
            error_ = error
            def censored(*args):
                global restrictedly
                if restrictedly:
                    if error_ is not None:
                        return error_
                    raise RuntimeError
                return fun(*args)
            return censored
        error = ()
        dictionary_of(type)["__subclasses__"]=restrict(subclasses)
        error = None
        modified(type)
        #Stop uses of frames (created using with statements)
        old_frame = types.TracebackType.tb_frame
        @property
        @restrict
        def new_frame(self):
            return old_frame.__get__(self,types.TracebackType)
        @new_frame.setter
        def new_frame(self,v):
            raise TypeError("Readonly attribute")
        dictionary_of(types.TracebackType)["tb_frame"] = new_frame
        modified(types.TracebackType)
        trashed = True
def test():
    enable()
    r = RExec()
    try:
         r.r_exec(
                """Your code goes here!"""
             )
    finally:
        return 0
if __name__ == "__main__":
    enable()
    test()
    sys.exit()

कोड की यह पूरी तरह से बड़ी मात्रा में प्राचीन rexecमॉड्यूल (अजगर 2.3 में छोड़ दिया गया) का पुनरुद्धार है, जिसमें "ठीक" सूची में जोड़ा गया नया मॉड्यूल का एक गुच्छा और निश्चित कमजोरियों का एक गुच्छा है (सहित)object.__subclasses__() कम से कम दो पायथन बनाने वाली विधि जवाब अमान्य)।

इस कोड का थोड़ा ( कक्षा और पूरी कक्षा का __init__तरीका ) छोटे संशोधनों के साथ अजगर मानक पुस्तकालय से कॉपी किया गया है।RExecModuleImporter


2
0.o क ... आपने क्या किया है
बिल्ली

8064 bytesजिस तरह से
बिल्ली

@ यह नहीं है कि यह कोड गोल्फ है। मैं शायद कम से कम 1000 बाइट्स में गोल्फ खेल सकता था।
पिपरी

बेशक, लेकिन आपने कहा "पागलपन से बड़ा" तो मैंने सोचा कि मैं इसे नोट करूंगा
बिल्ली
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.