3… 2… 1… ক্রাশ বন্ধ!


47

আপনার কাজটি হ'ল একটি সম্পূর্ণ প্রোগ্রাম লিখুন যা প্রতিবার চালানোর সময় 10 থেকে গণনা অব্যাহত রাখবে।

  • আপনি প্রথমবার প্রোগ্রামটি চালাবেন, এটি মুদ্রণ করা উচিত 10
  • পরের বার, এটি আউটপুট করা উচিত 9
  • পরের বার, এটি আউটপুট 8, এবং উচিত ।
  • মুদ্রণের পরিবর্তে 0, প্রোগ্রামটি ক্রাশ হওয়া উচিত। এর পরে আপনাকে আর কোনও বার চলমান প্রোগ্রামটি পরিচালনা করতে হবে না।
  • সঞ্চয়ের জন্য ব্যবহৃত যে কোনও সুবিধা প্রোগ্রামের প্রথম প্রয়োগের আগে খালি বলে ধরে নেওয়া যেতে পারে।

পাইথন 3 এ এখানে একটি উদাহরণ প্রয়োগ রয়েছে:

try:f=open("a","r+");v=int(f.read())
except:f=open("a","w");v=10
1/v
print(v)
f.seek(0)
f.write(str(v-1))

এটি , তাই সংক্ষিপ্ত উত্তরটি (বাইটে পরিমাপ করা) জয়ী।


12
ক্র্যাশিং কীভাবে প্রলুব্ধ হয়?
কনর ও'ব্রায়েন

2
@ কনরও'ব্রায়েন হুম ... এটি মেটা নিয়ে আলোচনা করা হয়নি?
ফল ফলবান

2
@ চ্যালেঞ্জার 5 যে আমি জানি না। ত্রুটি নিক্ষেপ করা কি যথেষ্ট হবে?
কনার ও'ব্রায়েন

1
@ কনরও'ব্রায়েন হ্যাঁ
ফল ফলস্বরূপ so

উত্তর:


18

6502 মেশিনের ভাষা + অ্যাপল] [+ রম, 12 (11? 10? 9?) বাইট

CE 06 80 F0 01 A2 0B A9 00 4C 24 ED

শুরু করা উচিত $8000। গণনা 0 এ পৌঁছালে সিস্টেম মনিটরে ক্রাশ হয়।


C6 B6 F0 01 A2 0B A9 00 4C 24 ED

শুরু করা উচিত $B1। এটি একটি বাইট সংরক্ষণ করে যেহেতু আমি (দুই-বাইট) শূন্য পৃষ্ঠার সংস্করণটি ব্যবহার করতে পারি DEC, তবে অ্যাপলসফটের সমালোচনামূলক রুটিনটিকে ওভাররাইট করে CHRGET; আপনাকে এটি লোড করতে হবে এবং মনিটর থেকে কল করতে হবে এবং আপনার কাজ শেষ হয়ে গেলে বেসিকটিকে পুনরায় শুরু করতে CTRL+ ব্যবহার BReturnকরতে হবে। এটি এটিকে অবৈধ করে কিনা তা নিশ্চিত নয়।


CE 06 80 F0 01 A2 0B 4C 26 ED

শুরু করা উচিত $8000। এটি আরম্ভ হয় না $9E, দুটি বাইট সংরক্ষণ করে। যাইহোক, এর অর্থ এটি আপনাকে একটি নেতিবাচক ঠিকানা দিয়ে কল করবেন না (বা, আপনি যদি মনিটরের কাছ থেকে কল করেন, আপনাকে মনিটরের একটি ইতিবাচক ঠিকানা দিয়ে কল করতে হবে)। যদি আপনি না, Applesoft এর CALLরুটিন সংরক্ষণ করবে FFমধ্যে $9E, যখন এটি মুদ্রণ নম্বরে 65280 যোগ করার জন্য সৃষ্টি হয়। আবার, নিশ্চিত না যে এটি সমাধানটিকে অকার্যকর করে কিনা।


C6 B6 F0 01 A2 0B 4C 26 ED

শুরু করা উচিত $B1। এটি উপরের দুটি প্রোগ্রামের সংমিশ্রণ, মোট তিনটি বাইট সংরক্ষণ করে; আপনাকে মনিটরকে একটি ইতিবাচক ঠিকানা দিয়ে কল করতে হবে, এটিকে লোড করুন এবং সেখান থেকে এটি চালাতে হবে এবং আপনার কাজ শেষ হয়ে গেলে বেসিকটিকে পুনরায় আরম্ভ করার জন্য Ctrl+ ব্যবহার BReturnকরতে হবে।


নোট করুন যে এই প্রোগ্রামগুলি কেবল মেমরিতে প্রোগ্রাম পরিবর্তন করে; ডিস্ক থেকে প্রোগ্রামটি পুনরায় লোড করা গণনা পুনরায় সেট করবে। এটি কাজ করে কারণ অ্যাপল] [(এবং] [+, // ই, এবং // সি) এর যা মেমরি সুরক্ষা সিস্টেম নেই; প্রোগ্রামটি (এবং এর স্ব-পরিবর্তনগুলি) প্রস্থান করার পরেও মেমরিতে থাকবে, যাতে আপনি অন্য কিছু দিয়ে সেই স্মৃতিটিকে ওভাররাইট না করা পর্যন্ত আপনি এটিকে মেমরি থেকে চালিয়ে যেতে পারেন can


নমুনা রান

]BLOAD COUNT THEN BRK
]CALL 32768
10
]CALL 32768
9
]CALL 32768
8
]CALL 32768
7
]CALL 32768
6
]CALL 32768
5
]CALL 32768
4
]CALL 32768
3
]CALL 32768
2
]CALL 32768
1
]CALL 32768

8008-    A=80 X=9D Y=00 P=36 S=EE
*

ব্যাখ্যা

     DEC NUM+1  ; Decrement the LDX instruction's operand
     BEQ NUM+1  ; If it is now zero, branch to it; 00 is the opcode for the BRK instruction, which causes the program to crash to the monitor
NUM  LDX #$0B   ; Load the X register with 0x0A; the operand has already been decremented once
     LDA #$00   ; Load the accumulator with 0
     JMP $ED24  ; Jump to $ED24, an Applesoft ROM routine which prints A (high byte),X (low byte) in decimal

10 বাইট সংস্করণ ব্যাখ্যা

     DEC NUM+1  ; Decrement the LDX instruction's operand
     BEQ NUM+1  ; If it is now zero, branch to it; 00 is the opcode for the BRK instruction, which causes the program to crash to the monitor
NUM  LDX #$0B   ; Load the X register with 0x0A; the operand has already been decremented once
     JMP $ED26  ; Jump to $ED26, which is two bytes into the Applesoft routine at $ED24. The two skipped bytes would store the accumulator in $9E

ভেরিয়েন্ট

প্রিন্ট ERRএবং বিপগুলি গণনা 0 এ পৌঁছালে

সাধারণ - 15 বাইট

CE 06 80 F0 07 A2 0B A9 00 4C 24 ED 4C 2D FF

ওভাররাইটস CHRGET- 14 বাইট

C6 B6 F0 07 A2 0B A9 00 4C 24 ED 4C 2D FF

আরম্ভ হয় না $9E- 13 বাইট

CE 06 80 F0 05 A2 0B 4C 26 ED 4C 2D FF

ওভাররাইটগুলি CHRGETএবং আরম্ভ হয় না $9E- 12 বাইট

C6 B6 F0 05 A2 0B 4C 26 ED 4C 2D FF

গণনা 0 এ পৌঁছালে স্থির হয়ে যায়

সাধারণ - 12 বাইট

CE 06 80 F0 FE A2 0B A9 00 4C 24 ED

ওভাররাইটস CHRGET- 11 বাইট

C6 B6 F0 FE A2 0B A9 00 4C 24 ED

আরম্ভ নয় $9E- 10 বাইট

CE 06 80 F0 FE A2 0B 4C 26 ED

ওভাররাইটগুলি CHRGETএবং আরম্ভ হয় না $9E- 9 বাইট

C6 B6 F0 FE A2 0B 4C 26 ED

আমি নিশ্চিত যে আমি এটি বুঝতে পারি না .. এটি কি পাইথনে কোনও ফাংশন থাকার মতো হবে না যা একটি বৈশ্বিক পরিবর্তনশীল হ্রাস করে এবং কেবল শেলের মধ্যে কার্যকর হলেই কাজ করে? এটা কি অনুমোদিত? আমার অর্থ হ'ল, কোনও প্রোগ্রামের পক্ষে সাধারণত কোনও মুহুর্তে স্মৃতি ছেড়ে দেওয়া, পরে আবার লোড করা আশা করা যায় না?
redstarcoder

3
@ রেডস্ট্রাকোডার নং - অ্যাপল দ্বিতীয়টির আক্ষরিক অর্থে মেমরি বরাদ্দ সিস্টেম নেই; আপনি যে কোনও স্থানে র‌্যামে যে কোনও জায়গা সঞ্চয় করতে পারবেন এবং এটি কোনও মান দ্বারা ওভাররাইট না হওয়া অবধি কোনও প্রোগ্রামের দ্বারা অ্যাক্সেসযোগ্য থাকবে।
insert_name_ এখানে

@ ইনসেট_নাম_এখানে, আমি নিশ্চিত নই যে এটি যে কোনও স্থানে র‌্যামের যে কোনও জায়গায় অ্যাক্সেসযোগ্য হওয়ায় কোনও কিছু পরিবর্তন হয়। আপনি কি অন্যান্য প্রোগ্রামগুলি নির্ভরযোগ্যভাবে চালাতে পারেন এবং এখনও এই প্রোগ্রামটি চালিয়ে যেতে পারেন? পুরোপুরি বোঝার জন্য আমি এখানকার নিয়মগুলির সাথে যথেষ্ট পরিচিত নই, তাই আমি কেবল এটিকে ফেলে দেব। আমি কেবলমাত্র একটি সম্পূর্ণ প্রোগ্রাম পুনরায় বুট চালিয়ে যাওয়ার আশা করি এবং সাধারণত যদি অন্য প্রোগ্রামগুলি এর সম্পাদনের মধ্যে চলে তবে ঠিকঠাক চালাতে সক্ষম হব, তবে সম্প্রদায়টি একটি সম্পূর্ণ প্রোগ্রামকে কী হিসাবে নিয়ম করে তা আমি জানি না।
redstarcoder

1
@ রেডস্ট্রাকোডার সাধারণ sensকমত্যটি হ'ল প্রোগ্রামটি একটি ডেভলপমেন্ট কম্পিউটারে চালিত হয় যা প্রয়োজনীয় সফ্টওয়্যার ব্যতীত আর সময়ে সময়ে আর কিছু না করে with
টম কার্পেন্টার

1
আপনি যদি এর পরিবর্তে from 6 ই থেকে চালান তবে 8 বাইট: C6 75 F0 03 4C 22 ED 0B
পিটার ফেরি

35

লিনাক্সে পার্ল, 17 বাইট

আমি ভেবেছিলাম এমন একটি প্রোগ্রাম তৈরি করা আকর্ষণীয় হতে পারে যা কোনও রাজ্য নিজেই বজায় রাখে না এবং এর নিজস্ব উত্স কোডটি সংশোধন করে না; অন্য কথায়, এটি ওএসকে জিজ্ঞাসা করে এটি কতবার চালিত হয়েছে তা যাচাই করে। প্রশ্নটি বলছে "স্টোরেজের জন্য ব্যবহৃত যে কোনও সুবিধা প্রোগ্রামের প্রথম প্রয়োগের আগে খালি মনে করা যেতে পারে" "এবং আমরা সম্পূর্ণ ফাঁকা ওএস থেকে শুরু করতে চাই। এই হিসাবে, আমি আরও ভালভাবে ব্যাখ্যা করব যে আপনি কীভাবে এটি চালিয়ে যাচ্ছেন, অন্যথায় প্রোগ্রামটি পরীক্ষা করা কঠিন।

প্রোগ্রামটি চালানোর জন্য দুটি উপায় সেট আপ করতে পারেন। যে কোনও উপায়ে, উদ্দেশ্যে সর্বনিম্ন ওএস শেল ছাড়া কিছুই চালানো হবে না (আমাদের পরিবর্তে পার্ল চালাতে সক্ষম করে), এবং এটিতে সহজতম শেল (যাতে এটি কোনও অভিনব কাজ না করে যা ওএসকে অ- ফাঁকা)। /bin/dashএটি সিস্টেমের পুনরুদ্ধারের জন্য ন্যূনতম শেল হিসাবে লক্ষ্য করা হয়েছিল বলে এখানে একটি ভাল পছন্দ। এর পরে, আমরা এটা কিছুই চালাচ্ছে কিন্তু এমনভাবে লিনাক্স শুরু করতে dash। আমরা init=/bin/dashলিনাক্স কমান্ড লাইনের সাহায্যে কম্পিউটারটি রিবুট করে এটি করতে পারি যাতে এটি ব্যতীত আর কিছু শুরু না করে dash(অথবা আরও সহজেই) unshare -Urfp /bin/dashটার্মিনালে একটি লিনাক্স ধারক তৈরি করে ( unshareআসলে একটি ফাঁকা ওএস তৈরি করে না , তবে এটি অনুকরণ করে)এক; উল্লেখযোগ্যভাবে, ধারকটির অভ্যন্তরটি এটি মূল বলে dashমনে করে , এটি ডিআইডি ইত্যাদি মনে করে, যেমন একটি আসল ফাঁকা ওএসে ঘটে। দাবি অস্বীকার: আমি unshareকেবল এটি কেবল খালি ধাতুতে পরীক্ষা করে দেখিনি , তবে এটি তত্ত্বের উভয়ভাবেই কাজ করা উচিত।

অবশেষে, একবার আমরা এটি সেট আপ হয়ে গেলে, আমাদের কেবল পিআইডি দেখতে হবে; যেহেতু আমরা একটি ফাঁকা সিস্টেমে আছি, থ্রি সিস্টেমটি (এখানে, শেল) পিআইডি 1 থাকবে, সুতরাং পার্লের মৃত্যুদন্ড কার্যকর হওয়া 2 থেকে 12 সমেত পিআইডি থাকবে। সুতরাং আমাদের প্রোগ্রামটি এর মতো দেখাচ্ছে:

say 12-$$||die

একটি নমুনা রান এখানে:

$ unshare -Urfp /bin/dash
# perl -E 'say 12-$$||die'
10
# perl -E 'say 12-$$||die'
9
# perl -E 'say 12-$$||die'
8
# perl -E 'say 12-$$||die'
7
# perl -E 'say 12-$$||die'
6
# perl -E 'say 12-$$||die'
5
# perl -E 'say 12-$$||die'
4
# perl -E 'say 12-$$||die'
3
# perl -E 'say 12-$$||die'
2
# perl -E 'say 12-$$||die'
1
# perl -E 'say 12-$$||die'
Died at -e line 1.
#

আপনি কোন ওএস এ চালাচ্ছেন? আমি উবুন্টু লিনাক্স 14.04 এ আছি, এবং unshareকোনও পতাকা সমর্থন করে না -Urfp
isaacg

@ আইসএকেজি: উবুন্টু 16.04। unshareচমত্কার নতুন (এটি একটি ওএস বৈশিষ্ট্যের ইন্টারফেস যা এটিও বেশ নতুন) এবং বাগগুলি কেবল সত্যই গত বছর বা তারও বেশি সময় ধরে ইস্ত্রি করা হয়েছিল। আপনি যদি 2½ বছরের পুরানো সংস্করণ ব্যবহার করেন তবে এটি আশ্চর্যজনক যে এটি কার্যকারিতা খুব সীমিত।

14

বাশ + সেড, 41 40 38 বাইট

echo $[n=10/1]
sed -i s/$n/$[n-1]/g $0

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


টিআইও লিঙ্কটির একটি শিরোনাম এবং পাদচরণ রয়েছে, সেগুলি কী বাইট গণনায় যুক্ত হয় না?
পাভেল

2
না, এগুলি কেবল 11 বার প্রোগ্রাম চালানোর জন্য।
ডেনিস

আমি পেতে sed: invalid option -- '/'
সেড

@ shrx হু আমার কাছে স্থানীয়ভাবে এবং টিআইওতে সেডের একই সংস্করণ রয়েছে এবং তারা ত্রুটিটি দেখায় না।
ডেনিস

9

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

y=localStorage;y.a=y.a||10;alert(y.a--||a)

এই ফিজল দিয়ে এটি পরীক্ষা করে দেখুন - কাউন্টডাউনটি পুনরায় সেট করতে আপনার স্থানীয় সঞ্চয়স্থান সাফ করতে ভুলবেন না।

প্রচুর বাইটের জন্য স্টেনবার্গ, লিমিস এবং ওবারাকনকে ধন্যবাদ!


y=localStorage;y.a=y.a||10;alert(y.a>0?y.a--:a)আপনি একটি বাইট সংরক্ষণ করতে পারেন।
অলিভার

আপনি sessionStorageআরও সহজ রিসেট দিয়ে পরীক্ষা করতে ব্যবহার করতে পারেন (কেবল একটি তাজা ট্যাব ব্যবহার করুন) তবে অবশ্যই +2 বাইট।
কেভিন রেইড

খুব, দুঃখিত, আমি আপনার উত্তরটি দেখেছি, প্রায় একই কাজ শেষ করেছি। আপনি যদি চান, আপনি l=localStorage;l.l=-~l.l;alert(10-l.l||l)একটি বাইট সংরক্ষণ করতে পারেন , আমি আমার মুছতে চাই
C5H8NNaO4

@ মেগো অবশ্যই :) আমি console.logএখানে একটি দেখতে পাচ্ছি না তবে আমি এটিকে পছন্দ করব
C5H8NNaO4

1
@ ওবরকন ইয়েপ, এবং বুলিয়ান শর্ট aসার্কিটগুলি যখন লোকালস্টোরেজের মান 0 না হয় তখন মূল্যায়ন করতে বাধা দেয়
মেগো

8

সি #, 197 160 159 125 বাইট

namespace System.IO{class P{static void Main(){int n=11;for(;File.Exists(""+--n););File.Create(""+n);Console.Wr‌​ite(n*n/n);}}}

দুধের জন্য 34 বাইট সংরক্ষণ করা হয়েছে

এবং একটি ফর্ম্যাট সংস্করণ ( ReadKeyযোগ করা যাতে আপনি আউটপুট দেখতে পারেন):

namespace System.IO
{
    class P
    {
        static void Main()
        {
            int n=11;
            for(;File.Exists(""+--n););
            File.Create(""+n);
            Console.Wr‌​ite(n*n/n);
        }
    }
}

গল্ফ করার জন্য সম্ভবত জায়গা আছে তাই এটি ভেবে অনেক বেশি সময় লাগবে।


2
File.Existsএবং File.Createপরিবর্তে ReadAllTextএবং WriteAllText। কোনও ফাইলের নাম বিদ্যমান আছে কিনা তা যাচাই করে নিন, ফাইলের সামগ্রীর সাথে দুজনেই থাকবেন না। এছাড়াও, namespace System.IOএবং আপনি নাম স্থানটি এখান থেকে সরাতে পারেন System.Console.Write। 125 বাইট:namespace System.IO{class P{static void Main(){var n=11;for(;File.Exists(""+--n););File.Create(""+n);Console.Write(n*n/n);}}}
দুধ

@ মিল্ক অনেক ধন্যবাদ! বিশ্বাস করতে পারি না আমি কেবল ফাইল নামটি ব্যবহার করার কথা ভাবিনি! এবং আমি সেই নেমস্পেস ট্রিক সম্পর্কে জানতাম না, দুর্দান্ত।
TheLethalCoder

8

ডায়ালগ এপিএল , 33 28 22/20? বাইট

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

f←{6::⊢c∘←10⋄÷÷c∘←c-1}

নোট করুন যে এটি ∘←বিশ্বব্যাপী নির্ধারিত একটি অনানুষ্ঠানিক কৌতুকের উপর নির্ভর করে ।

6:: কোন মান ত্রুটি উপর

⊢cরিটার্ন

∘←10 যা বিশ্বব্যাপী 10 এ সেট করা আছে

এখন

÷÷c দ্বিগুণ উল্টানো (শূন্যের ত্রুটি) প্রদান

∘← যা বিশ্বব্যাপী সেট করা আছে

c-1গ এর চেয়ে কম

অনলাইনে চেষ্টা করুন!


অবশ্যই বৈধ 28 বাইট সংস্করণ:

f
'c←11'/⍨0=⎕NC'c'
c←÷÷c-1

সেটিং দ্বারা ওয়ার্কস 11 যদি অনুপস্থিত তারপর, থেকে 1 বিয়োগ , inverting দুইবার (যা DIV আছে-বাই-শূন্য ত্রুটি দেয় -1 0), এর বরাদ্দ , এবং নতুন মান outputting।


পুরানো 33 বাইট সংস্করণ:

চ
÷÷ ≢2 ↓ r⊣⎕FX¯1 ↓ দ ← ⎕NR'f '










প্রতিটি রানে নিজেকে নতুন করে সংজ্ঞায়িত করে তবে একটি কম ট্রেলিং নিউলাইন দিয়ে কাজ করে। বাকি দুটি লাইনের দ্বিগুণ উল্টানো সংখ্যার (কম দুটি) আউটপুট দেয়, সুতরাং কেবলমাত্র দুটি লাইন (শিরোনাম এবং আসল কোড) বাকি থাকলে একটি দ্বি বাই শূন্য ত্রুটি দেয়।


1
এর ... এতো নতুন লাইনেল কেন?
ক্রিটসি লিথোস

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

7

পার্ল, 37 36 বাইট

9=~//;print$'-sysopen$~,$0,print$'+1

ক্র্যাশ যখন প্রাথমিক মান পৌছানোর -1 (0 মুদ্রিত হতো যা), কারণ যে এটি উপর লিখেছেন =~অপারেটর।

sysopenপরিবর্তে ব্যবহার করে একটি বাইট সংরক্ষণ করা হয়েছে open। এটি আমাকে STDOUTপ্রথমে মুদ্রণ করতে দেয় , রিটার্ন মানটি ফাইল মোড হিসাবে ব্যবহার করে ( 1, ওরফে O_WRONLY), পূর্বে $~পুনরায় নিয়োগের আগে ।

নমুনা ব্যবহার

$ perl crash-off.pl
10
$ perl crash-off.pl
9
$ perl crash-off.pl
8

...

$ perl crash-off.pl
2
$ perl crash-off.pl
1
$ perl crash-off.pl
syntax error at crash-off.pl line 1, near "1~"
Execution of crash-off.pl aborted due to compilation errors.

6

পার্ল 6 ,  60  58 বাইট

put 10-$=finish.lines||die;
$*PROGRAM.open(:a).put;
=finish
 
open($*PROGRAM,a=>put 10-$=finish.lines||die).put
=finish
 

এর পরে নিউলাইন চরিত্রের প্রয়োজন =finish

dieসঙ্গে প্রতিস্থাপন করা যেতে পারে 1/0

ব্যাখ্যা:

এটি =finish( $=finish.lines) দ্বারা বিয়োগের পরে লাইনের একটি তালিকা পেয়েছে 10এবং ফলাফলটি যদি 0এটি প্রিন্ট করে না, অন্যথায় এটি die

এটি শেষ কাজটি নিজেই সংযোজন মোডে খোলার জন্য থাকে এবং শেষের দিকে অন্য লাইন যুক্ত করে।


মাহবুব তাদের জন্য পার্ল 6. হবে না যারা
ডেনিস

@ ডেনিস কমপক্ষে যেটি আইডিয়নের (রান say $*PERL.compiler.version) হিসাবে এতটা পুরনো নয়
ব্র্যাড গিলবার্ট

1
2014.7 ... বাহ! 2016.11 কি 2016.7 এর থেকে খুব আলাদা? যদি তা হয় তবে আমি উত্স থেকে এটি তৈরি করতে পারি।
ডেনিস

@ ডেনিস পার্ল 6 এর আনুষ্ঠানিক প্রকাশটি ছিল 2015-12-25। দ্য গ্রেট লিস্ট রিফ্যাক্টর (জিএলআর) নামে 2015 সালের শেষের দিকে একটি বড় পরিবর্তন হয়েছিল, তাই 2014.7 এ কাজ করার কোডও পাওয়া প্রায় অসম্ভব। ২০১ 2016 সালে যা ঘটছে তার বেশিরভাগই পারফরম্যান্স সম্পর্কিত, যদিও প্রচুর এজ শর্ত ঠিক করা হয়েছে। রকুডোর 2015.12 প্রকাশের পরে এখানে বেশিরভাগ গল্ফযুক্ত কোডের কোনও কিছুতেই কাজ করা উচিত। সুতরাং আমি মনে করি v2016.07 ঠিক আছে।
ব্র্যাড গিলবার্ট

6

পাইথন 2, 65 বাইট

f=open(__file__,"r+")
x=75-len(f.read())
x/x
print x
f.write('#')

L3viathan এর উত্তর দ্বারা অনুপ্রাণিত ।

আপনি 60 টি বাইটে কমানো যেতে পারে যদি আপনি ফাইলটির মতো একক অক্ষরটির নাম চয়ন করতে পারেন xএবং তারপরে প্রতিস্থাপন __file__করতে পারেন 'x'। সেক্ষেত্রে, প্রতিস্থাপন 75সঙ্গে 70


@ Flp.Tkc হ্যাঁ, তবে এটি কি একই সংখ্যক বাইট নয়?
অ্যালেক্স হল

ওহ, এটি সত্য: পি
ফ্লিপট্যাক

4

জल्फ, 20 বাইট

γ-@▲lqΈ?␡γ?γaγ0₯I₯C1

এখানে চেষ্টা করুন! ত্রুটি যখন 0মুদ্রিত হয়। কোডটি পরিবর্তন করে। আসার ব্যাখ্যা।


আমি জল্ফের সাথে খুব বেশি পরিচিত নই তবে এটি অনলাইনে দোভাষীতে কাজ করার সাথে সাথে মনে হয় না।
ফল

1
@ চ্যালেঞ্জার 5 ভাষাটি কেবল ফায়ারফক্সে কাজ করে।
কনর ও'ব্রায়েন

4

অ্যাপলসফট বেসিক, 21 বাইট (টোকানাইজড)

0  PRINT 9 + 1: CALL 2066: END : OR <CTRL-F><CTRL-H>`

প্রতিস্থাপন করুন <CTRL-F>এবং <CTRL-H>তাদের আক্ষরিক সংস্করণ দিয়ে। নোট করুন যে এটি কেবল মেমরিতে প্রোগ্রাম পরিবর্তন করে; এটি ডিস্ক থেকে পুনরায় লোড করা গণনা পুনরায় সেট করবে।


নমুনা রান

]RUN
10

]RUN
9

]RUN
8

]RUN
7

]RUN
6

]RUN
5

]RUN
4

]RUN
3

]RUN
2

]RUN
1

]RUN

?SYNTAX ERROR IN 0

ব্যাখ্যা

PRINT 9 + 1আপনি যা আশা করেন তা করে CALL 20662066 মেমরি লোকেশনে 6502 মেশিন-ভাষা রুটিনকে কল করে, যা পরে END :ENDপ্রোগ্রামটি থামিয়ে দেয় যাতে মেশিন-ভাষা রুটিন (যা অ্যাপলসফট দোভাষী হিসাবে আবর্জনা) কার্যকর হয় না।

মেশিন ভাষার রুটিন কেবল decrements 9মধ্যে PRINT 9 + 1। disassembly:

0812-   CE 06 08    DEC $0806
0815-   60          RTS

কাউন্টারে 0 পৌঁছানোর পরে, এটি "হ্রাস" হয় /; প্রোগ্রামটি চালানোর চেষ্টা করার পরে একটি সিনট্যাক্স ত্রুটি ঘটবে।


4

*> <> , 20 18 বাইট

a1Fi:0(?b1-:?:1Fn;

এটি প্রকৃতপক্ষে লিনাক্সে কাজ করে (এবং \nআমার অনুমান অনুসারে ফাইলগুলি সমর্থন করে )। এটি \nপ্রথম রান এবং আউটপুটগুলির নামে একটি ফাইল তৈরি করে 10। এটি প্রতিটি সংঘটিত রানের তুলনায় কম সংখ্যক আউটপুটে এগিয়ে যায়, 0যেখানে পরিবর্তে এটি ক্র্যাশ হয় except

ব্যাখ্যা

a1F                   open file named "\n"
   i:                 recieve input and duplicate it (-1 if empty)
     0(?b             if the file is empty, push 11 to the stack
         1-           subtract one
           :          duplicate the number
            ?:        if the number isn't 0, duplicate it again
              1F      save the number to the file
                n     output the number (crash if non-existant)
                 ;    exit

2
সুবিধাজনক যে *> <> আইও যোগ করে
অ্যালফি গুডাক্রে

4

পিএইচপি 57 বাইট

echo$n=($f=file(f))?$f[0]:10?:die;fputs(fopen(f,w),--$n);

আসলেই ক্র্যাশ হয় না তবে প্রস্থান (গণনা ছাড়াই) হিট হয় যখন 0। তা কি যথেষ্ট?

সাথে চালাও -r


4

সি #, 156 বাইট

আমি @ দ্য লেথলকোডার এর উত্তরটি কিছুটা জন্য গল্ফ করেছিলাম এবং বিবৃতিগুলি পুনরায় সাজিয়ে এবং ইন্টার. পার্স () কে সরিয়ে 3 বাইট সংরক্ষণ করতে সক্ষম হয়েছি। উন্নতির জন্য স্থির জায়গা, আমি নিশ্চিত।

using System.IO;class P{static void Main(){int n;try{n=File.ReadAllText("f")[0]-48;}catch{n=10;}System.Console.Write(n/n*n);File.WriteAllText("f",""+--n);}}

Ungolfed:

using System.IO;
class P
{
    static void Main()
    {
        int n;
        try
        {
            n = File.ReadAllText("f")[0] - 48;
        }
        catch {
            n = 10;
        }
        System.Console.Write(n / n * n);
        File.WriteAllText("f", "" + --n);
    }
}

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


লোকেরা সাধারণত অন্যান্য ব্যক্তির নীচে উন্নতির পরামর্শের জবাব দেয়, তবে দুধের খনি দ্বারা প্রস্তাবিত খনিতে যে উন্নতি হয়েছে সেগুলি এখন অনেক বেশি তাই আপনার নিজেরও ঠিক আছে
TheLethalCoder

অন্য
কারওর

3

পাওয়ারশেল ভি 2.0, 49 বাইট

(প্রথমবারের মতো কোড গল্ফ, কীভাবে বাইট গণনা করতে হবে তার বিধিগুলি খুঁজে পাইনি online আমি অনলাইনে স্ট্রিং টু বাইটস ক্যালকুলেটর ব্যবহার করেছি)

if(!$n){$n=10;$n}else{$n-=1;if($n-eq0){throw};$n}

চলমান:

PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
10

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
9

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
8

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
7

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
6

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
5

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
4

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
3

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
2

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
1

____________________________________________________________________________________________________________________________________________________________________
PS C:\Users\***> if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw};$n;}
ScriptHalted
At line:1 char:49
+ if(!$n){$n = 10;$n}else{$n=$n-1;if($n-eq0){throw <<<< };$n;}
    + CategoryInfo          : OperationStopped: (:) [], RuntimeException
    + FullyQualifiedErrorId : ScriptHalted

পিপিসিজিতে আপনাকে স্বাগতম! বাইট গণনা করার নিয়মগুলি ভাষা দ্বারা ব্যবহৃত অক্ষর এনকোডিংয়ের উপর নির্ভর করে। পাওয়ারশেল সম্ভবত ASCII বা UTF-8 এনকোডিং ব্যবহার করে এবং তাই কেবলমাত্র ASCII কোড সহ একটি স্ক্রিপ্টের জন্য যেমন এখানে রয়েছে প্রতিটি চরিত্রটি 1 বাইট নেয়
লুইস মেন্ডো

পিপিসিজিতে আপনাকে স্বাগতম! চ্যালেঞ্জ লেখক অনুসারে, সমস্ত দাখিলি অবশ্যই একটি সম্পূর্ণ প্রোগ্রাম হতে হবে, যা এটি নয় - যেমনটি, এটি মূলত পাওয়ারশেলের একটি আরএপিএল সমতুল্যভাবে পরিচালিত হচ্ছে।
অ্যাডমবর্কবার্ক

যদি আমি এটি একটি .ps1 এর ভিতরে লিখেছি এবং 10 বার ক্রাশ-অফ.ps1 উদাহরণস্বরূপ কার্যকর করেছি, তবে এটি কি পুরো প্রোগ্রাম হিসাবে গণনা করে?
কাইরন ডেভিস

@ কেয়ারন ডেভিস হ্যাঁ, আপনি যদি প্রতিটি বারের মধ্যে শেলটি বন্ধ করে আবার চালু করেন তবে আপনি এখনও একই ফলাফল পেয়েছেন। মৃত্যুর ফাঁকে ফাঁকে আইটেমগুলিকে "স্মৃতিতে" রাখার ফলে পাওয়ারশেলের "REPL পরিবেশ" কে একটি "সম্পূর্ণ প্রোগ্রাম" পরিবেশ থেকে সংজ্ঞায়িত করা হয়।
অ্যাডমবর্কবার্ক

3

জাভা, 343 বাইট

আমার প্রথম গল্ফিং প্রচেষ্টা

import java.io.PrintWriter;class M{public static void main(String[] a) throws Exception{if(!new java.io.File("x").exists()) try(PrintWriter p=new java.io.PrintWriter("x")){p.write("10");}int b=new java.util.Scanner(new java.io.File("x")).nextInt();try(PrintWriter p=new java.io.PrintWriter("x")){p.print(b/b*b-1+"");System.out.print(b+"");}}}

ungolfed

import java.io.PrintWriter;

class M {
    public static void main(String[] a) throws Exception {
        if (!new java.io.File("x").exists()) {
            try (PrintWriter p = new java.io.PrintWriter("x")) {
                p.write("10");
            }
        }
        int b = new java.util.Scanner(new java.io.File("x")).nextInt();
        try (PrintWriter p = new java.io.PrintWriter("x")) {
            p.print(b / b * b - 1 + "");
            System.out.print(b + "");
        }
    }
}

আপনি java.io.*পুরোপুরি যোগ্যতাসম্পন্ন কন্সট্রাক্টর নাম আমদানি করে এবং এড়িয়ে এটিকে 300 বাইটে নামিয়ে আনতে পারেন এবং "মুদ্রণ" স্বয়ংক্রিয়ভাবে তার যুক্তিগুলি আরও শক্তিশালী করবে এই সত্যটি ব্যবহার করে আপনি আরও 8 টি কেটে ফেলতে পারেন:import java.io.*;class M{public static void main(String[] a) throws Exception{if(!new File("x").exists()) try(PrintWriter p=new PrintWriter("x")){p.print(10);}int b=new java.util.Scanner(new File("x")).nextInt();try(PrintWriter p=new PrintWriter("x")){p.print(b/b*b-1);System.out.print(b);}}}
গ্লেন

আপনি ফাইলটি "10" না লিখে 237 বাইটে নামাতে পারবেন এবং ?আপনি যখন পড়বেন কেবল ফাইল অস্তিত্বের ভিত্তিতে অপারেটরটি ব্যবহার করুন b:import java.io.*;class M{public static void main(String[] a) throws Exception{int b=new File("x").exists()?new java.util.Scanner(new File("x")).nextInt():10;try(PrintWriter p=new PrintWriter("x")){p.print(b/b*b-1);System.out.print(b);}}}
গ্লেন

সর্বাধিক অনুকূলিত আমি করতে পারি: 220 বাইট। জন্তুটি এখানে:import java.io.*;class A{public static void main(String[]a)throws Exception{File f=new File("f");int b=f.exists()?new FileInputStream(f).read()-48:10;new PrintWriter(f).printf("%d",b/b*b-1).close();System.out.print(b);}}
অলিভিয়ার গ্রাগোয়ার

পরামর্শের জন্য
THX

3

SQLite, 142 137

এটি সম্ভবত আরও চতুরতার সাথে করা যেতে পারে। 141 কোডের জন্য ১৩6 টি অক্ষর:

create table if not exists t(n not null);insert into t select 11;update t set n=case n when 1 then null else n-1 end;select min(n)from t

প্লাস ফাইলের নাম 1 xমধ্যে sqlite3 x '…'


1
নিস! এর আগে এসকিউএলাইট ব্যবহার করা হয়নি। আপনি "মান 11 (11)" "11 টি" নির্বাচন করে "এবং" টি টি সীমা 1 থেকে "নির্বাচন করুন" টি থেকে "নির্বাচন করুন মিনিট (এন)"
বেন জোফুল

3

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

x=typeof x!=typeof 1?10:x!=1?x-=1:_

l=localStorage;l.a=typeof l.a!=typeof""?10:l.a!=1?l.a=--l.a:_;aler‌​t(l.a)


5
ওপি স্পষ্ট করে দিয়েছে (মন্তব্যে) যে একটি পূর্ণ প্রোগ্রাম প্রয়োজন।
ডেনিস

1
@ ডেনিস আমার সংশোধিত জমাটি কি পুরো প্রোগ্রাম হিসাবে যোগ্যতা অর্জন করবে?
অলিভার

আমি চাই না জানি , কিন্তু আমি তা মনে করি না। আমি বলব যে কল alertবা অনুরূপ কল ছাড়াই এটি কেবল একটি REPL স্নিপেট।
ডেনিস

2
আমার কাছে ভালই মনে হচ্ছে. (এটি আমার ফোন থেকে পরীক্ষা করা যায় না))
ডেনিস

3

রুবি, 94 87 84 61 59 বাইট

j=File.open(?a,"a+");1/(i=j.readlines.size-14);p -i;j.puts

নীচে পরামর্শ রাখুন।

ধারণাগুলির জন্য @ কনোরো ব্রায়ানকে ধন্যবাদ (কিছু লোক নির্লজ্জভাবে তার উত্তর থেকে সরে গেছে)।



ব্যবহার করুন newএবং sizeপরিবর্তে openএবং length
লি ডব্লু

2

রুবি, 52 + 1 = 53 বাইট

ধরে নিই ফাইলটির নাম দেওয়া হয়েছে a(+1 বাইট)।

q=File.read ?a
0/h=62-q.size
p h
File.write ?a,q+?1#

চলমান

C:\Users\Conor O'Brien\Documents\Programming
λ type a
q=File.read ?a
0/h=62-q.size
p h
File.write ?a,q+?1#
C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
10

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
9

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
8

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
7

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
6

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
5

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
4

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
3

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
2

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
1

C:\Users\Conor O'Brien\Documents\Programming
λ ruby a
a:2:in `/': divided by 0 (ZeroDivisionError)
        from a:2:in `<main>'

... আপনি কি নাম ধরে নিতে পারবেন?
dkudriavtsev

আপনি শেষ লাইনে a এবং 'প্রতিধ্বনি >> # $ 0' (ব্যাকটিক্স সহ) এর পরিবর্তে $ 0 ব্যবহার করতে পারেন।
জিবি

@ জিবি এটি ধরে নেওয়ার চেয়ে আরও বেশি বাইট a(যা কেবলমাত্র +1)।
wizzwizz4

? a 2 বাইট, $ 0 2 বাইট, তবে হোয়াইটস্পেসের দরকার নেই।
জিবি

2

পাইথন 2, 89 বাইট

x=10
x/x
print x
f=open(__file__,"r+")
s=f.read()
f.seek(0)
f.write(s.replace(`x`,`x-1`))

আপনার খোলার ধারণাটি আমার পছন্দ হয়েছে __file__তাই আমি আমার উত্তরে এটি ব্যবহার করেছি।
অ্যালেক্স হল

@ অ্যালেক্সহল দুর্দান্ত ধারণা সহlen
L3viathan

@ Flp.Tkc আমি এর সাথে কোনও অক্ষর সংরক্ষণ করব না। আমাকে এখনও ভেরিয়েবলটি ব্যবহার করতে হবে s, কারণ আমাকে পড়তে হবে, তারপরে অনুসন্ধান করতে হবে, তারপরে লিখতে হবে। print x/x*xকাজ করবে, কিন্তু বাইট গণনা উন্নত করে না।
L3viathan

2

টিআই-বেসিক (টিআই -৪৪ প্লাস) (15 বাইট)

If not(Ans
11
Ans-1
AnsAns/Ans

উত্তরগুলি প্রথম রানের আগে 0 (ডিফল্ট মান) এর সমান হয়।

যেহেতু AnsAns/Ansপ্রোগ্রামটির সর্বশেষ লাইন তাই উত্তর 0 না হওয়া পর্যন্ত এটি আউটপুট করে উত্তর এ সংরক্ষণ করা হবে, এক্ষেত্রে 0 ত্রুটি দ্বারা বিভাজন ঘটে।


2

জাভাস্ক্রিপ্ট, 41

l=localStorage;l.l=-~l.l;alert(11-l.l||I)


@ মেগো হ্যাঁ স্পষ্টতই, আমি জানি না এটি কীভাবে ঘটতে পারে ... আমি লেখার সময় এর aপরিবর্তে আমার একটা ছিল lএবং চিন্তা না করেই এটি পরিবর্তন করেছিলাম, কারণ আমি ভেবেছিলাম এটি আরও মজাদার মনে হচ্ছে ... অনেক দেরি হয়ে গেছে এবং হার্বি , যে ইশারা জন্য ধন্যবাদ.
C5H8NNaO4

1

জিএনইউ স্মলটাল্ক, 70, 68 বাইট

"-S" পতাকাটির জন্য 66 বাইট কোড +2 বাইট

সম্পাদনাগুলি

  • অপ্রয়োজনীয় বন্ধনী সরানো হয়েছে, -২ বাইট

Golfed

X=Y ifTrue:[Smalltalk at:#X put:10]ifFalse:[X:=X-1].(X*X/X)printNl

পরীক্ষা

>seq 11|xargs -L1 sudo gst -S fail.st 2>/dev/null
10
9
8
7
6
5
4
3
2
1
Object: 0 error: The program attempted to divide a number by zero
ZeroDivide(Exception)>>signal (ExcHandling.st:254)
SmallInteger(Number)>>zeroDivide (SysExcept.st:1426)
SmallInteger>>/ (SmallInt.st:277)
UndefinedObject>>executeStatements (fail.st:1)

গুরুত্বপূর্ণ

ডিফল্ট চিত্রটি সংশোধন করতে সক্ষম হতে বা -আই দিয়ে আপনার নিজস্ব চিত্র নির্দিষ্ট করতে আপনাকে অবশ্যই রুট হিসাবে gst চালাতে হবে ।


1

পিএইচপি, 45 বাইট

সত্যিই নিশ্চিত না এটির যদি এটি গণনা করে।

<?session_start();echo10-$_SESSION[0]++?:die;

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

dieকমান্ডটি সঞ্চালিত হওয়ার পরে আপনি প্রতিবার পৃষ্ঠাটি 0 রিফ্রেশ করার সময় পর্যন্ত এটি গণনা করতে থাকবে ।


0

কিউবিআইসি , 70 বাইট

open"r",1,"a.b" $get#1,1,e|~e=0|e=z\e=e-1]?e~e=0|$error 1|]$put#1,1,e|

ফাইল খোলে a.b(বা এটি প্রথম রান করার সময় খুঁজে পাওয়া যায় না), রেকর্ড 1 এ পড়ে e। যদি এই রেকর্ডটি পাওয়া যায় না, তবে 10 টি অনুমান করুন, অন্যটি 1 টি তে e==0, একটি ত্রুটি বাড়ান। আবার লিখুন eকরতে a.b

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


0

ব্যাচ, 72 বাইট

@call:l
@if %n%==0 goto g
@echo %n%
@cmd/cset/a-1>>%0
:l
@set/an=10

এক্সটেনশন সহ পুরো ফাইলের নাম ব্যবহার করে আহ্বান করা দরকার। শেষ লাইনে অবশ্যই চলমান নতুন লাইন থাকা উচিত নয়। -1শেষ লাইনের শেষে লিখে কাজ করে যাতে এটি প্রতিবারের চেয়ে কম 1 করে মূল্যায়ন করে। goto gকোনও ত্রুটি আছে কারণ কোনও লেবেল নেই :g


0

আর, 52 বাইট

`if`(!"x"%in%ls(),cat(x<-10),`if`(x>0,cat(x<-x-1),))

মূলত ls()সমস্ত বিশ্বব্যাপী সঞ্চিত বস্তুর নাম তালিকাভুক্ত করতে ব্যবহার করে। যদি আমরা ধরে নিই যে বিশ্বব্যাপী পরিবেশটি খালি রয়েছে এবং "x"ইতিমধ্যে এটি বিদ্যমান নেই, উত্পন্ন করুন x=10, অন্যথায় যদি x!=0বিয়োগ করে 1অন্য কোনও অনুপস্থিত যুক্তি কল করে যা ত্রুটি দেখায় ।


আপনি সরিয়ে একটি বাইট সংরক্ষণ করতে পারবেন !এবং তারপর অন্য আর্গুমেন্ট অর্ডার, এবং পরিবর্তন করে দুই সুইচিং x>0করতে x। (এছাড়াও, বাইট গণনায় সমান হলেও এর exists("x")চেয়ে সামান্য পরিচ্ছন্ন "x"%in%ls()))
rturnbull

আহ, স্পেসিফিকেশনে মন্তব্যগুলি পুনরায় পড়া, দেখে মনে হচ্ছে একটি সম্পূর্ণ প্রোগ্রামের প্রয়োজন, যার অর্থ আপনি রানের মধ্যে বস্তুর দৃ pers়তার উপর নির্ভর করতে পারবেন না।
rturnbull

@ আর্টারনবুল যদিও এটি স্পষ্টভাবে বিবৃত হয়েছে তা আমি খুঁজে পাচ্ছি না। আপনি যদি আমাকে এটি নির্দেশ করতে পারেন তবে আমি উত্তরটি মুছব।
বিলিওব

এটি এখানে উল্লেখ করা হয়েছে , যদিও এটি চশমাটিতে সম্পাদিত হয়নি।
rturnbull


0

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

function* f(n=11){for(;--n;yield n);throw''}

p=f()
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)
console.log(p.next().value)

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