এখন আমি আমার এবিসিগুলিকে জানি, আপনি কি আমার সাথে গল্ফ করবেন না?


46

এমন একটি প্রোগ্রাম বা ফাংশন লিখুন যা এই সঠিক পাঠ্যটিকে ছাড়িয়ে যায়, কেস-সংবেদনশীল:

A, B, C, D, E, F, G,
H, I, J, K, L, M, N, O, P,
Q, R, S,
T, U, V,
W, X, Y, Z.

( বর্ণের গানের উপর ভিত্তি করে যে অনেক আমেরিকান বাচ্চারা আরও সংকোচনের জন্য সম্পাদিত হলেও বর্ণমালা মুখস্থ করতে সহায়তা শিখেছে))

আউটপুট আবশ্যক চেহারা উপরে (আবার, কেস-অবশ) নামে ঠিক একই, কিন্তু প্রতিটি লাইন এবং / অথবা trailing নতুন লাইন উপর trailing স্পেস থাকতে পারে। পিরিয়ডটি শেষে দেখুন Notice

এটি কোড-গল্ফ, তাই বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী।


4
রেজেক্স ভিত্তিক ভাষার জন্য 0 প্রস্থের বর্ণনীর দিকে বিবেচনা করুন .../(?=[HQTW])/
ম্যাজিক অক্টোপাস উরান

29
আমি ভেবেছিলাম H, I, J, K, LMNO, P?
মনিকা

7
শেষ লাইনের "ওয়াই এবং জেড" দিয়ে শেষ হওয়া উচিত নয়?
কেএম

@KM। এটি স্যান্ডবক্সে আলোচনা করা হয়েছিল এবং আমরা চ্যালেঞ্জটি কম জটিল করার জন্য এই সংস্করণটি ধরে রাখার সিদ্ধান্ত নিয়েছি।
ETH প্রোডাকশনগুলি

6
গল্ফ বিরক্তিকর বলে মনে হচ্ছে। ক্রিকেট আরও ভাল।
মনোজ কুমার

উত্তর:


15

ভিম, 42 , 40 কীস্ট্রোক / বাইট

:h<_<cr>jjYZZP:s/./&, /g<cr>7f r<cr>9;.3;.3;.$ch.

সাহায্যের থেকে বর্ণমালা ধরার জন্য টিপটির জন্য লিন এবং তার দুর্দান্ত ভয়ঙ্কর উত্তরটির জন্য ধন্যবাদ ।

দুটি বাইট সংরক্ষণের জন্য রোমানগ্রাফকে ধন্যবাদ!

ব্যাখ্যা:

:h<_<cr>                                      " Open up vim-help
        jj                                    " Move down two lines
          Y                                   " Yank this line (containing the alphabet)
           ZZ                                 " Close this buffer
             P                                " Paste the line we just yanked
              :s/./&, /g<cr>                  " Replace every character with that character followed by a comma and a space
                            7f                " Find the seven space on this line
                               r<cr>          " And replace it with a newline
                                    9;        " Repeat the last search (space) 9 times
                                      .       " Repeat the last edit (replace with a newline)
                                       3;     " Third space
                                         .    " Replace with newline
                                          3;  " Third space
                                            . " Replace with newline

তারপরে, আমরা রেখার শেষের প্রান্তটি সরিয়ে নিয়ে যাই $, একটি অক্ষর দিয়ে আবার পরিবর্তন করি chএবং একটি বিন্দু সন্নিবেশ করি।


2
আপনার অবশ্যই বড় হাতের মধ্যে রূপান্তর করা উচিত নয়। ওপি "এই সঠিক পাঠ্য, কেস-সংবেদনশীল" বলেছিল।
রোমান গ্রাফ 30:25

@ রোমানগ্রাফ টিপটির জন্য ধন্যবাদ!
ডিজেএমসিএমহেম

হা! ভিএম সাহায্যের বর্ণমালা পাওয়া প্রতিভা! আপনি কি জানেন বা এই চ্যালেঞ্জটির জন্য এটি সন্ধান করেছেন?
খ্রিস্টান রোনডো


@ রোমানগ্রাফ +1 অবশ্যই ব্যবহারের জন্য নেই
ফ্যান্টাসি

12

05 এ বি 1 ই , 16 বাইট

কোড

A',â79334S£»¨'.J

ব্যাখ্যা:

A                  # Push the alphabet.
 ',â               # Cartesian product with ','.
    79334S         # Push [7, 9, 3, 3, 4].
          £        # Contigious substring, pushes the substrings [0:7], [7:7+9], 
                     [7+9:7+9+3], [7+9+3:7+9+3+3], [7+9+3+3:7+9+3+3+4].
           »       # Gridify, join the inner arrays with spaces and join those arrays
                     with newlines.
            ¨      # Remove the last character.
             '.J   # Append a '.'-character.

সিপি -1222 এনকোডিং ব্যবহার করে । এটি অনলাইন চেষ্টা করুন!



11

জাভাস্ক্রিপ্ট (ES6), 66 65 বাইট

প্রহার @Neil অসম্ভব ছিল ... যে কেন আমি তা। :-)

f=(i=10)=>i>34?"z.":i.toString(++i)+","+` 
`[9568512>>i-9&1]+f(i)

থেকে একটি কৌতুক করতে Golfed 1 বাইট ধন্যবাদ @LevelRiverSt । ব্যবহার String.fromCharCodeকরা দীর্ঘ 7 বাইট:

f=(i=65)=>i>89?"Z.":String.fromCharCode(i,44,i%86%83%80%71?32:10)+f(i+1)

কিভাবে এটা কাজ করে

এই যাও recursively থেকে বর্ণমালার প্রতিটি অক্ষর উত্পন্ন aকরতে yব্যবহার .toString()। প্রতিটি চিঠির পরে একটি কমা সংযোজন করা হয়, প্লাসটি যদি নতুন হয় তবে 9568512>>i-9&11 হয় বা অন্যথায় স্থান হয়। যখন পুনরাবৃত্তি 34 এর আগে চলে যায়, ততক্ষণে, zফাংশনটি কেবল ফিরে আসে "z."


অপেক্ষা করুন কী করে এটি কী করে - কীভাবে ব্যাখ্যা করে? : 3
ডাউনগোট

10

পাইথন 2.7, 67 66 63 বাইট

a=65;exec"print'%c'%a+',.'[a>89]+'\\n'[a%42%39%9^2:],;a+=1;"*26

ডেনিস একটি বাইট সংরক্ষণ করলেন।


execপরিবর্তে ব্যবহার forকরে একটি বাইট সংরক্ষণ করা উচিত।
ডেনিস

6

জেলি , 19 18 বাইট

ØAp”,ṁ79334DR¤GṖ”.

1 অ্যাড বাইট গলফ করার জন্য @ আদনানকে ধন্যবাদ!

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

কিভাবে এটা কাজ করে

ØAp”,ṁ79334DR¤GṖ”.  Main link. No arguments.

ØA                  Yield "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
  p”,               Cartesian product with ','; append a comma to each letter.
             ¤      Combine the two links to the left into a niladic chain.
      79334D          Decimal; yield [7, 9, 3, 3, 4].
            R         Range; yield [[1, 2, 3, 4, 5, 6, 7], ..., [1, 2, 3, 4]].
     ṁ              Mold; reshape the array of letters with commata like the
                    generated 2D array.
              G     Grid; separate rows by spaces, columns by linefeeds.
               Ṗ    Pop; discard the last comma.
                ”.  Print the previous result and set the return value to '.'.
                     (implicit) Print the return value.

11
31 সেকেন্ড? ডাং ...
ETH প্রোডাকশনগুলি

5

জাভাস্ক্রিপ্ট (ES6), 80 74 বাইট

_=>[...`ABCDEFGHIJKLMNOPQRSTUVWXYZ`].join`, `.replace(/[HQTW]/g,`
$&`)+`.`

আইএসও -8859-1 এনকোডিংটি কীভাবে ব্যবহার করতে হয় তা যদি আপনি কাজ করতে পারেন তবে সম্ভবত এটিব / বিটিওএ দিয়ে এটি ছোট করা সম্ভব to সম্পাদনা: @ রিকহিচকককে 6 বাইট সংরক্ষণ করা হয়েছে


1
@ রিক হিচকক হ্যাঁ, আমি ঠিক বুঝতে পেরেছি যে পিএইচপি উত্তরটি পড়ে আমি নিজেই পড়েছি।
নিল

@RickHitchcock আপনি চেয়েছিলেন .join`, `? ব্যাকটিক্সের আগে ব্যাকস্ল্যাশ রাখুন। (হ্যাঁ, মন্তব্য মার্কডাউন আলাদা, দীর্ঘশ্বাস ...)
নীল


5

আর, 83 71 বাইট

a=rbind(LETTERS[-26],","," ");a[3,7+3*c(0,3:5)]="\n";cat(a,"Z.",sep="")

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

3 টি সারির একটি ম্যাট্রিক্স তৈরি করে (একটি অক্ষরের সাথে একটি, কমা দিয়ে এবং অন্যটি কোনও স্থান বা একটি নতুন লাইন সহ)।

সম্পাদনা : ধন্যবাদ বিলিউব!


cat(a,sep="")কয়েকটি বাইট সংরক্ষণ করে:a=rbind(LETTERS,","," ");a[3,7+3*c(0,3:5)]="\n";cat(a[,-26],"Z.",sep="")
বিলিওব

ধন্যবাদ! যে অনেক সাহায্য! ব্যবহার [-26]উপর LETTERSসরাসরি এখনও অন্য বাইট পরিমাণ সঞ্চয় হয়।
প্ল্যানাপাস

4

সিজেম, 26 বাইট

'A79333Ab{{',S2$)}*N\}/'.@

অনলাইন দোভাষী

'A                             Push 'A'
  79333Ab                      Push [7 9 3 3 3]
         {           }/        For each number n in the previous array...
          {      }*              Execute n times...
           ',S                     Push a comma and a space
              2$)                  Copy last letter and increment
                   N\            Place a newline under the letter on top
                       '.@     Push '.' and rotate

4

ব্রেইনফাক, 117 বাইট

+[++[-<]-[->->]<]+++[->++>+++>+>+<<<<<--<<->>>]>+[[-<<<<<+.>-.+>.>>>]>[[-<+>]>]<<[<]<.>>]<<-[---<<<+.>-.+>.>]<<<+.>+.

প্রথম চারটি লাইনের প্রত্যেকটিতে একটি পিছনের স্থান রয়েছে এবং প্রোগ্রামটি 8-বিট কোষগুলি ধরে নিয়েছে। এটি অনলাইন চেষ্টা করুন!

(শেষ পংক্তিটি হ্যান্ডেল করা জটিল ...)


4

পার্ল, 37 বাইট

এই সমাধানের জন্য @ ডম হেস্টিংসের ক্রেডিট (আমার চেয়ে 3 বাইট কম, বেলো দেখুন)।

say+(map"$_, ".$/x/[GPSV]/,A..Y),"Z."

-E(বা -M5.010) পতাকা দিয়ে চালান :

perl -E 'say+(map"$_, ".$/x/[GPSV]/,A..Y),"Z."'

আমার পূর্ববর্তী সংস্করণ, 3 বাইট দীর্ঘ (মোট 40 বাইট):

perl -E '$_=join", ",A..Z;s/[HQTW]/\n$&/g;say"$_."'

1
37 বাইটের জন্য কিছুটা ভিন্ন পদ্ধতির (এখনও রিজেক্স ব্যবহার করে ...):say+(map"$_, ".$/x/[GPSV]/,A..Y),"Z."
ডম হেস্টিংস

@ ডোমহাস্টিংস ভাল লাগছে, ভাল হয়েছে। এবং তিনটির পরিবর্তে একটি বিবৃতি পাওয়া আরও সুন্দর! ;-)
দাদা

4

জাভাস্ক্রিপ্ট (ES6), 66 64 বাইট

_=>`ABCDEFG
HIJKLMNOP
QRS
TUV
WXY`.replace(/./g,"$&, ")+"Z."

রেজেক্স অক্ষরগুলির সাথে মেলে তবে ক্যারেজ রিটার্নের সাথে নয়, সুতরাং, রেজেক্স রিপ্লেসটি ব্যবহার করে আমি প্রতিটি চরিত্রটিতে "," যুক্ত করতে পারি।

সম্পাদনা: ETHProductions ধন্যবাদ 2 অক্ষর সরানো হয়েছে


1
অন্যান্য জেএস গল্ফাররা কেন প্রথমে এই সমাধানের জন্য যান নি আমার ধারণা নেই। এখানে, একটি upvote আছে।
মামা ফান রোল

1
ডাং, সুন্দর! আমি মনে করি যদি আপনি পরিবর্তন আপনি Regex মধ্যে ডান বন্ধনী অপসারণ করতে পারেন $1থেকে $&
ইটিএইচ প্রোডাকশনস

3

চেডার, 70 বাইট

->[65@"71,72@"80,"QRS","TUV","WXYZ"].map(@.chars.join(", ")).vfuse+'.'

দেখে মনে হচ্ছে এটি এর চেয়ে ছোট হচ্ছে না। আমি এর অন্যান্য সংস্করণ তৈরি করেছি যা বেশ আকর্ষণীয় পদ্ধতি ব্যবহার করে তবে এটি সবচেয়ে স্বল্পতম

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

ব্যাখ্যা

->                        // Function with no arguments
  [                       // Array, each item represents a line
   65@"71,                // See below on what @" does
   72@"80,
   "QRS",
   "TUV",
   "WXYZ"
  ].map(                  // On each item...
    @.chars.join(", ")    // Join the characters on ", "
  ).vfuse                 // Vertical fuse or join by newlines
  + '.'                   // The period at the end

@"অপারেটর সীমাকৃত স্ট্রিং জেনারেট করতে ব্যবহার করা হয়। এটি বাম চর কোড থেকে শুরু করে ডান চর কোডে একটি স্ট্রিং উত্পন্ন করে।

উদাহরণস্বরূপ, এর 65জন্য Aএবং এর 90জন্য চার্ট কোডটি Z। করলে 65 @" 90Z বা বর্ণমালার মাধ্যমে A উত্পন্ন হবে।


3

সি, 112 102 81 বাইট

ক্লেব্ল্যাঙ্ক এবং লেভেল রিভারস্টকে ধন্যবাদ!

i,c;main(){for(c=64;++c<91;)printf("%c%c%c",c,44+c/90*2,c=="‌​GPSVZ"[i]?++i,10:32)‌​;}

সুন্দর সমাধান। 'কয়েক'র চেয়ে 44 কম 1,' এবং 'এর চেয়ে 46 1 কম' আপনি কয়েকটি বাইট সংরক্ষণ করতে পারেন।
ক্লাব্ল্যাঙ্ক

i,c,d;main(){for(c=65;c<91;++c){if(c-"GPSVZ"[i])d=32;else d=10,++i;printf("%c%c%c",c,c-90?44:46,d);}}
ইন্ট

আপনি 82 বাইট এই পদ্ধতির নিচে পেতে পারেন: i,c;main(){for(c=64;++c<91;)printf("%c%c%c",c,44+c/90*2,c=="GPSVZ"[i]?++i,10:32);}। নোট করুন যে আপনি কোনও টেরিনারি অপারেটরের মধ্যে একেবারে কোনও কিছু আটকে রাখতে পারেন ?:, এমনকি কমা দ্বারা বিচ্ছিন্ন বেশ কয়েকটি অভিব্যক্তি (এটি শেষের দিকে মূল্যায়ন করে))
স্তর নদী সেন্ট


3

রুবি, 56 54 বাইট

$><<(?A..?Y).map{|c|c+('GPSV'[c]?",
":", ")}.join+"Z."

প্রথম লাইনটি আক্ষরিক নতুন লাইনের সাথে শেষ হয়।

সম্পাদনা করুন: প্রতিস্থাপন করে দুটি বাইট সংরক্ষণ 'A'..'Y'করা হয়েছে ?A..?Y


3

ভিম, 32 বাইট

26o<C-V><C-V>64,<Esc>r.V{g<C-A>8Jj9Jj3Jj.j4JcH<C-R>"

শেষে একটি ফাঁকা রেখা ছেড়ে দেয়, যা অনুমোদিত ছিল, তবে এই আনাড়ি হওয়া খুব অদ্ভুত। আরও খারাপ, আমি সন্নিবেশ মোডে শেষ করছি। আমি এখানে কিছু অন্যান্য লোককে এটি করতে দেখেছি, সুতরাং আমার ধারণা এটি অনুমোদিত? নোংরা লাগে।

  • 26o<C-V><C-V>64,<Esc>: প্রথমটি <C-V>দ্বিতীয়টিকে আক্ষরিকভাবে প্রবেশ করান। <C-V>64গুলি বাফারে এই পাতার তারপর চিঠি মধ্যে হওয়া ASCII কোড পয়েন্ট পরিণত করা হবে। কমা আগে থেকেই।
  • r.: আর কখনও শেষ হতে হবে না, .এখনই করুন।
  • V{g<C-A>: সমস্তকে 64মূলধনী অক্ষরের ASCII কোড পয়েন্টগুলিতে পরিণত করতে ভিজ্যুয়াল ইনক্রিমেন্ট ব্যবহার করে ।
  • 8Jj9Jj3Jj.j4J: স্বেচ্ছাচারী রেখায় যোগ দেয়। প্রথমটি তার 8Jপরিবর্তে হয় 7Jকারণ আমরা ফাঁকা লাইনটি নিয়ে কাজ করছি। পুনরাবৃত্তি 3Jগুলি ডট পুনরাবৃত্তির জন্য যোগ্য।
  • cH<C-R>": লোকেরা সাধারণত i<C-R>একটি সন্নিবেশ মোড পেস্ট হিসাবে ভাবেন , তবে এটি সন্নিবেশ মোড ম্যাক্রোর মতো। স্টাফের মতো স্টাফ <C-V>65চলবে যেমন টাইপ করা হয় এবং দশমিক কোড পয়েন্ট হিসাবে ব্যাখ্যা করা হয়। এটি শেষে একটি অতিরিক্ত (অনুমোদিত) লাইন ছেড়ে যায় এবং সন্নিবেশ মোডে থাকে।

4
যদি আপনার কোনও নীতি (বা এর অভাব) নিয়ে সমস্যা থাকে তবে তা উত্তরে নয়, এটি মেটাতে নিয়ে যান।
মেগো

2

পাওয়ারশেল v3 +, 60 78 67 বাইট

-join(65..90|%{[char]$_+'.,'[$_-le89]+" "+"`n"*($_-in71,80,83,86)})

ঠিক আছে. আমি আসলে এই সময়টি পড়েছি, বুঝতে পেরেছি এবং অনুসরণ করেছি। প্রতিশ্রুতি। : ডি

অ্যারে নেয় 65..90এবং প্রতিটি উপাদানকে লুপ করে |%{...}। প্রতিটি পুনরাবৃত্তি, আমরা কনটেনটেশন, ইনডেক্সিং এবং গুণক ব্যবহার করে একটি নতুন স্ট্রিং তৈরি করছি।

প্রথমত, আমরা বর্তমান নম্বরটি নিয়ে charএএসসিআইআই চিঠি তৈরি করতে এটি নিক্ষেপ করি। এটি অন্য চরের সাথে সংলগ্ন, স্ট্রিংয়ের ইনডেক্সিংয়ের উপর ভিত্তি করে '.,'আমরা থাকি 90বা না থাকি (অর্থাত্, Z.বাকি সমস্ত অংশ কমা হয়ে থাকাকালীন জন্য অ্যাকাউন্ট করা)। এই স্ট্রিংটি " "অক্ষরের সাথে স্পেস-বিভাজন এবং "`n"বুলিয়ান মানের উপর ভিত্তি করে স্ট্রিং গুণটি বর্তমান উপাদানটি -inনির্দিষ্ট অ্যারে কিনা (যেমন, আমাদের কোনও নতুন লাইনের চরিত্রের উপর একত্রিত করার প্রয়োজন কিনা) for ফলস্বরূপ স্ট্রিংটি পাইপলাইনে রেখে গেছে।

এই স্ট্রিংগুলি পেরেনগুলিতে আবদ্ধ হয় এবং -joinএকসাথে একটি নতুন স্ট্রিংয়ে এড করা হয়, যা পরে পাইপলাইনেও ফেলে রাখা হয় এবং Write-Outputশেষে ছাপিয়ে ফলাফল প্রিন্ট করে। যেহেতু আমাদের `nস্ট্রিংটিতে রয়েছে তাই এটি মুদ্রণের পরে স্বয়ংক্রিয়ভাবে নতুন লাইনে রূপান্তরিত হয়।

-inঅপারেটরের জন্য v3 + প্রয়োজন । প্রতিটি লাইনে একটি পিছনের স্থান রয়েছে, যা চ্যালেঞ্জের চশমা অনুসারে ঠিক।

উদাহরণ

PS C:\Tools\Scripts\golfing> .\now-i-know-my-abc.ps1
A, B, C, D, E, F, G, 
H, I, J, K, L, M, N, O, P, 
Q, R, S, 
T, U, V, 
W, X, Y, Z. 

1
শেষের সময়টি অনুপস্থিত।
ডাউনগোট

প্রথম চারটি লাইনের শেষে কমা থাকা উচিত নয়?
নিল

নিল গুড গ্রেভি আমি বাস্তবে অনুমানটি বুঝতে না পারলে আমি এটি মুছতে চলেছি।
অ্যাডমবর্কবার্ক

2

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

<?=preg_filter("# ([HQTW])#","\n$1",join(", ",range(A,Z)));?>.

শুধুমাত্র তুলনা জন্য 87 বাইট

<?="A, B, C, D, E, F, G,\nH, I, J, K, L, M, N, O, P,\nQ, R, S,\nT, U, V,\nW, X, Y, Z.";

এর স্থানে একটি আসল নিউলাইন ব্যবহার করে আপনি একটি বাইট সংরক্ষণ করতে পারেন \n
অ্যালেক্স হাওয়ানস্কি 23

যেহেতু আপনাকে প্রতিটি লাইনের স্পেস ফাঁসানোর অনুমতি দেওয়া হয়েছে আপনি রেজিগেস থেকে স্পেস ফেলে দিয়ে একটি বাইট সংরক্ষণ করতে পারেন। এছাড়াও আপনি ব্রেট সংরক্ষণ করতে পারেন (7.০ এ অবমাননিত এবং সরানো) ইরেগ_রেপ্লেস ব্যবহারের ফলে এটি আপনাকে রেজিজেটে ডিলিমেটারগুলি এড়িয়ে যেতে দেয়।
ব্যবহারকারী59178

@ ব্যবহারকারী59178 আমি 3 বাইট সংরক্ষণ করতে পারি তবে আমি এটি এড়াতে পারি। হ্যাঁ পেছনের স্থান অনুমোদিত। আমি রেজেক্স হিসাবে লিখতে পারি "# (?=[HQTW])#"এবং "\n"একই বাইটের প্রতিস্থাপনটি সংক্ষিপ্ত করে এটিকে আরও পরিষ্কার করে দিতে পারি। অবহেলিত ফাংশনটি ব্যবহার করতে নতুনদের বিভ্রান্ত করতে পারে। এবং শারীরিক বিরতি অন্য সিস্টেমে ইউনিক্সের ভুল ব্যাখ্যা করতে পারে। আপনি এটিকে আপনার নিজস্ব দখল হিসাবে পোস্ট করতে পারেন।
জার্গ হালসারম্যান

2

এমএটিএল, 38 29 বাইট

9 লাইট সংরক্ষণ করেছেন লুইসকে ধন্যবাদ!

1Y2X{', '&Zc46h1[CEII]I*11hY{

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

ব্যাখ্যা

1Y2     % Push the upper-case alphabet to the stack
X{      % Break the character array into a cell array (similar to a list)
        % where each element is a letter
', '&Zc % Combine back into a string with ', ' between each element
46h     % Append '.' (via ASCII code) to the end of the string
1       % Push the number 1
[CEII]  % Push the array: [7, 9, 3, 3]
I*      % Multiply this array by 3: [21, 27, 9, 9]  
llh     % Append an 11 to this array: [21, 27, 9, 9, 11] 
Y{      % Break our comma-separated list of characters into groups of this size
        % Implicitly display the result

2

আর, 146 বাইট

L=LETTERS
f=function(x,y=""){paste(x,collapse=paste0(", ",y))}
cat(f(c(f(L[1:7]),f(L[8:16]),f(L[17:19]),f(L[20:22]),f(L[23:26])),"\n"),".",sep="")

ব্যাখ্যা:

LETTERSবড় হাতের অক্ষরের জন্য পূর্বনির্ধারিত ফাংশন উপর ভেক্টর এক্স concatenating জন্য অতিরিক্ত সঙ্গে (নতুন লাইন জন্য ব্যবহৃত হয়)। বিড়ালটি নিউলাইন হিসাবে মুদ্রণ হিসাবে ব্যবহৃত হয় । অক্ষরগুলিকে সারি গঠনের জন্য এবং তারপরে সারিগুলিতে আবার পুরো আউটপুট গঠনের জন্য ডাকা হয়।
f,y
\nf

সম্ভবত গল্ফযোগ্য - আমি চ এর একাধিক কল পছন্দ করি না ...


3
কাঁচা আউটপুট কেবল 77 বাইট দীর্ঘ। মুদ্রণ যা সরাসরি সংক্ষিপ্ত হতে পারে ...
লিন

@ লিন, আমি জানি, তবে এখানে আমি কিছু গল্ফিংয়ের সম্ভাবনা দেখতে পাচ্ছি।
pajonk


2

জুলিয়া, 71 বাইট

f()=join(join.(['A':'G','H':'P',"QRS","TUV","WXYZ"],[", "]),",\n")*"."

সম্প্রচারের জন্য 0.5 বা আরও ভাল প্রয়োজন .()


একদিকে, বর্তমানে এটির পেছনের সময়কাল নেই এবং এর জন্য print/ ফাংশন সংজ্ঞা প্রয়োজন হয় না ? অন্যদিকে, joinকোনও ভেরিয়েবলে সংরক্ষণ না করা একটি বাইট সংরক্ষণ করে।
Sp3000

আমার খারাপ চিত্রটি "।" অনুপস্থিত এবং পয়েন্টারের জন্য ধন্যবাদ join। মিস করলাম। প্রোগ্রাম চালানো স্ট্রিং ফিরে। কোনও প্রোগ্রাম কোনও স্ট্রিংকে বৈধ আউটপুট দেয় না? (বা এটি কেবলমাত্র ফাংশন যা আউটপুট হিসাবে গণনা করে জিনিসগুলিকে ফেরত দেওয়ার মঞ্জুরি দেওয়া হয় so যদি f()=এটি ছোট হয় তবে print())
লিন্ডন হোয়াইট

অবশ্যই, f()=বা ()->ঠিক আছে - আমি মনে করি ধারণাটি হ'ল ফাংশনগুলি নির্ধারিত হয় এবং একাধিকবার চালানো যায় এবং বিপরীতে এটি একটি কোড স্নিপেট।
Sp3000

2

চেডার, 57 বাইট

->(65@"90).sub(/[GPSV]/g,"$0
").sub(/[^Z\n]/g,"$0, ")+"."

এটি অনলাইন চেষ্টা করুন! এত সুন্দর না? এটি একটি দুর্দান্ত আয়তক্ষেত্র।

দুটি রেজেক্সের বিকল্প। (65@"90)বড় হাতের বর্ণমালা, নিজের সাথে .sub(/[GPSV]/g,"$0\n")প্রতিস্থাপন GPSVকরে এবং "\n", .sub(/[^Z\n]/g,"$0, ")সমস্ত অ-লাইন এবং Zঅক্ষরকে নিজের সাথে প্রতিস্থাপন করে এবং ", "এবং "."একটি ফাইনাল যুক্ত করে .


1
দারোয়ানট চমৎকার কৌশল এবং দুর্দান্ত চাকরি ছাড়িয়ে গেছে;)
ইটিএইচ প্রোডাকশনগুলি

2

জাপট, 24 বাইট

;B¬qJ+S r"[HQTW]"@R+XÃ+L

এটি অনলাইন পরীক্ষা!

কিভাবে এটা কাজ করে

;                        // Reset various variables. B is set to "ABC...XYZ", J is set to ",", and L is set to ".".
 B¬                      // Take the uppercase alphabet and split into chars.
   qJ+S                  // Join with ", ".
        r"[HQTW]"        // Replace each H, Q, T, or W with
                 @R+XÃ   //   a newline plus the character.
                      +L // Append a period to the result.
                         // Implicit: output last expression

2

জাভা, 116 109 105 104

String f(){String s="";for(char c=65;c<91;)s=s+c+(c>89?46:',')+("GPSV".indexOf(c++)<0?' ':10);return s;}

Ungolfed:

String f() {
  String s = "";
  for (char c = 65; c < 91;) {
    s = s + c
      + (c > 89 ? 46 : ',')
      + ("GPSV".indexOf(c++) < 0 ? ' ' : 10);
  }
  return s;
}

আপনি এটি 7 বাইট দ্বারা গল্ফ করতে পারেন: তিনটি ||থেকে |(-3); (-1) এ পরিবর্তন c==90করা c>89; (-1) এ পরিবর্তন '.'করা 46; এবং (-2) এ পরিবর্তন '\n'করা হচ্ছে 10
কেভিন ক্রুইজসেন

কেভিন ক্রুজসেন ধন্যবাদ, আমি দশমিক ব্যবহার করার চেষ্টা করেছি তবে দেখে মনে হচ্ছে যদি আমি উভয় চরিত্রের ধ্রুবককে তিন দশকের জায়গায় প্রতিস্থাপনের ধরণটিকে পূর্ণসংখ্যার সাথে পরিবর্তন করে যা এটি ভেঙে যায়। একটি ধ্রুবক কাজ করে পরিবর্তন এবং কয়েক বাইট আউট আউট।

2
ধন্যবাদ কেভিন ক্রুজসেন। আমার কাছে পর্যাপ্ত কফি থাকলে আমার নিজের এটি আপডেট করার কথা মনে হত।

1
আরও 2 বাইট: "GPSV".contains(""+c)পরিবর্তে c==71|c==80|c==83|c==86
TNT

1
@ টিএনটি আমি কিছুটা আরও ভাল করতে সক্ষম হয়েছি। আমি জানতাম যে অংশটি উন্নত হতে পারে, সঠিক দিকে ধাক্কা দেওয়ার জন্য ধন্যবাদ।


1

রেটিনা, 43 বাইট


Z
{2`
$`
}T01`L`_L
.
$&, 
[HQTW]
¶$&
, $
.

শীর্ষস্থানীয় নিউলাইন গুরুত্বপূর্ণ। এটি অনলাইন চেষ্টা করুন!

এটি আমার প্রথমবার রেটিনা ব্যবহার করে, তাই কোনও গল্ফিং টিপস প্রশংসা করা হয় ...


1

পাইথ, 25 বাইট

+Pjmj\ dc*G\,j94092 23)\.

এমন একটি প্রোগ্রাম যা ফলাফলটি STDOUT এ মুদ্রণ করে।

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

কিভাবে এটা কাজ করে

+Pjmj\ dc*G\,j94092 23)\.  Program. Input: none
          G                Yield string literal'abcdefghijklmnopqrstuvwxyz'
         * \,              Cartesian product of that with ',', yielding a list of
                           characters with appended commas
             j94092 23)    Yield the integer 94092 in base-23, giving [7, 16, 19, 22]
        c                  Split the comma-appended character list at those indices
   mj\                     Join each element of that on spaces
  j                        Join that on newlines
 P                         All but the last element of that, removing trailing ','
+                      \.  Append '.'
                           Implicitly print
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.