도전

마지막 문자를 제외한 문자열의 각 문자에 대해 다음을 수행하십시오.

• 현재 문자를 출력합니다.

• 다음 목록에서 1-5 (포함) 사이의 임의의 횟수로 무작위 출력합니다.

  • 현재 캐릭터
  • 문자열의 다음 문자
  • 현재있는 캐릭터의 스위치 버전
  • 문자열의 다음 문자의 스위치 버전입니다.

테스트 사례

String -> SSSTSStrTrIiinIIngn

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

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

노트

• 문자가 알파벳 (AZ 및 az)의 일부인 경우 문자의 전환 버전 만 적용하면됩니다.
• 임의의 함수는 균일 할 필요는 없지만 주어진 목록의 요소를 반환 할 가능성이 여전히 있습니다.
• 모든 표준 I / O 형식을 사용할 수 있습니다.
• 입력 길이가 2 이상이라고 가정 할 수 있습니다.
• 입력이 ASCII 문자로만 구성되어 있다고 가정 할 수 있습니다.
• 제목은 테스트 케이스가 아닙니다 (유효한 테스트 케이스 인 경우 의도하지 않은 것임).
• 전환은 문자가 대문자이면 소문자로 바꾸고 소문자이면 대문자로 바꾸는 것을 의미합니다.

가이아 , 25 바이트

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

온라인으로 사용해보십시오!

2 개의 버그를 지적 해 주신 Kevin Cruijssen 에게 감사합니다 !

ṇ\				| 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ṛ때문이다 ṛ정수에 대한 구현 z파이썬의 같은 random.randint(1,z+1)정수를 반환 N되도록 1<=N<=z+1.

APL (dzaima / APL) , 23 바이트

익명의 암묵적 접두사 기능.

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

온라인으로 사용해보십시오!

2(… )/ 각 문자 쌍 사이에 다음 접두어 기능을 적용하십시오.

 - switchcase
 ⍤ 의
 , 한 쌍의 연결

 ,, 쌍의 연결을 그 앞에 붙이다

 {… }⊇ 그 중에서 다음 요소를 선택하십시오.

  ?5 1… 5 범위의 난수

  4⍴⍨ 그 많은 네

  ? 그것들에 대한 랜덤 인덱스

∊ ε NLIST (편평한)

펄 6 , 60 바이트

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

온라인으로 사용해보십시오!

소문자 / 대문자 부분은 다소 성가시다.

젤리 , 12 바이트

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

온라인으로 사용해보십시오!

배쉬 , 121 바이트

Nahuel 덕분에 -20 바이트

roblogic 덕분에 -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 바이트

골프 bashing을 거의하지 않았고 내 bash를 개선하려고 노력 했으므로 모든 의견을 환영합니다.

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가되도록합니다. 다음으로 우리는 그 배열을 섞은 다음 n 개의 요소를 선택합니다. 1과 5.

파이썬 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*

온라인으로 사용해보십시오!

05AB1E , 18 17 바이트

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

@Giuseppe 의 Gaia 답변에서 영감을 얻었습니다 . @Shaggy
덕분에 -1 바이트 .

온라인으로 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)

숯 , 27 바이트

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

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

ＦＬθ«

입력 문자열의 모든 인덱스를 반복합니다.

Ｆ∧ι⊕‽⁵

첫 번째 인덱스를 제외하고 1에서 5까지의 임의의 숫자를 반복하십시오.

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

... 문자열에서 이전 및 다음 문자를 추출하고 대문자 및 소문자 버전을 취하여 4 개의 임의 문자를 선택하십시오.

§θι

현재 색인에서 문자를 인쇄하십시오.

펄 5 ( -p), 77 바이트

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

TIO

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

파이썬 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

온라인으로 사용해보십시오!

젤리 , 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

C (GCC) 175 바이트

LambdaBeta에서 -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;}

온라인으로 사용해보십시오

PowerShell , 154 105 103 95 87 바이트

^{막을 수없는 mazzy 덕분에 -67 바이트}

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

온라인으로 사용해보십시오!

환상적인 방법은 아니지만 작동합니다. 이제는 꽤 좋습니다. 스플래 팅을 통해 입력을받습니다

스칼라 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)

언 골프 드 :

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

펄 5 -n , 61 바이트

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

온라인으로 사용해보십시오!

C 번호 (카메라 C 번호 인터랙티브 컴파일러) , 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;}

온라인으로 사용해보십시오!

T-SQL 쿼리, 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)

불행히도 온라인으로 사용해보십시오 온라인 버전은 MS SQL Server Management Studio와 달리 항상 동일한 varchar에 대해 동일한 결과를 보여줍니다

C # (Visual C # 대화식 컴파일러) 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());}

온라인으로 사용해보십시오!

apt -P , 43 16 바이트

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

지금 많이 단축되었습니다!

시도 해봐

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

온라인으로 사용해보십시오!

ceilingcat 덕분에 -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)

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