চ্যালেঞ্জ

শেষটির ব্যতীত স্ট্রিংয়ের প্রতিটি চরিত্রের জন্য, নিম্নলিখিতটি করুন:

বর্তমান অক্ষর আউটপুট।
নিম্নলিখিত তালিকা থেকে এলোমেলোভাবে অনুসরণ করে 1 - 5 (সমেত) এর মধ্যে একটি এলোমেলো বার বার:
- বর্তমান চরিত্র
- স্ট্রিংয়ের পরবর্তী অক্ষর
- আপনি বর্তমানে যে চরিত্রটি চালু করছেন তার স্যুইচকেস সংস্করণ
- স্ট্রিংয়ের পরবর্তী অক্ষরের সুইচকেস সংস্করণ।

পরীক্ষার মামলা

String -> SSSTSStrTrIiinIIngn

, . , . , . Hello world! -> ,,, .. , ,, .... , , .. .. . HHH HHEeelLlLllooO wwOworOOrrrRllDd!!D

Programming Puzzles and Code Golf -> PrPPrRrOooooogggRgGraAraaaMMMmmmimMIiininGGgG PPPPuZzZZzZzzZzllLLEEeEsEsssS a aANnNddD C COCoooOOdeDe E GGGoOllFFf

চরিত্রটি বর্ণমালার (এজেড এবং এজেড) অংশ হলে আপনার কেবলমাত্র একটি অক্ষরের স্যুইচকেস সংস্করণ প্রয়োগ করতে হবে।
আপনার এলোমেলো ফাংশনটি অভিন্ন হওয়ার দরকার নেই তবে প্রদত্ত তালিকায় এরপরেও কোনও উপাদান ফিরে পাওয়ার সম্ভাবনা রয়েছে।
আপনাকে কোনও মানক I / O ফর্ম্যাট ব্যবহার করার অনুমতি দেওয়া হচ্ছে।
আপনি ধরে নিতে পারেন যে ইনপুটটির দৈর্ঘ্য দুটি থেকে বড় বা সমান।
আপনি ধরে নিতে পারেন ইনপুটটিতে কেবল ASCII অক্ষর রয়েছে।
শিরোনাম কোনও পরীক্ষার মামলা নয় (এটি একটি বৈধ পরীক্ষার কেস হলে তা অনিচ্ছাকৃত)।
স্যুইচকেস বলতে বোঝায় যে এটি বড় হাতের না হলে চরটি ছোট হাতের দিকে ঘুরিয়ে দেওয়া এবং ছোট হাতের অক্ষরে থাকলে বড় হাতের দিকে পরিণত করা।

code-golf string random

— MilkyWay90
সূত্র

'... অভিন্ন হওয়ার দরকার নেই' ছাড়াও, আমি মনে করি আপনি সম্ভবত নির্দিষ্ট করতে চান যে কিছু ইনপুট দেওয়া থাকলে, সমস্ত সীমাবদ্ধ আইনী ফলাফলগুলি নীতিগতভাবে উত্পন্ন করা উচিত (অন্যথায়, আমার অ-ইউনিফর্ম এলোমেলো পূর্ণসংখ্য [1 , 2,3,4,5] সর্বদা 2 হতে চলেছে, এবং আমি কেবল আসল স্ট্রিং আউটপুট করব)।

— চ্যাস ব্রাউন

@ চ্যাসব্রাউন হ্যাঁ, আমি প্রশ্নটি সম্পাদনা করব

— মিল্কিওয়ে 90

2

আমি স্পেসিফিকেশন বিভ্রান্তিকর মনে। আপনি আরও স্পষ্ট হতে পারে? উদাহরণস্বরূপ, কীভাবে Stringউত্পাদন হয় তা নিয়ে কাজ করুনSSSTSStrTrIiinIIngn

— লুইস মেন্ডো

7

@ লুইস মেন্ডো আমি ওপি নই, তবে আমার মনে হয়: [S]SSTSS [t]rT, [r]I, [i]inII, [n]gnযেখানে ব্লকগুলির মধ্যে অক্ষরগুলি প্রথম বুলেট পয়েন্ট (" বর্তমান চরিত্রটিকে আউটপুট দেয় ") এবং অন্য অক্ষরগুলি এলোমেলোভাবে চারটি পছন্দের মধ্যে 1-5 গুণ একটি হয় অক্ষর। তবে আমি সম্মত, আরও কিছু স্পষ্ট ব্যাখ্যা যথাযথ হবে। পরীক্ষার কেস বাদে এটি বিশেষভাবে পরিষ্কার ছিল না যে আমাদের 1-5 বার এলোমেলো পছন্দ বাছাই করতে হবে। 1-5 বার পুনরাবৃত্তি এলোমেলো পছন্দ বাছাইয়ের পরিবর্তে (যেমন গাইয়ার উত্তর বর্তমানে দেয়)।

— কেভিন ক্রুইজসেন

3

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

— লুইস মেন্ডো

6

গাইয়া , 25 বাইট

ṇ\+†ṅ\⟨)₌¤:~+4ṛ⟨ṛ₌¤⟩ₓ\⟩¦$

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

কেভিন ক্রুইজসেনকে 2 টি বাগ চিহ্নিত করার জন্য ধন্যবাদ !

ṇ\				| delete the last character from the input
  +†				| push the input again and concatenate together, so for instance
				| 'abc' 'bc' becomes ['ab' 'bc' 'c']
    ṅ\				| delete the last element
       ⟨       		⟩¦	| for each of the elements, do:
	)₌			| take the first character and push again
	  ¤			| swap
	   :			| dup
	    ~			| swap case
	     +			| concatenate strings
	      4ṛ		| select a random integer from [1..5]
	        ⟨    ⟩ₓ		| and repeat that many times
		 ṛ₌¤		| select a random character from the string
		      \ 	| clean up stack
			   $	| convert to string

নোটটি 4ṛকারণ অজগর হিসাবে ṛএকটি পূর্ণসংখ্যার জন্য প্রয়োগ করা হয়েছে , এটি একটি পূর্ণসংখ্যা যেমন প্রদান করে ।zrandom.randint(1,z+1)N1<=N<=z+1

— : Giuseppe
সূত্র

আপনি কি নিশ্চিত যে রান-লেংথ এনকোডটি এখানে সঠিক? যদি আমি চ্যালেঞ্জটি সঠিকভাবে বুঝতে পারি: চারটি অপশনটি এলোমেলোভাবে 1-5 বার বেছে নেওয়া উচিত, চারটি এলোমেলোভাবে বেছে নেওয়ার পরিবর্তে 1-5 বার পুনরাবৃত্তি করা উচিত। প্রথম উদাহরণ আউটপুট SSSTSStrTrIiinIIngn( [SSSTSS, trT, rI, iinII, ngn]) এটির প্রতিফলন করে বলে মনে হয় এবং বর্তমানে আপনার প্রোগ্রামের কোনও সম্ভাব্য আউটপুট নয় (আমার মনে হয়)।

— কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন আমি রান-দৈর্ঘ্যের ডিকোড বোঝার জন্য "তালিকা থেকে আউটপুটটি এলোমেলো সংখ্যক বার" ব্যাখ্যা করেছি, তবে আপনি ঠিক বলেছেন, পরীক্ষার কেসগুলি অন্য ব্যাখ্যাটিকে ইঙ্গিত করে বলে মনে হচ্ছে; আমি মনে করি এটি ঠিক করা খুব সহজ হওয়া উচিত

— জিউসেপ

1

5ṛহতে পারে 6কোনো কারণে অনলাইনে এটিকে পরখ করে ? পিএস: গাইয়ায় রেঞ্জযুক্ত তালিকার কোনও পূর্ণসংখ্যা নেই, বা লুপের জন্য রয়েছে?

— কেভিন ক্রুইজসেন

1

@ কেভিন ক্রুইজসেন ডাঙ, বিজনেস ক্যাটকে সত্যিই একে অপরের ত্রুটিগুলি ঠিক করা দরকার ... আমি সত্যিই ভেবেছিলাম সেখানে forটাইপ কনস্ট্রাক্ট রয়েছে, তবে আমি নিশ্চিত যে এটি ₓউইকির পাতায় দলিলও নয় isn't

— জিউসেপ

4

এপিএল (ডিজাইমা / এপিএল) , 23 বাইট

বেনামে ট্যাসিট প্রিফিক্স ফাংশন।

∊2(⊣,{?4⍴⍨?5}⊇,,-⍤,)/

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

2(… )/ প্রতিটি অক্ষরের জুটির মধ্যে নিম্নলিখিত ইনফিক্স ট্যাসিট ফাংশনটি প্রয়োগ করুন:

- switchcase
⍤ এর
, জোড়া সংযুক্তকরণের

,, এই জুটির সংমিশ্রণটি প্রস্তুত করুন

{… }⊇ এটি থেকে নিম্নলিখিত উপাদানগুলি চয়ন করুন:

?5 পরিসীমা 1… 5 এলোমেলো সংখ্যা

4⍴⍨ যে অনেক চার

? তাদের জন্য র্যান্ডম সূচক

∊ ε nlist (চেপ্টা)

— আদম
সূত্র

3

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

{S:g{.)>(.)}=$/~[~] roll ^5 .roll+1,$/.lc,$/.uc,$0.lc,$0.uc}

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

ছোট হাতের / বড় হাতের অংশটি বিরক্তিকর।

— জো কিং
সূত্র

আমি পার্লকে চিনি না, তাই আমি সম্ভবত এখানে কিছু বোকা বলছি। তবে কি কোনও উপায়ে একসাথে $/এবং $0একসাথে এবং .lcসেই স্ট্রিংটিতে ব্যবহার করা সম্ভব , এবং তারপরে সেই স্ট্রিংয়ের একটি অনুলিপি তৈরি করা এবং ব্যবহার করা .uc, এবং সেই দু'জনকে এক সাথে সংযুক্ত করা? নিশ্চিত হতে পারছি না যে এমনকি সম্ভব, অথবা আপনার বর্তমান চেয়ে খাটো এর $/.lc,$/.uc,$0.lc,$0.uc, কিন্তু এটা মানে হবে আপনি ব্যবহার চাই $/, $0, .lc, এবং .ucপ্রতিটি একবার।

— কেভিন ক্রুইজসেন

1

হায়, (.lc~.uc for $0~$/).combদীর্ঘ। পার্ল 6 সত্যিই স্ট্রিং এবং তালিকার মধ্যে পার্থক্য করতে চায়, সুতরাং "abc"[0] eq "abc"(এটি একটি একক-আইটেমের তালিকা হিসাবে ভান করে)।

— ভেন

আপনি স্লিপ করে এবং কোনও বেনামি ফাংশন একটি তালিকায় প্রয়োগ করতে পারেন: {.lc,|.uc}($/,|$0)-5 বাইটের জন্য, এবং কেবল ম্যাচগুলির তালিকা {.lc,|.uc}(@$/)-8 বাইটের জন্য ব্যবহার করুন । tio.run/…

— ফিল এইচ

@ ফিলফ না এটি কাজ করে না। এই সমাধানগুলি কেবলমাত্র একটি একটি

— জো কিং

3

জেলি , 12 বাইট

;Œsṗ5X¤XṭṖµƝ

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

— এরিক দ্য আউটগল্ফার
সূত্র

3

বাশ , 121 বাইট

-20 বাইট নাহুয়েলকে ধন্যবাদ

-9 বাইট রোব্লজিক ধন্যবাদ

for((i=0;i<${#1};i++)){
s=${1:i:1}
m=${1:i:2}
m=${m,,}${m^^}
for((t=0;t++<RANDOM%6;)){
s+=${m:RANDOM%4:1}
}
printf "$s"
}

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

আসল উত্তর

সজোরে আঘাত , 150 বাইট

খুব কম গল্ফকে মারধর করেছে এবং আমার ব্যাশের উন্নতি করার চেষ্টা করেছে, তাই কোনও মন্তব্য স্বাগত।

for((i=0;i<${#1}-1;i++));do
c=${1:$i:1}
n=${1:$((i+1)):1}
a=($n ${c,} ${c^} ${n,} ${n^})
shuf -e ${a[@]} -n "$(shuf -i 1-5 -n 1)"|xargs printf %s
done

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

কোডগুলি চরগুলি বর্তমান cএবং পরবর্তী nচরিত্র নির্ধারণের মাধ্যমে সোজা লুপ হয় , তারপরে 4 সম্ভাবনার একটি অ্যারে তৈরি করে, তাদের মধ্যে একটির পুনরাবৃত্তি করে তাই ঠিক 5 রয়েছে Next 1 এবং 5।

— দুর্ভাগ্যআনয়নকারী
সূত্র

মনে হচ্ছে এটি নিখোঁজ রয়েছেprintf %s "$c"

— নাহুয়েল ফুইলুল

1

doএবং doneঅননুমোদিত {এবং}

— নাহুয়েল ফিউইলুল

কিছু পরিবর্তন সহ

— নাহুয়েল ফুইলুল

1

@roblogic যে চালাক tyvm।

— যোনাহ

1

121-বাইট সমাধানটি খানিকটা ভঙ্গুর / বগি, এখানে আরও শক্তিশালী (133-বাইট) সংস্করণ রয়েছে যা সমস্ত মুদ্রণযোগ্য ASCII, tio.run

— রোব্লগিক

2

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

f=lambda s:s and s[0]+''.join(sample((s[:2]+s[:2].swapcase())*5,randint(1,5)))+f(s[1:])
from random import*

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

— চ্যাস ব্রাউন
সূত্র

2

05 এ বি 1 ই , 18 17 বাইট

ü)vyн5LΩFyD.š«Ω]J

@ জিউসেপ -এর গাইয়া উত্তর দ্বারা অনুপ্রাণিত ।
-১ বাইট @ শ্যাগিকে ধন্যবাদ ।

এটি 10 বার অনলাইনে চেষ্টা করুন বা সমস্ত পরীক্ষার কেস 10 বার যাচাই করুন ।

ব্যাখ্যা:

ü)             # Create all pairs of the (implicit) input
               #  i.e. "Hello" → [["H","e"],["e","l"],["l","l"],["l","o"]]
  v            # Loop over each these pairs `y`:
   yн          #  Push the first character of pair `y`
   5LΩ         #  Get a random integer in the range [1,5]
      F        #  Inner loop that many times:
       y       #   Push pair `y`
        D.š«   #   Duplicate it, swap the cases of the letters, and merge it with `y`
            Ω  #   Then pop and push a random character from this list of four
  ]J           # After both loops: join the entire stack together to a single string
               # (which is output implicitly as result)

— কেভিন ক্রুইজসেন
সূত্র

আমি 05AB1E জানি না তবে এর পরিবর্তে INèআপনি কি প্রথম চরিত্রটি ঠেলে কিছু বাঁচাতে পারবেন y?

— শেগি

@ শেগি হ্যাঁ, আমি সত্যিই পারি .. ধন্যবাদ! আজকের জন্য আমার হয়তো গল্ফ করা বন্ধ করা উচিত, আমি একটি জগাখিচুড়ি করছি ...

— কেভিন ক্রুইজসেন

তুমি গোলমাল করছ? ¨vNUy5LΩFy¹X>è«D.š«Ω?

— ম্যাজিক অক্টোপাস উরন

1

@MagicOctopusUrn যদিও একটি চমত্কার মূল পদ্ধতির, আমি এটা চ্যালেঞ্জের প্রথম বুলেট পয়েন্ট করে না ভয় হচ্ছে ( " আউটপুট বর্তমান অক্ষর। যেহেতু ফলাফলের শুরু করতে পারেন সঙ্গে"), t, T, অথবা sইনপুট জন্য "String"আপনার প্রোগ্রামে, যখন এটা সবসময় দিয়ে শুরু করা উচিত S।

— কেভিন ক্রুইজসেন

1

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

ＦＬθ«Ｆ∧ι⊕‽⁵‽⭆✂θ⊖ι⊕ι¹⁺↥λ↧λ§θι

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

ＦＬθ«

ইনপুট স্ট্রিংয়ের সমস্ত সূচকের উপরে লুপ করুন।

Ｆ∧ι⊕‽⁵

প্রথম সূচক ব্যতীত, 1 থেকে 5 সমেত একটি এলোমেলো সংখ্যার উপর লুপ করুন ...

‽⭆✂θ⊖ι⊕ι¹⁺↥λ↧λ

... স্ট্রিং থেকে পূর্বের এবং পরবর্তী অক্ষরগুলি বের করুন, উপরের এবং লোয়ার কেস সংস্করণগুলি নিন এবং চারটির একটি এলোমেলো চরিত্র চয়ন করুন।

§θι

বর্তমান সূচীতে অক্ষরটি মুদ্রণ করুন।

— নিল
সূত্র

1

পার্ল 5 ( `-p`), 77 বাইট

s/(.)(?=(.))/$x=$1;'$x.=substr"\U$1$2\L$1$2",4*rand,1;'x(1+5*rand)/gee;s/.$//

Tio

— নাহুয়েল ফৌইলুল
সূত্র

আপনি তার $&পরিবর্তে $1এবং chop+ এর -lপরিবর্তে + বাইট ব্যবহার করে 4 বাইট সংরক্ষণ করতে পারেনs/.$//

— 14-24

1

জাপট `-P` , 14 বাইট

äÈ+Zu pv ö5ö Ä

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

äÈ+Zu pv ö5ö Ä     :Implicit input of string
ä                  :Take each consectutive pair of characters
 È                 :Pass them through the following function as Z
  +                :  Append to the first character of the pair
   Zu              :    Uppercase Z
      p            :    Append
       v           :      Lowercase
         ö         :    Get X random characters, where X is
          5ö       :      Random number in the range [0,5)
             Ä     :      Plus 1
                   :Implicitly join and output

— রোমশ
সূত্র

1

পাইথন 3 , 167 বাইট

from random import*;c=choice
def f(s):
 i=0;r=""
 for i in range(len(s)-1):
  r+=s[i]
  for j in range(randrange(5)):r+=c([str.upper,str.lower])(c(s[i:i+2]))
 return r

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

— সারা জে
সূত্র

1

জেলি , 14 বাইট

;;;Œs$Xɗ¥5X¤¡Ɲ

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

ব্যাখ্যা

             Ɲ | For each overlapping pair of letters
;              | Join the first letter to...
         5X¤¡  | Between 1 and 5 repetitions of...
      Xɗ¥      | A randomly selected character from...
 ;;Œs$         | A list of the two letters and the swapped case versions of both

— নিক কেনেডি
সূত্র

1

সি (জিসিসি) 175 162 বাইট

ল্যাম্বদাবেটা থেকে -12 বাইট

f(s,S,i,r,a)char*s,*S,*i;{srand(time(0));for(i=S;*(s+1);++s){*i++=*s;for(r=rand()%5+1;r--;*i++=rand()&1?a>96&a<123|a>64&a<91?a^32:a:a)a=rand()&1?*s:*(s+1);}*i=0;}

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

— rtpax
সূত্র

আমি মনে করি না 0প্রথম লাইনে আপনার দরকার আছে ।

— লাম্বদাবেতা

বাফারটিকে Sপ্যারামিটার হিসাবে গ্রহণ করে এবং আপনার ভেরিয়েবলগুলি যুক্তি তালিকায় যুক্ত করে প্রচুর অক্ষর সংরক্ষণ করতে পারে : এটি অনলাইনে চেষ্টা করুন!

— লাম্বদাবেতা

@LambdaBeta আপনি সক্রিয় আউট অধিকার চলেছেন 0, যা এটি অধিকারী না এটা আছে প্রণীত #defineআর

— rtpax

150 বাইট

— সিলিংক্যাট

1

পাওয়ারশেল , 154 105 103 95 87 বাইট

^{-67 মজিকে ধন্যবাদ বাইটস যারা থামানো যায় না}

-join(($x=$args)|%{$_;$x[$i,++$i]*5|%{"$_"|% *wer;"$_"|% *per}|random -c(1..5|random)})

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

~~চমত্কার পদ্ধতি নয় তবে এটি কাজ করে।~~ এখন এটি বেশ ভাল। স্প্ল্যাটিংয়ের মাধ্যমে ইনপুট নেয়

— Veskah
সূত্র

ওহ, বাহ, প্রচুর বাইট আছে।

— মিল্কিওয়ে 90 ই

1

@ মমজি ডাং কুকুর আমার সবসময় ছিটকে পড়ার অভ্যাসে প্রবেশ করা দরকার তবে আপনি জানতেন না যে আপনি ওয়াইল্ডকার্ড সদস্যদের এমনভাবে হটসপআপ করতে পারবেন।

— ভেস্কাহ

1

আমি দুঃখিত 87 বাইট

— mazzy

0

স্কেল 2.12.8, 214 বাইট

গল্ফ সংস্করণ:

val r=scala.util.Random;println(readLine.toList.sliding(2).flatMap{case a :: b :: Nil=>(a +: (0 to r.nextInt(5)).map{_=>((c: Char)=>if(r.nextBoolean)c.toUpper else c.toLower)(if(r.nextBoolean)a else b)})}.mkString)

নিউলাইন এবং ইনডেন্টগুলি সহ গল্ফ করা:

val r=scala.util.Random
println(readLine.toList.sliding(2).flatMap{
  case a :: b :: Nil=>
    (a +: (0 to r.nextInt(5)).map{_=>
      ((c: Char)=>if(r.nextBoolean)c.toUpper else c.toLower)(if(r.nextBoolean)a else b)
    })
}.mkString)

Ungolfed:

import scala.io.StdIn
import scala.util.Random

def gobble(input: String): String = {
  input.toList.sliding(2).flatMap {
    case thisChar :: nextChar :: Nil =>
      val numberOfAdditions = Random.nextInt(5)
      (thisChar +: (0 to numberOfAdditions).map { _ =>
        val char = if(Random.nextBoolean) thisChar else nextChar
        val cc = if(Random.nextBoolean) char.toUpper else char.ToLower
        cc
      })
  }.mkString
}

println(gobble(StdIn.readLine()))

— সোরেন
সূত্র

1

কোন পথে পরিণত a :: b :: Nilহয় না a::b::Nil? একই কাজ a :+, a:+()বা a.:+()কাজ করতে পারে

— ভেন

@ ভেনের a::b::Nilফলে একটি সংকলন ত্রুটি হয়। +:তালিকায় একটি পদ্ধতি কী সংজ্ঞায়িত করা হয়েছে, তাই এটি বাইরের পেরেনগুলি থেকে মুক্তি পেয়ে স্থান বাঁচাতে পারে?

— সোরেন

আপনার এখানে কেবলমাত্র একটি এলম রয়েছে তাই এটি কোনওভাবেই স্বয়ংক্রিয়ভাবে চালিত হচ্ছে না

— ভেন

0

পার্ল 5 `-n` , 61 বাইট

s/.(?=(.))/print$&,map{(map{lc,uc}$&,$1)[rand 4]}0..rand 5/ge

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

— দাদা
সূত্র

0

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 236 213 209 বাইট

a=>{int i=0,j;var m=new Random();var s="";var c = a.Select(x=>Char.IsLetter(x)?(char)(x^32):x).ToArray();for(;i<a.Length-1;i++)for(j=m.Next(1,5);j-->0;)s+=new[]{a[i],c[i],a[i+1],c[i+1]}[m.Next(0,3)];return s;}

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

— মেয়াদোত্তীর্ণ ডেটা
সূত্র

অক্ষরহীন অক্ষরের সাথে কাজ করে না। char b=a[0]-> var b=a[0], dইন-লুপ ঘোষণায় অতিরিক্ত স্থান

— অবজ্ঞানের

0

টি-এসকিউএল কোয়েরি, 286 বাইট

DECLARE @ char(999)='String'

SELECT @=stuff(@,n+2,0,s)FROM(SELECT
top 999*,substring(lower(c)+upper(c),abs(v%4)+1,1)s
FROM(SELECT*,number n,substring(@,number+1,2)c,cast(newid()as varbinary)v
FROM(values(1),(2),(3),(4),(5))F(h),spt_values)D
WHERE'P'=type and n<len(@)-1and h>v%3+2ORDER
BY-n)E
PRINT LEFT(@,len(@)-1)

অনলাইনে এটিকে পরখ করে দুর্ভাগ্যবশত অনলাইন সংস্করণ সবসময় একই varchar জন্য একই ফলাফল দেখান, মাইক্রোসফট SQL সার্ভার ম্যানেজমেন্ট স্টুডিও অসদৃশ

— t-clausen.dk
সূত্র

0

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 156 বাইট

n=>{var k=new Random();int i=0;foreach(var j in n.Skip(1).Zip(n,(a,b)=>a+b))for(Write(j[1]),i=0;i++<k.Next(5);)Write(k.Next()%2<1?j.ToUpper():j.ToLower());}

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

— অজ্ঞতার প্রতিমূর্তি
সূত্র

0

জাপট `-P` , 43 16 বাইট

äÈ+(Zv +Zu)ö5ö Ä

ছোট করে এখন অনেক কিছু!

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

— অজ্ঞতার প্রতিমূর্তি
সূত্র

এটি প্রতিবার একই ফলাফল ফিরে আসবে বলে মনে হচ্ছে।

— শেগি

@ শেগি ঠিক করবে। এছাড়াও, äএর বিবরণ বলে যে এটি তিনটি যুক্তি দেয়, শেষ সত্ত্বার সাথে x+y। তবে আপনি এখানে দেখতে পাচ্ছেন , এটি কেবল ১ টি ফিরে আসে this এটি কি বাগ?

— অজ্ঞতার মূর্ত প্রতীক

0

সি (জিসিসি) , 110 109 বাইট

i,p;g(char*_){for(i=rand(putchar(*_))%1024;p=_[i%2],putchar(i&2&&p>64&~-p%32<26?p^32:p),i/=4;);_[2]&&g(_+1);}

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

-1 সিলিংক্যাট ধন্যবাদ

i,p;g(char*_){
    for(i=rand(putchar(*_)) //print current char
         %1024;             // and get 10 random bits
        p=_[i%2],           //1st bit => current/next char
        putchar(i&2&&       //2nd bit => toggle case
            p>64&~-p%32<26  // if char-to-print is alphabetic
            ?p^32:p),
        i/=4;);             //discard two bits
    _[2]&&g(_+1);           //if next isn't last char, repeat with next char
}

মুদ্রিত অক্ষরের সংখ্যা (প্রতি ইনপুট অক্ষর) অভিন্নভাবে এলোমেলো নয়:

1  if      i<   4 (  4/1024 = 1/256)
2  if   4<=i<  16 ( 12/1024 = 3/256)
3  if  16<=i<  64 ( 48/1024 = 3/ 64)
4  if  64<=i< 256 (192/1024 = 3/ 16)
5  if 256<=i<1024 (768/1024 = 3/  4)

— attinat
সূত্র

0

জেডএস, 113 107 বাইট

man zshexpnএবং এর থেকে প্রচুর সহায়তা নিয়ে man zshparam। অনলাইনে চেষ্টা করে দেখুন!

-6 আমার দ্বারা, টুইট

for ((;i<#1;i++)){m=${1:$i:2};m=$m:l$m:u
for ((;t<RANDOM%5;t++))x+=${m[RANDOM%4]}
echo ${1[i]}$x\\c;t=;x=;}

— roblogic
সূত্র

ssTTsSTtRrriinInnnnNNNIiinngg

চ্যালেঞ্জ

পরীক্ষার মামলা

মন্তব্য

গাইয়া , 25 বাইট

এপিএল (ডিজাইমা / এপিএল) , 23 বাইট

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

জেলি , 12 বাইট

বাশ , 121 বাইট

আসল উত্তর

সজোরে আঘাত , 150 বাইট

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

05 এ বি 1 ই , 18 17 বাইট

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

পার্ল 5 ( -p), 77 বাইট

জাপট -P , 14 বাইট

পাইথন 3 , 167 বাইট

জেলি , 14 বাইট

ব্যাখ্যা

সি (জিসিসি) 175 162 বাইট

পাওয়ারশেল , 154 105 103 95 87 বাইট

স্কেল 2.12.8, 214 বাইট

পার্ল 5 -n , 61 বাইট

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 236 213 209 বাইট

টি-এসকিউএল কোয়েরি, 286 বাইট

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 156 বাইট

জাপট -P , 43 16 বাইট

সি (জিসিসি) , 110 109 বাইট

জেডএস, 113 107 বাইট

পার্ল 5 ( `-p`), 77 বাইট

জাপট `-P` , 14 বাইট

পার্ল 5 `-n` , 61 বাইট

জাপট `-P` , 43 16 বাইট