আপনি কি একটি বারে বারকোড কোড করতে পারেন?

Question

পিন্যাপল বার, মেলবোর্নে আপনাকে স্বাগতম। সেরা কোড গল্ফারগুলির সমস্ত এখানে ল্যাপটপ, নমুনা ককটেল এবং ক্রমবর্ধমান খারাপভাবে প্রোগ্রাম সহ are

আমি শেষ পয়েন্টটি পুনর্বিবেচনার একটি বিশেষ প্রয়োজন বোধ করি। খারাপভাবে বাড়ছে। অ্যালকোহল প্রোগ্রামিংয়ের যুক্তিতে মজার কাজ করতে পারে।

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

সাধারণত, এটি কোনও বড় বিষয় হবে না। তবে, কিছু গল্ফার বহু বছর আগে সিস্টেমটি ডিজাইন করেছিল এবং বারকোডগুলির কোনওটিই স্ট্যান্ডার্ড ছিল না। ধরে নেওয়া 1 এর লাইন এবং 0 এর স্থান হ'ল এগুলি সব 101 দিয়ে শুরু হয় এবং 1001 দিয়ে শেষ হয় the মাঝখানে সমস্ত কিছু 7-বিট ASCII এনকোডযুক্ত।

বারকিপটিতে একটি বড় অভিনব বারকোড রিডার রয়েছে যা আপনার প্রোগ্রামের উপর নির্ভর করে এসটিডিআইএন, যুক্তি বা ফাইলের মাধ্যমে 1 এবং 0 এর নির্বিচার দৈর্ঘ্যের (যদিও 300 বিট কম হলেও) প্রদান করবে। বোতলটি কীভাবে রাখা হচ্ছে তার উপর নির্ভর করে এটি সামনে বা পিছনে আসতে পারে। আপনার প্রোগ্রামটি অবশ্যই স্টক বা ফাইলের মাধ্যমে বারকোডের মাঝামাঝি থেকে স্ট্রিংটি ফেরত দিতে হবে।

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

শুভকামনা!

Comments

অন্য কথায়, তা নির্ধারণ করে ইনপুট 101...1001বা 1001...101এবং বিপরীত পরেরটির ক্ষেত্রে, তারপর বাইট মধ্যে কেন্দ্র প্যাক করুন।

— জন ডিভোরাক

সম্পূর্ণ নির্ভুল তবে তাতে কী মজা? : পি

— lochok

Answer 1

গল্ফস্ক্রিপ্ট, 30 টি অক্ষর

.-1%]$1=3>7/);{{1&}%2base}%""+

এসটিডিআইএন-এ ইনপুট সরবরাহ করা হয়। উদাহরণ :

> 1011000001100001010000111001
ABC

> 1001110000101000011000001101
ABC

Answer 2

জে - 35 বাইট

_7(a.{~#.)\_4}.3}.|.^:([:-.2{])"."0

ব্যাখ্যা পরে আসছে :)।

Comments

কত পরে? ;-)

— টিম

Answer 3

পাইথ , 21

smCid2c:?zv@z2_z3_4 7

ব্যাখ্যা:

        ?zv@z2_z           Input if 3rd character of input is 1, else reversed input.
       :        3_4        Slice out the middle portion, ASCII of the above string.
      c             7      Chop into 7 character chunks.
 mCid2                     Convert each chunk from binary to integer, then to a character.
s                          Sum up the characters into a string and print.

মনে রাখবেন যে প্রশ্নটি ভাষার চেয়েও বেশি বয়স্ক, প্রশ্নের অস্তিত্ব কোনওভাবেই ভাষার নকশাকে প্রভাবিত করে না, কারণ আমি আজকের আগে প্রশ্নটি দেখিনি।

তবুও নিয়মগুলি বিধি, তাই আমি এটি সিডাব্লু তৈরি করছি।

Comments

ঠিক আছে, আমি তখন এটি সিডব্লিউ করব।

— isaacg

Answer 4

এডাব্লুকে, 116 বাইট

/101$/{r=1}{L=split($0,a,"")
n=r?L-2:3
N=r?-1:1
while(d<L-7){c=0
for(k=0;k<7;k++){c*=2;c+=a[n+=N];d++}printf"%c",c}}

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