Thử thách

Đối với mỗi ký tự của chuỗi ngoại trừ ký tự cuối cùng, hãy làm như sau:

• Xuất ký tự hiện tại.

• Tiếp theo là xuất ngẫu nhiên từ danh sách sau đây một số lần ngẫu nhiên trong khoảng từ 1 đến 5 (bao gồm):

  • Nhân vật hiện tại
  • Ký tự tiếp theo của chuỗi
  • Phiên bản tổng đài của nhân vật mà bạn hiện đang ở
  • Phiên bản tổng đài của ký tự tiếp theo của chuỗi.

Các trường hợp thử nghiệm

String -> SSSTSStrTrIiinIIngn

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

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

Ghi chú

• Bạn chỉ cần áp dụng phiên bản tổng đài của một ký tự nếu ký tự là một phần của bảng chữ cái (AZ và az).
• Hàm ngẫu nhiên của bạn không cần phải đồng nhất nhưng nó vẫn cần có cơ hội trả về bất kỳ phần tử nào trong danh sách đã cho.
• Bạn được phép sử dụng bất kỳ định dạng I / O tiêu chuẩn nào.
• Bạn có thể cho rằng độ dài của đầu vào lớn hơn hoặc bằng hai.
• Bạn có thể cho rằng đầu vào chỉ bao gồm các ký tự ASCII.
• Tiêu đề không phải là một trường hợp thử nghiệm (nó là vô ý nếu nó là một trường hợp thử nghiệm hợp lệ).
• Switchcase có nghĩa là biến char thành chữ thường nếu nó là chữ hoa và để biến nó thành chữ hoa nếu nó là chữ thường.

Gaia , 25 byte

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

Hãy thử trực tuyến!

Cảm ơn Kevin Cruijssen đã chỉ ra 2 lỗi!

ṇ\				| 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

Lưu ý rằng đó 4ṛlà vì ṛđược triển khai cho một số nguyên zdưới dạng pythonrandom.randint(1,z+1) , trả về một số nguyên Nnhư vậy 1<=N<=z+1.

APL (dzaima / APL) , 23 byte

Chức năng tiền tố ẩn danh.

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

Hãy thử trực tuyến!

2(... )/ áp dụng các chức năng ngầm trung tố sau đây giữa mỗi cặp nhân vật:

 - tổng đài
 ⍤ của
 ,  cặp

 ,, chuẩn bị kết nối của cặp với điều đó

 {... }⊇ chọn các yếu tố sau từ đó:

  ?5 số ngẫu nhiên trong phạm vi 1 Lầu 5

  4⍴⍨ rất nhiều

  ? chỉ số ngẫu nhiên cho những người

∊ ε nlist (flatten)

Perl 6 , 60 byte

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

Hãy thử trực tuyến!

Phần chữ thường / chữ hoa thường hơi khó chịu.

Thạch , 12 byte

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

Hãy thử trực tuyến!

Bash , 121 byte

-20 byte nhờ Nahuel

-9 byte nhờ roblogic

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"
}

Hãy thử trực tuyến!

Câu trả lời gốc

Bash , 150 byte

Đã thực hiện rất ít bash golf và cố gắng cải thiện bash của tôi, vì vậy bất kỳ ý kiến ​​đều hoan nghênh.

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

Hãy thử trực tuyến!

Mã là vòng lặp đơn giản thông qua ký tự cài đặt ký tự hiện tại cvà nký tự tiếp theo , sau đó tạo một mảng gồm 4 khả năng, lặp lại một trong số chúng để có chính xác 5. Tiếp theo, chúng ta xáo trộn mảng đó và sau đó chọn n phần tử từ đó, trong đó n là ngẫu nhiên giữa 1 và 5.

Python 2 , 107 byte

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

Hãy thử trực tuyến!

05AB1E , 18 17 byte

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

Lấy cảm hứng từ câu trả lời Gaia của @Giuseppe .
-1 byte nhờ @Shaggy .

Dùng thử trực tuyến 10 lần hoặc xác minh tất cả các trường hợp thử nghiệm 10 lần .

Giải trình:

ü)             # 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)

Than , 27 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

ＦＬθ«

Lặp lại tất cả các chỉ số của chuỗi đầu vào.

Ｆ∧ι⊕‽⁵

Ngoại trừ chỉ mục đầu tiên, lặp qua một số ngẫu nhiên từ 1 đến 5 bao gồm ...

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

... trích xuất các ký tự trước và tiếp theo từ chuỗi, lấy phiên bản chữ hoa và chữ thường và chọn một ký tự ngẫu nhiên trong bốn ký tự.

§θι

In ký tự ở chỉ mục hiện tại.

perl 5 ( -p), 77 byte

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

TIO

Japt -P , 14 byte

äÈ+Zu pv ö5ö Ä

Thử nó

äÈ+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

Python 3 , 167 byte

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

Hãy thử trực tuyến!

Thạch , 14 byte

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

Hãy thử trực tuyến!

Giải trình

             Ɲ | 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

C (GCC) 175 162 byte

-12 byte từ LambdaBeta

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;}

Dùng thử trực tuyến

PowerShell , 154 105 103 95 87 byte

^{-67 byte nhờ mazzy người không thể dừng lại}

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

Hãy thử trực tuyến!

Không phải là một phương pháp tuyệt vời nhưng nó hoạt động. Bây giờ nó khá tốt. Đưa đầu vào qua nối

Scala 2.12.8, 214 byte

Phiên bản chơi gôn:

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)

Chơi gôn với dòng mới và thụt lề:

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)

Ung dung:

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()))

Perl 5 -n , 61 byte

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

Hãy thử trực tuyến!

C # (Trình biên dịch tương tác Visual C #) , 236 213 209 byte

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;}

Hãy thử trực tuyến!

Truy vấn T-SQL, 286 byte

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)

Rất tiếc, hãy thử trực tuyến phiên bản trực tuyến luôn hiển thị cùng một kết quả cho cùng một varchar, không giống như MS SQL Server Management Studio

C # (Trình biên dịch tương tác Visual C #) , 156 byte

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());}

Hãy thử trực tuyến!

Japt -P , 43 16 byte

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

Rút ngắn bởi rất nhiều bây giờ!

Thử nó

C (gcc) , 110 109 byte

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);}

Hãy thử trực tuyến!

-1 nhờ trần

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
}

Số lượng ký tự được in (mỗi ký tự đầu vào) không đồng nhất ngẫu nhiên:

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)

Zsh, 113 107 byte

Với rất nhiều sự giúp đỡ từ man zshexpnvà man zshparam. Hãy thử trực tuyến!

• -6 bởi tôi, điều chỉnh

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=;}