우리는 것 결코 얻을 피곤 알파벳 관련 문제의 ...

조리법

주어진

• 문자의 문자열 S및
• 이 양 개의 정수 M, N,

의 문자 알파벳 수프 생산 S점유하는 임의의 위치 A의 직사각형 그릇 크기 M× N, 액자 그릇의 테두리를 나타내는 알파벳이 아닌, 공백이 아닌 문자를.

문자로 사용하지 않는 위치는 공백으로 표시해야합니다. 아래 예를 참조하십시오 .

중재 규칙

• 크기 M× N는 그릇 의 내부 를 나타냅니다 . 림을 포함한 크기는 M+2× N+2입니다.
• 의 각 캐릭터 는 다른 위치 에 그릇에 한 번S 나타나야합니다 . 즉, 한 문자가 다른 문자를 덮어 쓸 수 없습니다.
• S 중복이 포함될 수 있습니다 . 예를 들어, S문자열 'abcc'인 경우 수프에는 1 a, 1 b및 2 c(모두 다른 위치에 있음)가 있어야합니다 .
• 입력은 만족 제한을 M >= 1 , N >= 1, 1 <= length(S) <= M*N.
• 보울의 림은 프로그램 실행 및 입력 값에서 일관된 비 알파벳, 비 공백 문자 일 수 있습니다.
• 보울의 글자 위치는 임의적이므로 동일한 입력으로 프로그램을 실행할 때마다 결과가 다를 수 있습니다.
• 입력이 주어지면, 가능한 모든 문자 위치 세트는 0이 아닌 확률을 가져야합니다 . 프로그램의 몇 가지 실현으로 확인할 수 없으므로 코드가이를 어떻게 수행하는지 설명하십시오.
• 림 주변의 선행 또는 후행 공백 이 허용됩니다.
• S대문자 만 포함합니다 . 원하는 경우 소문자 만 선택할 수 있습니다 .
• 입력과 출력은 평소처럼 유연 합니다. 예를 들어, 출력은 개행 문자가 포함 된 문자열, 2D 문자 배열 또는 행 목록 일 수 있습니다.
• 모든 프로그래밍 언어의 프로그램 또는 기능 이 허용 됩니다 . 표준 허점 은 금지되어 있습니다.
• 바이트 단위의 가장 짧은 코드가 이깁니다.

예

입력은로 표시되며 S, [M N]여기서 M행 N수는 열 수입니다. 캐릭터 #는 림에 사용됩니다.

'O', [1 1]:

###
#O#
###

'HEY', [1 3]:

#####
#YHE#
#####


'HELLO', [4 11]:

#############
#  O        #
#         H #
#    LE     #
#   L       #
#############


'ADVNJSGHETILMVXERTYIOJKCVNCSF', [8 12]:

##############
#K  V  L   S #
# A   V  X H #
#T    M C    #
# I       O N#
#  YC        #
# G  I   R SE#
#   J      F #
#JT  D  V EN #
##############


'OOOOOOOOOOXXXXX', [13 31]:

#################################
#    X                          #
#                O              #
#                               #
#                  X            #
#                        O      #
#             X           O     #
#      O                        #
#         X                     #
#                        O      #
#       X                       #
#                    O          #
#  O      O      O              #
#                             O #
#################################


'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ', [11 41]

###########################################
#                                       JU#
#     Q         C M    G     R T U Y  H   #
#  KI          E   H    M   YO            #
#      V BW        I    JC                #
#     SV           D     P   B          U #
#           A     F    RF   J  KP E       #
#            E   N      TH        Z       #
#    N  BM  O     Q   I        AS N  WX   #
#   S     O  K       G L       P       Q  #
#Z     L T         R   L       A      F DD#
#      V   Y           WX   C       G XZ  #
###########################################

05AB1E , 20 18 16 15 14 바이트

*j.rS²ô2Føε8.ø

높이, 너비, 문자열의 순서로 세 가지 입력을받습니다. 2D 문자 목록으로 출력합니다. 테두리로
사용 8하지만 모든 숫자가 될 수 있습니다.

@Grimy 덕분에 -1 바이트 .

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 . (TIO }}J»는 바닥 글에 포함되어 결과를 예쁘게 인쇄합니다. 대신 실제 출력 2D 문자 목록을 보려면 제거하십시오.)

설명:

*               # Multiply the (implicit) width and height inputs
 j              # Pad the (implicit) input-string with up to that amount of leading spaces,
                # so the total string-length is equal to that value
  .r            # Shuffle the characters in the string
    S           # Convert the string to a list of characters
                # (edge-case for the zip below with strings of size 1 with 1x1 dimensions)
     ²          # Push the width input again
      ô         # Split the list of characters into parts of that size
       2F       # Loop 2 times:
         ø      #  Zip/transpose the 2D list; swapping rows/columns
          ε     #  Inner map over each line:
           8.ø  #   And surround this line-list with a leading/trailing "8"
                # (after the loop, the result is output implicitly)

APL (Dyalog Unicode) , 25 바이트 ^SBCS

'#',∘⌽∘⍉⍣4{⍵⍴⊃¨↓∘⍺¨?⍨×/⍵}

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

@ngn 덕분에 -22, @ngn 및 @ Adám 덕분에 -7

설명:

'#',∘⌽∘⍉⍣4{⍵⍴⊃¨↓∘⍺¨?⍨×/⍵}
          {            ⍵} ⍝ Function that generates the content
                          ⍝  argument: ⍵ (width and height), ⍺ (string)
                     ×/   ⍝ get the product
                   ?⍨     ⍝ For each randomized elements
               ↓∘⍺¨       ⍝ take the character in ⍺
           ⍵⍴⊃¨           ⍝ turn it back into a matrix of shape ⍵
    ∘ ∘ ⍣4                ⍝ Then, 4 times, do these 3 things:
'#',                      ⍝ - prepend a # to the axis
     ⌽                    ⍝ - reverse the columns
       ⍉                  ⍝ - swap columns and lines

APL (Dyalog Extended) , 21 바이트 ^SBCS

림의 각도가 다른 캐릭터

{⌂disp⊂⍵⍴⊃¨↓∘⍺¨?⍨×/⍵}

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

dfn을 사용하여 상자를 표시합니다.

파이썬 3 , 110 바이트

lambda s,m,n,r=['#']:[r+(n*r+[i for i,j in{*zip(s+m*n*' ',range(m*n))}]+n*r)[k*n:-~k*n]+r for k in range(m+2)]

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

set이해 를 사용하여 무작위 화 하고 2D 문자 배열을 리턴합니다.

배쉬 +로 coreutils, 139 , 125 자

r=`printf %$3s@@|tr \  @`
echo $r
printf %$[$2*$3]s $1|fold -1|shuf|tr -d \\n|fold -$3|paste -d@ <(:) - <(:)|head -$2
echo $r

샘플 실행 :

bash-5.0$ bash soup.sh HELLO 4 11
@@@@@@@@@@@@@
@  H        @
@      OE   @
@    L      @
@          L@
@@@@@@@@@@@@@

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

배쉬 + coreutils + 박스, 97 자

printf %$[$2*$3]s $1|fold -1|shuf|tr -d \\n|fold -$3|boxes -dsimple -s$[$3+2]x$[$2+2] -pa0 -itext

샘플 실행 :

bash-5.0$ set -- HELLO 4 11

bash-5.0$ printf %$[$2*$3]s $1|fold -1|shuf|tr -d \\n|fold -$3|boxes -dsimple -s$[$3+2]x$[$2+2] -pa0 -itext
*************
* O   L  E  *
*      H    *
*           *
*     L     *
*************

온라인으로 사용해보십시오! ( boxesTIO에 설치되지 않은 부분 )

J , 30 29 바이트

Jonah 덕분에 -1 바이트

'#'|.@|:@,^:4[$*/@[(?~@[{{.)]

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

PowerShell을 , 163 (111) 93 바이트

param($w,$h,$s)'#'*$w+-join($s|% *ht($w*$h)|% t*y|sort{Random})+'#'*$w-replace".{$w}",'#$0#
'

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

입력을 $width, $height, $string 으로 취합니다 .

#적절한 $width 의 문자열을 생성 하고 , 문자열 결합하여 계산을 수행 한 다음 동일한 #문자열을 다시 생성합니다. 입력을 복용 계산이 시작 $s.padRig을 트링하고, 일을 ht받는 최대 $w로 IDþ $h팔 개 길이 (즉, 우리는 그 문자열로 변환. 충분히 완전히 직사각형 공간을 차지하기 위해 문자열을 toCharArra을 y, 그리고 sort그것을 RandomLY. 즉 제공 마지막으로, 우리는 -replace그것을 동일한 $width 덩어리로 나누고 , 그 덩어리를 #s로 둘러 쌉니다 .

AZTECCO의 영감 덕분에 -52 mazzy
덕분에 -18 바이트

자바 스크립트 (ES7), 125 바이트

문자열을 반환합니다. 0프레임 문자로 사용 합니다.

(s,h,w)=>(a=[...s.padEnd(w++*h++)].sort(_=>Math.random()-.5),g=x=>y+~h?(x%w&&y%h&&a.pop())+[`
`[x-w]]+g(x<w?x+1:!++y):a)(y=0)

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

댓글

(s, h, w) => (               // s = string; h = height; w = width
  a =                        // build an array a[] consisting of:
    [...s.padEnd(w++ * h++)] //   all original characters in s padded with spaces for a
    .sort(_ =>               //   total length of w * h, in a random order
      Math.random() - .5     //   (this is not guaranteed to be uniform, but it is not
    ),                       //   required to be)
  g = x =>                   // g is a recursive function taking x:
    y + ~h ?                 //   if we haven't reached the end of the grid:
      ( x % w &&             //     if we're not located on a vertical border
        y % h &&             //     nor on a horizontal border,
        a.pop()              //     extract the last character from a[]
      ) +                    //     (otherwise, append '0')
      [`\n`[x - w]] +        //     if we've reached the end of the row, append a linefeed
      g(                     //     append the result of a recursive call:
        x < w ? x + 1 : !++y //       using either (x+1, y) or (0, y+1)
      )                      //     end of recursive call
    :                        //   else (end of grid):
      a                      //     a[] is now empty and can be used as an empty string
)(y = 0)                     // initial call to g with x = y = 0

APL (Dyalog Extended) , 23 바이트 ^SBCS

익명의 암묵적 삽입 기능. 소요 [M,N]왼쪽 인수로 및 S오른쪽 인자로.

'#',∘⌽∘⍉⍣4⊣⍴×/⍛(?⍨⍤⊣⊇↑)

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

×/⍛(… ) 왼쪽 인수를 제품으로 대체하여 인수 사이에 다음 기능을 적용하십시오.

 ↑오른쪽에서 공백으로 채워서 에서 M× N문자를  가져 S옵니다.

 ⊇ 다음 순서로 재정렬하십시오.

 ?⍨⍤ 셔플 된 인덱스 1
 ⊣ 에서 왼쪽 인수 ( M× N)

⍴ R 다음과 같은 형태로 그 eshape :

⊣ 왼쪽 인수 (예 : M행과 N열)

'#'… ⍣4 해시 문자를 왼쪽 인수로하여 매번 다음 함수를 네 번 적용하십시오
 ∘⍉ . 오른쪽 인수를
 ∘⌽ 바꿉니다. 오른쪽 인수
 ,는 왼쪽에 해시 열을 연결합니다.

PHP 7.4, 107 99 94 자

fn($s,$r,$c)=>_.chunk_split(($b=str_pad(_,$c,_)).str_shuffle(str_pad($s,$r*$c)),$c,"_
_").$b._

덕분에 :

• PHP 7.4의 화살표 기능 (-10 자)을 상기시켜주는 Ismael Miguel
• 연결과 join()(-8 문자) 를 효율적으로 되돌릴 수있는 Night2
• chunk_split()의 $end매개 변수 사용 방법을 보여주는 Night2 (-5 자)

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

PHP 7.3 117 개 112 108 문자

function s($s,$r,$c){echo _.chunk_split(($b=str_pad(_,$c,_)).str_shuffle(str_pad($s,$r*$c)),$c,"_
_").$b._;}

덕분에 :

• 연결 및 join()(-5 자) 를 효율적으로 되돌릴 수있는 Night2
• chunk_split()의 $end매개 변수 사용 방법을 보여주는 Night2 (-4 자)

샘플 실행 :

php > function s($s,$r,$c){echo _.chunk_split(($b=str_pad(_,$c,_)).str_shuffle(str_pad($s,$r*$c)),$c,"_
php " _").$b._;}
php > s('HELLO', 4, 11);
_____________
_  L        _
_        L  _
_E          _
_    OH     _
_____________

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

MATL , 22 19 바이트

tZ"ibpyn&Z@(TT35&Ya

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

3 바이트를 저장해 준 @LuisMendo에게 감사드립니다. 이제 @flawr의 답변 과 동일한 바이트 수를 가지지 만 어쨌든 게시하기에는 충분히 다릅니다. 높은 수준의 아고 리듬 개요 :

 Z"                  % Create n x m matrix of spaces
           (         % Index into this matrix:
   i                 %  The alphabet vermicelli (explicit input)
        &Z@          %  at a random locations (randperm), which are
      yn             %   length(S) numbers, ranging
t   bp               %   from 1 to n*m
            TT35&Ya  % And finally add a border

루비 , 121 바이트

보울을 생성하고 보울 내 모든 공간의 인덱스를 쿼리하고 문자열 크기와 동일한 수의 공간을 샘플링하여 채 웁니다. sample정렬 된 목록을 반환하지 않으므로 셔플 링 할 필요가 없습니다. 9*m*n(거의 확실하게 범위를 벗어난) 까지 인덱스를 검색 하면 여전히 모든 공백을 얻을 수 있으며보다 1 바이트 더 짧습니다 r.size.

->s,m,n{r=[t=?@*(n+2),*["@#{' '*n}@"]*m,t]*$/;i=-1;(0..9*m*n).select{|j|r[j]==' '}.sample(s.size).map{|j|r[j]=s[i+=1]};r}

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

레드 , 120 116 114 112 바이트

@Kevin Cruijssen 덕분에 -2 바이트!

func[s m n][random pad s m * n insert/dup t: copy"00"0 n
print t loop m[print rejoin[0 take/part s n 0]]print t]

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

펄 6 , 74 67 바이트

Jo King 덕분에 -5 바이트

{0 X~0 x$^n,|comb($n,[~] $^s.comb[pick *,^$^m*$n]X//' '),0 x$n X~0}

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

설명

{                                                                 }
                                         ^$^m*$n  # Range 0 .. M*N-1
                                  pick *,  # Shuffle
                         $^s.comb  # Split S into chars
                                 [              ]  # Pick shuffled elements
                                                 X//' '  # undef to space
                     [~]  # Join
             # Split into n-character strings
             comb($n,                                  )
            |  # Flatten
     # Add top and bottom of bowl
     0 x$^n,                                            ,0 x$n
 # Add left and right of bowl
 0 X~                                                          X~0

펄 5 -lF , 99 97 바이트

@NahuelFouilleul의 -2 바이트 제공

%k=map{$_=>$F[$_]||$"}0..($m=<>)*($n=<>)-1;say+($p='#'x($n+1)),map"#
#"x!($i++%$n).$_,values%k,$p

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

k4, 32 28 바이트

{4{|+x,'"#"}/y#a?(a:-*/y)$x}

편집 : Galen Ivanov에게 -4 감사합니다!

처럼 호출

f["hey";3 3]

설명:

                 (a:-*/y)    / neg product of y and assign to a 
                         $x  / left pad x so we have char vector the length of the inner area
               a?            / take `a` random drawings. if a is negative, draw with no duplicates/replacements
             y#              / reshape to y's dimensions
 4{        }/                / do {} 4 times 
   |+x,'"#"                  / append "#" along right-side of x then transpose (+) and reverse (|)

자바 (JDK) , (180) 178 바이트

하나의 추가 수입품이 아닙니다 :

(y,m,n)->{for(m*=n;y.length()<m;y+=" ");var s="";for(;m-->0;y=s)for(var c:y.split(s=""))s=Math.random()<.5?s+c:c+s;s="#".repeat(n);return(s+y+s).replaceAll(".{"+n+"}","\n#$0#");}

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

이것을 골라내는 것은 상당히 힘들었습니다. 특히 Collections.shuffle () / Arrays 메서드와 관련된 가져 오기가 너무 받아 들여서 자체 문자열 셔플 링 알고리즘을 만들어야했습니다 (아마도 효율적이거나 균일하게 분산되지 않음). 알고리즘에서 모든 위치 세트를 생성 할 수 있음 을 입증 한 Steven에게 큰 감사를드립니다 .

형식화 (설명 포함) :

(y, m, n) ->                                                   // y = yummies in the soup,
{                                                              // m = height, n = width
    for (m *= n; y.length() < m; y += " ")                     // set m to m*n and
        ;                                                      // add spaces to y to fill up
    var s = "";                                                // the rest of the soup
    for (; m-- > 0; y = s)                                     // for m*n iterations, scramble y
        for (var c : y.split(s = ""))                          // with random appends
            s = Math.random() < .5 ? s + c : c + s;
    s = "#".repeat(n);                                         // create the top/bottom of the rim
    return (s + y + s).replaceAll(".{" + n + "}", "\n#$0#"); // add all sides of the rim
};

숯 , 27 바이트

ＮθＮη↖Ｂ⁺²θ⁺²η#ＦＳ«Ｗ℅ＫＫＪ‽θ‽ηＰι

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 순서 너비, 높이, 문자열로 입력을받습니다. 설명:

ＮθＮη

너비와 높이를 입력하십시오.

↖Ｂ⁺²θ⁺²η#

그릇을 프레임.

ＦＳ«

문자열의 문자를 반복합니다.

Ｗ℅ＫＫＪ‽θ‽η

빈 자리가 발견 될 때까지 그릇의 임의의 위치로 이동하십시오.

Ｐι

커서를 움직이지 않고 현재 문자를 인쇄합니다.

Japt -R , 21 18 바이트

úV*W ö¬òW ²Ô²û2W+2

시도 해봐

úV*W ö¬òW ²Ô²û2W+2     :Implicit input of string U=S and integers V=M & W=N
úV*W                   :Right pad U with spaces to length V*W
     ö¬                :Random permutation
       òW              :Split to array of strings of length W
          ²            :Push 2
           Ô           :Reverse
            ²          :Push 2
             û2W+2     :Centre pad each element with "2" to length W+2
                       :Implicit output, joined with newlines

MATL , 29 27 19 바이트

pZ@iy~hw)1GeTT35&Ya

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

-8 바이트를위한 @LuisMendo에게 감사합니다!

설명 : p수프 픽셀 수를 계산합니다. 그런 다음 Z@수프 픽셀 수의 임의 순열을 생성합니다. iy~h충분한 공백이 추가 된 입력 문자열 인 인덱스로 이것을 사용합니다 . w)둘을 교환하고 하나를 다른 것으로 색인합니다. 그런 다음 1Ge도형을 원하는 사각형으로 모양을 #바꾸고을 사용하여 채 웁니다 TT35&Ya.

T-SQL 2017, 232 바이트

이 온라인 테스트는 다른 문자를 사용하는 이전 버전의 sql-server입니다. 더 짧은 버전을 게시했습니다.

골프 :

DECLARE @ varchar(max)=''SELECT top 999 @+=substring(@i,number+1,1)FROM spt_values
WHERE type='P'and number<@a*@b
ORDER BY newid()WHILE-@b<1SELECT @=stuff(@+' ',@b*@a+1,0,'#
#'),@b-=1PRINT stuff(replicate('#',2+2*@a),2+@a,0,trim(@))

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

언 골프 드 :

DECLARE @ varchar(max)=''

SELECT top 999 @+=substring(@i,number+1,1)
FROM spt_values
WHERE type='P'and number<@a*@b
ORDER BY newid()

WHILE-@b<1
SELECT @=stuff(@+' ',@b*@a+1,0,'#
#'),@b-=1
PRINT stuff(replicate('#',2+2*@a),2+@a,0,trim(@))

C (연타) , 169 (164) 162 160 바이트

i,b;f(n,m,s)char*s;{char*a,o[b=i=-~++n*(m+=3)];for(srand(time(a=o));--i;)*a++=i%m?-~i%m<3|i<m|i>m*n?35:32:10;for(*a=0;*s;*a=*a-32?*a:*s++)a=o+rand()%b;puts(o);}

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

-2 a = o in time () call // for (srand (time (a = o)); ...

7 개의 @ceilingcat 제안을 저장하여 문자열 o에-~ variable 및 자동 스토리지를 사용하고 여러 가지 개선 사항을 적용했습니다.

데 고프 :

char*a,// pointer for set operations 
*o=malloc(b=i=(m+=3)*(n+=2));  => o[b=i=(m+=3)*-~++n]
// before allocating for the whole bowl as a char array
// increments m by 3 (2 for rims and 1 for '\n') and n by one but allocates for 2(rims)
// and assigns bowl size to i and b.
srand(time(0));// seeds rand function 
for(// loop to make empty bowl 
a=o;// using pointer as iterator
 --i ;)//  i decremented as a counter

 *a=// sets every char to..
 i%m?// if(not) over right side of bowl (m+3)
   -~i%m<3|i<m|i>m*n-m?35// if on rim '#'//-~i == (i+1)
   :32 // else ' ' 
  :10;// i%m==0

for(*a=0;// before loop terminates bowl with \0
 *s;// for every letters(exit on '\n')
 *a=*a-32?*a:*s++)
 // puts letter if bowl at a is a space and
 // go to next letter

 a=o+rand()%b; 
 // sets a to o offsetted by random

puts(o);// prints bowl 

아이콘 , 136 133 131 118 바이트

procedure f(s,n,m)
s||:=repl(" ",m*n-*s)
!s:=:?s&\z
write(t:=repl(0,m+2))
write(0,s[1+(0to n)*m+:m],0)&\z
write(t)
end

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

젤리 , 16 바이트

P⁶ẋaẊs⁸ṪṾ€«”~ZƊ⁺

[M, N]왼쪽에 정수 목록 ()과 문자 목록 ()을 허용하는 2 진 링크 S는 오른쪽에 문자 목록, 행을 표시합니다. 물결표 문자 ( ~)를 테두리로 사용합니다 .

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

가능한 모든 출력은 0 Ẋ의 문자 목록을 섞기 때문에 0이 아닌 확률 로 나타납니다.S적절한 수의 공백과 함께 .

이 코드 Ṿ€«”~ZƊ⁺는 0과 같은 정수를 사용하는 전체 프로그램이 채택 해야하는 개행과 결합해야 할 것으로 생각되는 바이트를 저장합니다 (예 : P⁶ẋaẊs⁸Ṫ;€0ZUƊ4¡Y또는 P⁶ẋaẊs⁸Ṫj@€Ø0Z$⁺Y). 더 많이 절약 할 수있는 방법이 있을까요?