হ্যালোএল্লোল্লো ওয়ার্ল্ডর্ল্ডারल्ड

50

এমন একটি প্রোগ্রাম তৈরি করুন যা আপনাকে শব্দটি ইনপুট হিসাবে নিয়েছে এবং সেই শব্দটিকে নিজের পিছনে যুক্ত করে এটি প্রথম অক্ষর বিয়োগ করবে, তারপরে সমস্ত অক্ষর না শেষ হওয়া পর্যন্ত পুনরাবৃত্তি করবে। উদাহরণস্বরূপ, catহয়ে উঠবে catatt, helloহয়ে উঠবে helloellolloloo।


ইংরেজি বর্ণমালার 26 টি বর্ণের যে কোনও একটিকে ইনপুট করুন । স্পেস দ্বারা পৃথক একাধিক শব্দ থাকতে পারে এবং প্রতিটি শব্দের ক্ষেত্রে পরিবর্তনটি প্রয়োগ করা উচিত।

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

আরও উদাহরণ:

ill eel আউটপুট illlll eelell

laser bat আউটপুট laserasersererr batatt

darth vader আউটপুট dartharthrththh vaderaderdererr

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

স্পষ্টকরণ:
আপনি ইনপুট বা আউটপুটটিকে একটি তালিকা হিসাবে বিবেচনা করতে পারেন। আপনি জায়গার পরিবর্তে নিউলাইন ব্যবহার করে শব্দগুলি পৃথক করতে পারেন। আপনি ইনপুটটিতে একটি পিছনের স্থান যুক্ত করতে পারেন।

code-golf  string 
— qazwsx
সূত্র
22
সত্যি বলতে, একাধিক শব্দ জিনিস বিরক্তিকর। এটি কেবল একটি বিভাজন প্রয়োজন, প্রতিটি শব্দের উপর ফাংশন প্রয়োগ করুন এবং তারপরে আবার যোগদান করুন। এটি অনেকগুলি Esolangs এর জন্যও বেশ দুর্বল, যা নিজেই একটি স্থান অনুসন্ধান করতে হবে
— জো কিং
4
আমরা কী শব্দ এবং আউটপুট যেমন একটি তালিকা হিসাবে ইনপুট নিতে পারি?
— কুইন্টেক
4
আপনার কোন দৈর্ঘ্যের শব্দগুলি পরিচালনা করতে হবে?
— মিকিটি
5
শব্দগুলিকে আউটপুটে (একটি স্থানের পরিবর্তে) একটি নতুন লাইন দ্বারা পৃথক করা ঠিক আছে কি?
— জয়সি
10
1.নতুন ভাতা (অ্যারে I / O, পিছনের স্থান ইত্যাদি) দিয়ে 2.অনুগ্রহ করে আপডেটটি আপডেট করুন দয়া করে বিদ্যমান সমাধানগুলিকে যদি কোনও সুবিধা গ্রহণ করে বাইট সংরক্ষণ করতে পারে তবে অবহিত করুন।
— শেগি

উত্তর:

34

জাপট -m, 6 3 বাইট

ইনপুট এবং আউটপুট শব্দের অ্যারে হয়।

£sY

চেষ্টা করে দেখুন

ব্যাখ্যা

        :For each word in the input array
£       :Map each letter at index Y
 sY     :  Slice the current word from index Y
— রোমশ
সূত্র
1
সত্যিই কমপ্যাক্ট। নিস!
— qazwsx
9
@ কাজাজউক্স: এখন আরও ৫০% কমপ্যাক্ট!
— শেগি
1
নন £হল UTF-8 দুটি বাইট?
— vi।
7
@ ভিআই, আমি এখানে ইউটিএফ -8 ব্যবহার করছি না।
— শেগি
36

ব্রেনফাক , 60 56 বাইট

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

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

একটি চলমান স্থান প্রয়োজন এবং একটি নেতৃস্থানীয় স্থান মুদ্রণ করে। এই দুটিই পরিবেষ্টিত হতে পারে তবে এটি 112 বাইটে শেষ হয় ।

ব্যাখ্যা

,[  Loop over each byte of input
  Tape: 32 w o r-32 d'
  >++++++++[-<----<++++>>]   Subtract 32 from the character and add 32 to the previous char
  Tape: 32 w o r d-32 0'
  <[>>]<   If the last character was a space
  Tape: 32 w o r d-32 0'
  or
  Tape: 32 w o r d' space-32
  [
    [<]>.   Move to the end of the word and print out the space
    [   Loop over each letter
      [-]    Remove the first letter (initially space)
      >[.>]  Print the rest of the word
      <[<]>  Move back to the first letter
    ]
    Tape: clear
  ]
,]  Get the next byte of input
— জো কিং
সূত্র
21

হাস্কেল, 36 21 বাইট

map$concat.scanr(:)""

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

সম্পাদনা করুন: -15 বাইট, নতুন আইও ফর্ম্যাটের কারণে (স্থান পৃথক শব্দের পরিবর্তে শব্দের তালিকা)

— nimi
সূত্র
আপনি প্রতিস্থাপন 5 অক্ষরের বন্ধ শেভ পারে scanr (:) ""সঙ্গে tails।
— ফ্রেরিচ রাবাবে
1
@ ফ্রেরিচরাবা: হ্যাঁ, তবে এর import Data.Listজন্য স্কোরের জন্য 17 বাইট যুক্ত হওয়া দরকার।
— নিমি
18

পার্ল -p, 36 25 23 বাইট

s!\b|\S!$'=~s/ .*//r!eg

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

এটি একটি একক রেসসব। প্রথমত, এটি সমস্ত শব্দের সীমা বা ফাঁকা স্থান অক্ষরের সাথে মেলে:

[][H][e][l][l][o] [][W][o][r][l][d]

নোট করুন যে এই ম্যাচগুলির প্রতিটি বাকী শব্দটির সাথে প্রতিস্থাপন করা উচিত:

[→Hello][H→ello][e→llo][l→lo][l→o][o→] (...)

আমরা এটি বিশেষ ভেরিয়েবলের সাহায্যে সম্পন্ন করতে পারি $', যা ম্যাচের পরে স্ট্রিংয়ের অংশটি সঞ্চয় করে। তবে, আমাদের এটিতে নেস্টেড রেসসব প্রয়োগ s/ .*//করতে হবে, যা ইনপুটটিতে $'থাকা বাক্য শব্দগুলি থেকে মুক্তি পেতে প্রথম স্থানের সমস্ত কিছু সরিয়ে দেয় ।

@ নয়েলহোফকে 2 বাইটের জন্য ধন্যবাদ

— ডোরকনব
সূত্র
আপনি প্রতিস্থাপন করতে পারেন [^ ]সঙ্গে \S।
— nwellnhof
17

জেলি , 3 বাইট

ḊƬ€

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

Kঅ্যারে ইনপুট / আউটপুট এখন অনুমোদিত হওয়ায় আর এর দরকার নেই।

ḊƬ€
  €   For each word:
Ḋ       Remove the first letter
 Ƭ      until there are none left.
— dylnan
সূত্র
আমি মনে করি আপনার প্রয়োজন ḊƬẎ)(বা ḊƬF), যদি আপনি চান)।
— এরিক আউটগল্ফার 15
পছন্দ করেছেন প্রতিটি শব্দ আউটপুটটিতে আলাদা অ্যারে দ্বারা প্রতিনিধিত্ব করে
— ডাইলানান
1
আমি নিশ্চিত না যে আপনি দাবি করতে পারেন কিনা, যেহেতু অ্যারেগুলি বাসা বেঁধে রয়েছে, এবং এটির অনুমতি দেওয়ার জন্য কোনও প্রশ্নের মধ্যে নির্দিষ্ট করা হয়নি।
— এরিক আউটগলফার
15

এপিএল (ডায়ালগ), 19 9 বাইট

{⌽∊,\⌽⍵}¨

আমার মস্তিষ্ক জগিং করার জন্য @ এইচ.পি.উইজকে ধন্যবাদ

এটি কাজ করে কারণ এপিএলে সমস্ত স্ট্রিং অক্ষর অ্যারে।

{⌽∊,\⌽⍵}¨ 
        ¨ - for each string
      ⍵} - string argument - ex. "hello"
     ⌽ - reverse - "olleh"
   ,\ - scan magic - "o" "ol" "oll" "olle" "olleh"
  ∊ - enlist(join together) "oolollolleolleh"
{⌽ - reverse - "helloellolloloo"

Tio

— Quintec
সূত্র
15

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

@ শিরুআসাকোটোকে ধন্যবাদ 1 বাইট সংরক্ষিত

আই / ও ফর্ম্যাট: শব্দের অ্যারে।

a=>a.map(g=w=>w&&w+g(w.slice(1)))

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

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

আই / ও ফর্ম্যাট: শব্দের অ্যারে।

a=>a.map(w=>w.replace(/./g,"$&$'"))

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

— Arnauld
সূত্র
2
44:s=>s.replace(/\S+/g,g=s=>s&&s+g(s.slice(1)))
— শিয়েরু আসাকোটো
1
আমার "নতুন কিছু" আজকের জন্য ধন্যবাদ; $'(বা $<backtick>) সম্পর্কে কখনও জানতাম না ।
— শেগি
13

আর , 82 75 67 বাইট

write(sapply(x<-scan(,""),substring,1:(y=max(nchar(x))),y),1,y,,"")

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

বেশ কয়েকটি বাইট জেসিকে ধন্যবাদ রক্ষা করেছে

নতুন লাইনের সাথে আউটপুট পৃথক করে।

sapply(...)অভিব্যক্তি সঙ্গে উপযুক্ত সাবস্ট্রিং একটি ম্যাট্রিক্স / কলাম ভেক্টর, প্যাডিং উত্পন্ন ""হিসাবে প্রয়োজন। writeতারপরে ম্যাট্রিক্সের উপাদানগুলি yপ্রতি লাইনে মুদ্রণ করে তাদের সাথে পৃথক করে ""।

— : Giuseppe
সূত্র
4
নিদ্রাহীন শিশুকে ধরে রাখার সময় আলাদা পদ্ধতি অবলম্বন করা; পরে একটি ব্যাখ্যা যোগ করা হবে।
— জিউসেপ
2
শব্দের দৈর্ঘ্য যদি সীমাবদ্ধ থাকে, যেমন 99 অক্ষর বা e 1e6 তবে আপনি বাইট ...substring,1:1e6,1e6)...বা তার সাথে একগুচ্ছ
— বক পেতে পারেন
2
আপনি যদি একটি নতুন লাইনের মাধ্যমে শব্দগুলি পৃথক করতে পারেন: টিও । আমি একটি মন্তব্যে এটি জিজ্ঞাসা করেছি। @ মিকিটির মন্তব্যে
— জয়সি
@ জয়সি দেখে মনে হচ্ছে এটি মিকিটির পরামর্শ অন্তর্ভুক্ত করার আগে 67 বাইট হতে পারে
— জিউসেপ
8

ব্রেনফাক , 94 93 বাইট

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

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

  • নাইট্রডন - কে গল্ফ করে একটি বাইট সংরক্ষণ .[-]>[.>]<[<]>করা [.>]<[<]>[-]>।

ব্যাখ্যা

[[[ (dynamic) tape layout: ... NUL STR ... STR CHR FLG BUF SPC NUL ... ]]]

load a 32 into SPC
-[-[-<]>>+<]>-

while FLG
<<+[

 read a word
 [
  clear FLG; read CHR
  [-]<,
  copy CHR to BUF (using FLG as a temporary)
  [->+>+<<]>[-<+>]
  subtract SPC from BUF and save SPC
  >>[-<->>+<]
  move tape layout one to the right
  <
 ]

 strip trailing space; set FLG to true
 << [>>+<<[-]]
 to STR's first character
 <[<]>
 print word in all reduced forms
 [
  [.>]<[<]>[-]>
 ]

 print SPC; move to FLG
 >>>>.<<
]

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

আরোপণ

Esolang এর brainfuck ধ্রুবক সংগ্রহে প্রাথমিক স্থান লোড জন্য ব্যবহার করা হয়েছিল।

— জোনাথন ফ্রেচ
সূত্র
এটি শেষ হবে বলে মনে হচ্ছে না। এটা কি উদ্দেশ্য?
— জো কিং
1
@ জোকিং হ্যাঁ নির্দিষ্ট বাস্তবায়নে এটি টেপের সীমা অতিক্রম করবে, ত্রুটি করে প্রস্থান করবে।
— জোনাথন ফ্রেচ
6

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

€.síJ

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

ব্যাখ্যা

€.s        # push suffixes of each
   í       # reverse each
    J      # join suffixes
— Emigna
সূত্র
1
বিরক্তিকর 5-বাইট বিকল্প: í€ηJí(যেহেতু উপসর্গগুলির জন্য প্রত্যয়গুলির মতো 2-বাইটের পরিবর্তে 1 বাইট অন্তর্নির্মিত; তবে প্রারম্ভিক সময়ে অবশ্য অতিরিক্ত বিপরীত প্রতিটি প্রয়োজন, সুতরাং বাইট গণনাটি 5 থেকে যায়)।
— কেভিন ক্রুইজসেন
6

ভিম , 47 বাইট (38 কী স্ট্রোক)

ভিম বাফারের একমাত্র লাইন হিসাবে আপনার ইনপুট দিয়ে শুরু করুন।

:s/<Space>/\r/g<CR>ggqaywPlxqqb99@aj0q99@bgg99J

ব্যাখ্যা

এটি প্রতিটি শব্দকে তার নিজস্ব লাইনে রাখে, প্রতিটি লাইনের পুনরাবৃত্তি করে, তারপরে সেগুলি আবার যোগ করে। শব্দগুলি যদি 99 টির চেয়ে বেশি অক্ষর হয় বা আপনার ইনপুটটিতে 99 টিরও বেশি শব্দ রয়েছে তা বিরতি দেয়।

  1. :s/<Space>/\r/g<CR> নতুন লাইনের সাথে স্পেসগুলি প্রতিস্থাপন করে ( \r)
  2. gg প্রথম লাইনের শুরুতে কার্সারটি অবস্থান করে
  3. qaশুরু রেকর্ডিং ম্যাক্রো একটি :
  4. qbম্যাক্রো বি রেকর্ডিং শুরু :
    • 99@aম্যাক্রো executes একটি নিরানব্বুই বার (অক্ষর সীমা প্রবর্তন)
    • j0 পরের লাইনের শুরুতে কার্সারটি অবস্থান করে
    • qম্যাক্রো রেকর্ডিং বন্ধ করে দেয় খ
  5. 99@bম্যাক্রো বি উনান্বানবার বার চালিত করে (শব্দ সীমাটি প্রবর্তন করে)
  6. gg প্রথম লাইনে কার্সারটি অবস্থান করে
  7. 99J শূণ্যস্থানগুলির সাথে নিম্নলিখিত নব্বইটি লাইনগুলিতে যোগদান করে (শব্দের সীমা আবার)

অন্য 2 বাইট (2 কী স্ট্রোক) এর জন্য আপনি শব্দ সীমাটি 999 এ প্রসারিত করতে পারেন Another আরও 4 বাইট, 9999 ইত্যাদি

— chambln
সূত্র
6

কান্ড , 6 4 বাইট

-2 বাইটস জোনাথন অ্যালানকে ধন্যবাদ (তালিকা হিসাবে ইনপুট নিচ্ছেন)!

moΣṫ

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

ব্যাখ্যা

স্ট্রিংগুলির তালিকা হিসাবে ইনপুট নেয় এবং নিম্নলিখিত ফাংশনটিকে মানচিত্র করে:

Σṫ  -- example argument: "abc"
 ṫ  -- tails: ["abc","bc","c"]
Σ   -- concat: "abcbcc"
— ბიმო
সূত্র
বিভাজন এবং যোগদান সম্ভবত সম্ভবত আর প্রয়োজন হয় না, বর্তমানে এই ধরনের স্পেসিফিকেশন একটি মন্তব্যে রয়েছে।
— জোনাথন অ্যালান
5

রেটিনা 0.8.2 , 15 বাইট

 
¶
.
$&$%'
¶

এটি অনলাইন চেষ্টা করুন! দ্রষ্টব্য: পিছনে স্থান ব্যাখ্যা:

স্পেসে বিভক্ত করুন।

.
$&$%'

প্রতিটি অক্ষরে এর প্রত্যয় যুক্ত করুন। এর %অর্থ হ'ল আমরা কেবল শব্দের প্রত্যয় পেয়েছি।

স্পেস সহ যোগদান করুন।

— নিল
সূত্র
5

16-বিট x86 বিধানসভা কোড, 24 বাইট

     47             inc    di
     B020           mov    al,20h
l1:  3806           cmp    [si],al
     7212           jb     l5 ;less means end of string
     7401           je     l2  ;equal means space was seen
     4F             dec    di ;overwrite extra space
l2:  E80300         call   l3
     46             inc    si ;move to next character in word
     75F1           jne    l1
l3:  56             push   si
l4:  3806           cmp    [si],al
     A4             movsb      ;copy character
     77FB           ja     l4  ;until either zero or space is seen
     5E             pop    si
l5:  C3             ret

সোর্স স্ট্রিং-এ সি = পয়েন্টার, আউটপুট বাফার-তে পয়েন্টার সহ কল ​​করুন।
উত্সের স্ট্রিংয়ের এটি শেষ করতে একটি শূন্য বাইট প্রয়োজন।
কোডটি 16- বা 32- বা 64-বিটের ক্ষেত্রে একই (সিআই / ডি হয় হয় এসি / এডি বা আরএসআই / আরডিআই হয়)।
32-বিট কোডটি বর্ধিত কলটির কারণে দুটি বাইট বড়।
-৪-বিট কোডটি তিন বাইট বৃহত্তর এখনও তবুও আরএসআই / আরডিআই-এর ইনক / ডিস একটি উপসর্গকে আকর্ষণ করে (তবে যদি জানা থাকে যে তারা 32-বিট মেমরির জায়গার মধ্যে রয়েছে তবে তারা সেই শাস্তি এড়াতে আবার এএসআই / এডি হতে পারে) ।

— পিটার ফেরি
সূত্র
4

এমএটিএল , 18 16 বাইট

"@gXH"HX@Jh)]0&h

ইনপুট শব্দের একটি সেল অ্যারে। এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

"         % Implicit input: cell array of strings. For each cell
  @g      %   Push content of current cell, that is, a word
  XH      %   Copy into clipboard H
  "       %   For each letter
    H     %     Push word
    X@    %     Push iteration index
    Jh)   %     Index from that until the end into current word
  ]       %   End
  0       %   Push 0. Will be cast to char. Char(0) is displayed as space
  &h      %   Concatenate horizontally all elements so far. Implicit display
— লুইস মেন্ডো
সূত্র
4

সি ++ (ঝনঝন) , 174 বাইট

#include<map>
#include<string.h>
std::string r(std::string w){while(auto x=strchr(w.c_str(),32))return r(w.substr(0,x-w.c_str()))+" "+r(x+1);return w!=""?w+r(w.substr(1)):w;}

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

এটি আমার প্রথম জমা, এবং আমি জানতাম না যে এটি মুদ্রণের পরিবর্তে স্ট্রিংটি ফিরছে কিনা :)

— QJot
সূত্র
2
পিপিসিজিতে আপনাকে স্বাগতম! হ্যাঁ, স্ট্রিং ফিরিয়ে দেওয়া ঠিক আছে। আশা করি আপনি আটকে থাকবেন!
— জো কিং
আপনি কোনও স্থান অপসারণ করতে অসমতার অপারেটরের প্রতিসাম্যতা ব্যবহার করতে পারেন এবং এভাবে বাইট সংরক্ষণ return w!=""?করতে পারেন - হতে পারে return""!=w?।
— জোনাথন ফ্রেচ
3

কাঠকয়লা , 14 বাইট

⪫Ｅ⪪Ｓ ⭆ι✂ιμＬι¹

এটি অনলাইন চেষ্টা করুন! দ্রষ্টব্য: ট্রেলিং স্পেস লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। ব্যাখ্যা:

   Ｓ            Input string
  ⪪             Split on spaces
 Ｅ              Map over each word
      ι         Current word
     ⭆          Map over each character and join
        ι       Current word
         μ      Current index
           ι    Current word
          Ｌ     Length
            ¹   Literal 1
       ✂        Slice
⪫               Join with spaces
                Implicitly print
— নিল
সূত্র
3

পিপ -s , 11 বাইট

J_@>,#_Mq^s

স্টিডিন থেকে শব্দের স্পেস-বিভাজিত তালিকা নিয়ে যায়। এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

             s is space (implicit)
        q    Read a line of stdin
         ^s  Split it on spaces
       M     Map this lambda function to each word:
 _            The word...
  @>          sliced starting at index...
    ,#_       range(len(word))
              This creates len(word) slices ["word" "ord" "rd" "d"]
J             Join those into a single string
             The resulting list of modified words is printed; the -s flag uses space
             as the separator
— DLosc
সূত্র
3

সি #, 111 90 বাইট

b=>string.Join(" ",(b.Split(' ').Select(x=>string.Concat(x.Select((y, i)=>x.Substring(i))))))

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

অ্যারেতে ইনপুট এবং আউটপুট পরিবর্তন করে আমি কয়েকটি বাইট সংরক্ষণ করেছি:

b=>b.Select(x=>string.Concat(x.Select((y,i)=>x.Substring(i)))).ToArray()

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

— LiefdeWen
সূত্র
3

কে (ওকে) , 17 13 বাইট

{,/|:'|,\|x}'

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

উপসর্গ বেনামে ফাংশন; ইনপুটটি স্ট্রিংগুলির একটি তালিকা হিসাবে নেওয়া হয়, যা ঘুরে দেখা যায় অক্ষরের তালিকা।

ধন্যবাদ 4 স্ট্রিটস্টার 4 বাইট জন্য।

কিভাবে:

{,/|:'|,\|x}' //Main function, argument x → ("ill";"eel")
            ' // For each element of the argument
         |x}  // Flip it. x → ("lli";"lee")
       ,\     // Concatenate each element, keeping intermediates. x → (("l";"ll";"lli");("l";"le";"lee")
      |       // Flip it again. x → (("lli";"ll";"l");("lee";"le";"l"))
   |:'        // Now flip each element. x → (("ill";"ll";"l");("eel";"el";"l"))
{,/           // Concatenation scan. x → ("illlll";"eelell")
— জে স্যালা
সূত্র
আপনি একটি তালিকা আসতে পারেন, এছাড়াও আমার কটাক্ষপাত করা Ok সমাধান
— streetster
ওস্তাদ, সুন্দর আমি এখনও কে শেখার প্রক্রিয়ায় রয়েছি, সুতরাং আমার সমাধানগুলি আমার পছন্দ মতো সংক্ষিপ্ত বা মার্জিত হবে না। সতর্ক থাকুন জন্য ধন্যবাদ!
— জে। স্যালা
রিভার্সের আগে ফ্ল্যাটেন আপনাকে "বিপরীত প্রতিটি" বাদ দিতে দেয়, এটি 10 ​​বাইটে নামিয়ে আনবে: {|,/,\|x}'
— hoosierEE
3

কমন লিস্প , 179 বাইট

(defun r(s)(cond((endp s)nil)((eql(first s)#\Space)(princ " ")(r(rest s)))(t(q s)(r(rest s)))))(defun q (l)(cond((eql(first l)#\Space)t)((endp l)t)(t(princ(first l))(q(rest l)))))

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

গল্ফ করার এটাই আমার প্রথম চেষ্টা যে কোনও সম্পাদনা স্বাগত

— JRowan
সূত্র
হ্যালো এবং পিপিসিজিতে আপনাকে স্বাগতম। হোয়াইটস্পেস অপসারণ আপনাকে 29 বাইট বাঁচাতে পারে ।
— জোনাথন ফ্রেচ
@ জোনাথন ফ্র্যাচ ধন্যবাদ আমি কোনও ফাঁকা জায়গা ছাড়াই সবেমাত্র আপডেট করেছি
— জোরোয়ান
আমি মনে করি আপনি চারটি অতিরিক্ত অতিরিক্ত স্থান মিস করেছেন।
— জোনাথন ফ্রেচ
আপনি সম্ভবত এছাড়াও ব্যবহার করতে পারেন carপরিবর্তে firstএবং cdrপরিবর্তে restআরও গলফ আপনার জমা করা হয়।
— জোনাথন ফ্রেচ
না, আমি এখন এটির সাথে ভাল আছি, সম্ভবত অসুস্থ ফিরে আসুন এবং পরে এটির সাথে জগাখিচুড়ি করুন। আমি এখন লিস্প শিখছি এখন আমার শিক্ষক বলেছিলেন যে গাড়ি এবং সিডিআর কখনই ব্যবহার করবেন না যাতে তারা যখন করছিল তখন তারা আমার মাথার বাইরে ছিল
— JRowan
3

লুয়া , 70 বাইট

for i=1,#arg do x=arg[i]for i=1,#x do io.write(x:sub(i))end print()end

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

ব্যাখ্যা

লুয়ার আর্গুমেন্টগুলি argসূচী ১ থেকে শুরু করে টেবিলের মধ্যে সংরক্ষণ করা হয় ary অ্যানারি অপারেটরটি #টেবিলের আকার দেয় এবং ফাংশনটি পূর্ণসংখ্যার দ্বারা বিস্মৃত s:sub(a,b)স্ট্রিংয়ের উপর ভিত্তি করে একটি স্ট্রিং দেয় এবং , খ পাস না হলে এটি বাকী স্ট্রিংটি ফিরে আসবে।sab

লাইন ব্রেকিং এড়াতে আমাকে io.write()পরিবর্তে ব্যবহার print()করতে হয়েছিল print()এবং বিপরীত কারণে শেষে যুক্ত হয়েছিল।

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