목표 : 입력 문자열을 사인파 형태로 인쇄하는 프로그램이나 함수를 작성하십시오.

ASCII 정현파

정현파의 한주기는 다음과 같습니다.

         .......                                 
      ...       ...                              
    ..             ..                            
   .                 .                           
  .                   .                          
 .                     .                         
.                       .                       .
                         .                     . 
                          .                   .  
                           .                 .   
                            ..             ..    
                              ...       ...      
                                 .......         

각 열에는 정확히 하나의 점이 있습니다.

• 입력 문자열의 각 문자는 왼쪽에서 오른쪽으로 위 모양의 점을 대체합니다.
• 입력의 공백은 점 대신 일반 문자처럼 출력되어야합니다.
• 시작 문자는 위 그림에서 가장 왼쪽 점에 해당합니다.
• 이것은 단 하나의 기간이며, 입력은 위의 도트 수보다 길 수 있습니다.

입력

• 입력은 ASCII 10 진수 32 (공백)와 ASCII 10 진수 126 (Tilde ~) 사이의 문자 만 포함하는 ASCII 문자열입니다.
• 입력은 항상 한 줄만입니다 (줄 바꿈 없음).
• STDIN, 함수 매개 변수, 명령 행 인수 또는 이와 유사한 것을 통해 입력 할 수 있습니다.

산출

• 주어진 테스트 사례에서와 동일한 방식으로 출력물을 인쇄해야합니다.
• 후행 공백이있는 행의 길이가 가장 긴 행 (마지막 문자가있는 행)의 길이를 초과하지 않는 한 행의 후행 공백이 허용됩니다.
• 선행 / 트레일 라인이 허용되지 않습니다.

테스트 사례

• 입력: .................................................

산출:

         .......                                 
      ...       ...                              
    ..             ..                            
   .                 .                           
  .                   .                          
 .                     .                         
.                       .                       .
                         .                     . 
                          .                   .  
                           .                 .   
                            ..             ..    
                              ...       ...      
                                 .......         

• 입력: Programming Puzzles & Code Golf Stack Exchange is a question and answer site for programming puzzle enthusiasts and code golfers. It's 100% free, no registration required.

산출:

         ng Puzz                                         ion and                                         siasts                                          stratio           
      mmi       les                                   est        an                                   thu       and                                   egi       n r        
    ra              &                               qu             sw                               en              c                                r             eq      
   g                                                                 e                                               o                             o                 u     
  o                   C                           a                   r                           e                   d                           n                   i    
 r                     o                                                                         l                     e                                               r   
P                       d                       s                       s                       z                                               ,                       e  
                         e                     i                         i                     z                         g                     e                         d 
                                                                          t                   u                           o                   e                           .
                           G                 e                             e                 p                             l                 r                             
                            ol             ng                                f             g                                fe              f                              
                              f S       cha                                   or        min                                   rs.       00%                                
                                 tack Ex                                         program                                          It's 1                                   

• 입력: Short text.

산출:

         t.
      tex  
    t      
   r       
  o        
 h         
S          

• 입력: The quick brown fox jumps over the lazy dog

산출:

          brown                            
      ick       fox                        
    qu              j                      
                     u                     
  e                   m                    
 h                     p                   
T                       s                  

                          o                
                           v               
                            er             
                               th       dog
                                 e lazy    

채점

이것은 code-golf 이므로 바이트 단위의 가장 짧은 프로그램이나 함수가 이깁니다.

Pyth, 59 바이트 (57 자)

Xjb.sC.>V+R*12\ Xz\ C9*+-L12K+JsM._+6jC\཈2tP_JKlz]*dlzC9d

데모.

이진 조회 테이블은 내부 ཈에 인코딩되어 값이 3912입니다.이 값은 이진으로 변환되어을 제공 [1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0]합니다. 이것은 연속 높이의 차이로 취급됩니다. 6을 접두사로하여 모든 접두사를 형성하고 각각을 그 합에 매핑하면 웨이브의 1/4이 생성됩니다.

sM._+6jC\཈2[6, 7, 8, 9, 10, 10, 11, 11, 11, 12, 12, 12, 12]위에서 설명한대로 평가합니다 . 그런 다음 코드는이 문자열의 뒷면에 연결되어 웨이브의 전반부를 형성 한 다음 12에서 빼서 전체 웨이브를 제공합니다.

그런 다음 각 입력 문자의 줄 다음에 12 개의 공백을 만듭니다. 이 선은 해당 위치에 해당하는 파고 매개 변수에 의해 오른쪽으로 회전 한 다음 줄이 바뀌어 줄 바꿈됩니다.

그런 다음 앞뒤 빈 줄을 제거합니다. 그러나 입력에서 공백이있는 선행 또는 후행 빈 줄을 제거 할 수 없습니다. 입력의 공백을 탭 ( C9) 으로 바꾸고 입력에 없는 공백을 제거하고 탭을 공백으로 다시 돌려서 구현합니다.

파이썬 2, 156 바이트

l=map(int,"654322111%08d1122345"%1);l+=[12-c for c in l]
def f(t):
 h=len(t);o=bytearray(' '*h+'\n')*13;i=0
 for c in t:o[i-~h*l[i%48]]=c;i+=1
 print o[:-1]

설명

• 전체 코드는 단순히 공백 블록 ( o)을 만들고 올바른 공백을 입력 문자로 바꿉니다 t.

• 변수 l는 위에서 오프셋 목록을 저장합니다. 의 nth 문자가 t온라인이어야합니다 l[n].

• 바이트 배열 o은 파이썬에서 변경할 수 없기 때문에 변경 가능한 문자열로 사용됩니다.

• -~h과 동일 h+1하지만 괄호를 필요로하지 않기 때문에 공간을 절약 할 수 있습니다.

자바, 219 209 199 바이트

void p(char[]s){int r=6,c;String t="";for(;r>-7;r--,t+='\n')for(c=0;c<s.length;c++)t+=(s(c%48)==r?s[c]:' ');System.out.println(t);}int s(int a){return a<4?a:a<6?4:a<9?5:a<15?6:a<24?s(24-a):-s(a-24);}

나는 여전히 여기 초보자이며 하위 기능을 도입하는 규칙을 준수하기를 희망합니다 (물론이 함수의 바이트가 계산되는 경우). 그렇지 않은 경우 sin함수를 영리한 배열 조회로 변환하려고합니다 ...

public class SinusText
{
    public static void main(String[] args)
    {
        SinusText s = new SinusText();
        s.p(".................................................".toCharArray());
        s.p("Programming Puzzles & Code Golf Stack Exchange is a question and answer site for programming puzzle enthusiasts and code golfers. It's 100% free, no registration required.".toCharArray());
        s.p("Short text.".toCharArray());
        s.p("The quick brown fox jumps over the lazy dog".toCharArray());
    }
    void p(char[]s){int r=6,c;String t="";for(;r>-7;r--,t+='\n')for(c=0;c<s.length;c++)t+=(s(c%48)==r?s[c]:' ');System.out.println(t);}int s(int a){return a<4?a:a<6?4:a<9?5:a<15?6:a<24?s(24-a):-s(a-24);}
}

펄, 222 바이트

$n[$_%13].=substr$l[$_/13],$_%13,1for 0..13*(@l=map{(map{sprintf"%013b",$_}@t=(64,128,256,512,(1024)x2,(2048)x3),(4096)x7,reverse@u=(32,16,8,4,4,2,2,2),(1)x7,(reverse@u),@t)[$-++%48]=~s/./$&?$_:$"/egr}<>=~/./g);$,=$/;say@n

에 필요 -E하며 say, 이진수로 캐스트 된 정수로 위치를 저장하며 배열의 뒤집기는 바이트 단위로는 그리 효율적이지 않을 수 있습니다. 또한 절약 할 것이 많이 있다고 확신하므로 계속 파고 엎드 리도록하겠습니다.

출력 예 :

$perl -E '$n[$_%13].=substr$l[$_/13],$_%13,1for 0..13*(@l=map{(map{sprintf"%013b",$_}@t=(64,128,256,512,(1024)x2,(2048)x3),(4096)x7,reverse@u=(32,16,8,4,4,2,2,2),(1)x7,(reverse@u),@t)[$-++%48]=~s/./$&?$_:$"/egr}<>=~/./g);$,=$/;say@n' <<< '.................................................'
         .......                                 
      ...       ...                              
    ..             ..                            
   .                 .                           
  .                   .                          
 .                     .                         
.                       .                       .
                         .                     . 
                          .                   .  
                           .                 .   
                            ..             ..    
                              ...       ...      
                                 .......         

$perl -E '$n[$_%13].=substr$l[$_/13],$_%13,1for 0..13*(@l=map{(map{sprintf"%013b",$_}@t=(64,128,256,512,(1024)x2,(2048)x3),(4096)x7,reverse@u=(32,16,8,4,4,2,2,2),(1)x7,(reverse@u),@t)[$-++%48]=~s/./$&?$_:$"/egr}<>=~/./g);$,=$/;say@n' <<< 'Programming Puzzles & Code Golf Stack Exchange is a question and answer site for programming puzzle enthusiasts and code golfers. It'\''s 100% free, no registration required.'
         ng Puzz                                         ion and                                         siasts                                          stratio           
      mmi       les                                   est        an                                   thu       and                                   egi       n r        
    ra              &                               qu             sw                               en              c                                r             eq      
   g                                                                 e                                               o                             o                 u     
  o                   C                           a                   r                           e                   d                           n                   i    
 r                     o                                                                         l                     e                                               r   
P                       d                       s                       s                       z                                               ,                       e  
                         e                     i                         i                     z                         g                     e                         d 
                                                                          t                   u                           o                   e                           .
                           G                 e                             e                 p                             l                 r                             
                            ol             ng                                f             g                                fe              f                              
                              f S       cha                                   or        min                                   rs.       00%                                
                                 tack Ex                                         program                                          It's 1                                   

자바 스크립트, 251 243 224 220 217

정말 간단한 구현 : 문자열에서 문자를 사용하여 웨이브에서 각 문자의 y 위치를 나타냅니다 (로 오프셋 됨 a, ASCII 코드 97 임). 그런 다음 가능한 모든 행을 반복합니다. 현재 행의 y 값이 웨이브의 y 위치와 동일하면 문자열에서 문자를 씁니다. 또한 행이 완전히 비어있는 경우 행을 제거하기위한 정리도 있습니다.

alert()고정 폭 글꼴을 사용하지 않는 경우 창 에 출력이 불안정하게 표시됩니다 console.log(). 출력이 올바른지 확인하도록 변경할 수 있습니다 .

s=prompt(o=[])
for(y=i=0;y<13;++y){o[i]=""
for(x=0;x<s.length;++x)o[i]+=y=="gfedccbbbaaaaaaabbbccdefghijkklllmmmmmmmlllkkjih".charCodeAt(x%48)-97?s[x]:" "
if(o[i++].trim().length<1)o.splice(--i,1)}
alert(o.join("\n"))

EDIT1 : ++및 --존재한다.

EDIT2 : 빈 줄 제거는 이제 나머지와 같은 루프에서 수행되어 17자를 저장합니다. 추가 2자를 위해 대괄호도 필요하지 않았습니다.

EDIT3 : 파형을 변수로 선언 할 필요가 없으므로 4자를 저장합니다.

EDIT4 : 주석에서 Dom Hastings가 지적한 것처럼 바이트 수에는 캐리지 리턴과 줄 바꿈 문자가 포함되어 캐리지 리턴을 제외하도록 모든 개정판의 바이트 수가 업데이트되었습니다.

EDIT5 : Dom Hastings가 3 바이트를 절약했습니다. o.splice빈 줄을 제거하지 못하므로 (적어도 적어도) 수정 프로그램을 구현하지 않았습니다 .

Matlab, 133 , 130 바이트

하나의 라이너 :

s=input('');y=ceil(5.6*sin(0:pi/24:pi-.1).^.9);l=[-y y]+7;n=numel(s);t=repmat(' ',13,n);for k=1:n;t(l(mod(k-1,48)+1),k)=s(k);end;t

그리고 확장 된 버전 :

function f(s)
    y=ceil(5.6*sin(0:pi/24:pi-.1).^.9);l=[-y y]+7;  %// calculate the line number for each column position
    n=numel(s);                                     %// number of character in input
    t=repmat(' ',13,n);                             %// Create a blank canvas of whitespace characters
    for k=1:n
        t(l(mod(k-1,48)+1),k)=s(k);                 %// place each input character where it should be
    end
    t                                               %// force the output display

하나의 라이너는 콘솔 ( stdin) 에서 입력을받으며 130 바이트입니다. 확장 버전은 콘솔 입력을 함수 정의 (+1 바이트)로 대체하지만 루프에서 테스트 케이스에 사용하기에 훨씬 더 편합니다.

기술:

각 문자의 줄 색인은 반주기 동안 계산 된 다음 전체주기를 갖도록 미러링 및 연결됩니다.
공백 문자의 공백 배경 (입력 문자열과 길이가 동일합니다. 각 문자를 해당 줄의 위치에 따라 배치합니다. 입력 문자열이 한 기간보다 길면 mod(모듈러스) 연산자는 t 라인 번호를 요청할 때 경계를 벗어납니다.

테스트 사례 :

함수 버전을 아래 textsine.m경로에 저장 한 후 다음을 실행하십시오.

s = {'.................................................';...
    'Programming Puzzles & Code Golf Stack Exchange is a question and answer site for programming puzzle enthusiasts and code golfers. It''s 100% free, no registration required.';...
    'Short text.';...
    'The quick brown fox jumps over the lazy dog'};

for txtcase=1:4
    textsine(s{txtcase,1})
end

출력합니다 :

t =

         .......                                 
      ...       ...                              
    ..             ..                            
   .                 .                           
  .                   .                          
 .                     .                         
.                       .                       .
                         .                     . 
                          .                   .  
                           .                 .   
                            ..             ..    
                              ...       ...      
                                 .......         


t =

         ng Puzz                                         ion and                                         siasts                                          stratio           
      mmi       les                                   est        an                                   thu       and                                   egi       n r        
    ra              &                               qu             sw                               en              c                                r             eq      
   g                                                                 e                                               o                             o                 u     
  o                   C                           a                   r                           e                   d                           n                   i    
 r                     o                                                                         l                     e                                               r   
P                       d                       s                       s                       z                                               ,                       e  
                         e                     i                         i                     z                         g                     e                         d 
                                                                          t                   u                           o                   e                           .
                           G                 e                             e                 p                             l                 r                             
                            ol             ng                                f             g                                fe              f                              
                              f S       cha                                   or        min                                   rs.       00%                                
                                 tack Ex                                         program                                          It's 1                                   


t =

         t.
      tex  
    t      
   r       
  o        
 h         
S          








t =

          brown                            
      ick       fox                        
    qu              j                      
                     u                     
  e                   m                    
 h                     p                   
T                       s                  

                          o                
                           v               
                            er             
                               th       dog
                                 e lazy    

에서 입력을 사용하여 하나의 라이너 버전을 테스트하려면 stdin입력을 하나의 단일 로 입력 string해야하므로 '문자 사이에 입력을 묶어야합니다 . 예:

'Short text.'   %//   valid input
Short text.     %// INVALID input

_{Luis Mendo3 바이트를 면도 해 주셔서 감사 합니다 ;-)}

스칼라 377 자

맏물. 아마 번역 더 나은 공식 얻을 수 x에를y

(s:String)⇒s.zipWithIndex.map(t⇒(t._1,t._2,t._2%48 match{
case i if i<5⇒6-i
case 5|19⇒2
case 6|7|8|16|17|18⇒1
case i if i<16⇒0
case i if i<29⇒i%20+2
case 29|43⇒10
case 30|31|32|40|41|42⇒11
case i if i<40⇒12
case i if i>43⇒10-i%44
})).groupBy(_._3).toSeq.map{case(y,xs)⇒(""→0/:xs.sortBy(_._2)){case((p,l),(c,x,_))⇒(p+" "*(x-l-1)+c)→x}._1→y}.sortBy(_._2).map(_._1).mkString("\n")

공통 리스프, 205 바이트

(lambda(s &aux p v o)(dotimes(r 13)(setf o 0 p v v(round(*(/ 24 pi)(+(asin(-(/ r 6)1))pi))))(when p(map()(lambda(c)(princ(if(some(lambda(k)(<= p(mod k 48)(1- v)))`(,o,(- 23 o)))c" "))(incf o))s)(terpri))))

테스트

http://pastebin.com/raw.php?i=zZ520FTU를 참조 하십시오

비고

역 사인 함수를 사용하여 인쇄해야하는 문자열의 인덱스를 계산하여 출력을 한 줄씩 인쇄하십시오 asin. 출력은 문제의 예상 입력과 정확히 일치하지 않지만 OP는 예제 출력이 실제 사인이 아님을 인정하기 때문에 괜찮습니다. 최소한 각 열에 대해 하나의 문자 만 작성하십시오.

파이썬 2, 172 바이트

이것은 Alex L의 대답 만큼 좋지는 않지만 꽤 가깝습니다. 표준 입력에서 입력을 가져와 .py파일 에서 가장 잘 작동 합니다.

l=map(int,bin(9960000)[2:]);l+=[-c for c in l];s=6;o=[];i=9
for c in raw_input():b=[' ']*13;b[s]=c;o+=[b];s+=l[i%48];i+=1
print''.join(sum(zip(*o+['\n'*13])[::-1],())[:-1])

파이썬에서 행렬의 전치가이므로 전치 된 출력 (각 열은 행)을 빌드 한 다음 결과를 전치하기로 결정했습니다 map(*m).

• l: 9960000( "0b"from 을 잘라낸 후) 의 이진 표현은 bin입니다 100101111111101001000000. 이것은 각 열의 사인파의 "단계"이며 가장 낮은 지점의 마지막 문자부터 시작합니다. 나는이 목록을 복사하고, 각 숫자를 부정하고, 그 함수의 파생적인 형태를 형성하기 위해 자신의 끝에 붙입니다.
• s: 다음 문자가 삽입되는 행 (조옮김 열)을 추적하는 변수입니다.
• o: 최종 출력, 조옮김
• i: 사인파주기를 추적합니다. l약간 이동되었으므로 9에서 시작합니다 .

에서 for루프, 내가 13 개 공간 (내가 bytearrays하지만 문자의 목록은 짧은 인쇄 문이 판명를 사용했다)의 목록을 생성 한 후 대체 s입력 문자 번째 문자. 추가] b의 끝 부분에 o적절한 단계 추가 s및 증가를 i.

나는 그 print진술이 다음처럼 간단 하길 바랐 \n'.join(*zip(o))지만 그런 행운은 없었다. zip(*o+['\n'*13])[::-1]줄 바꿈 열을 추가 한 다음 전체 항목을 반대로 바꾸고 (반전없이 사인파가 거꾸로 됨) sum(...,())튜플을 하나의 튜플 문자로 ''.join(...)연결 한 다음 문자 를 연결하여 인쇄합니다.

내가 시도한 다른 것은 12 자의 공백 배열을 만들고 새 문자를 적절한 위치에 삽입하고 l+=[-c for c in l];일종의 곱셈 1과 -1로 인덱싱 한 결과로 일종의 수학으로 대체 l했지만 아무것도 나올 수 없었습니다. 결국 더 짧아졌습니다.

Mathematica, 131 바이트

i=[input string];c=Characters@i;l=Length@c;StringJoin@Riffle[StringJoin@@@SparseArray[Table[{7-Round[6 Sin[.13(x-1)]],x},{x,l}]->c,{13,l}," "],"\n"]

의 3 개를 포함하여 131 자입니다 i=foo;. 그것은 입력을 취하는 합리적인 방법으로 보였다. 나는 그것을 c획 의 정의에 똑바로 넣고 저장할 수 있었지만 불공평하다고 느꼈다.

거의 직관적이며 거의 읽을 수 있습니다. 문자열을 문자 목록으로 분할 한 다음 해당 문자를 결정된 위치의 희소 배열에 배치합니다 Table(문자열을 지정하지 않은 배열의 모든 지점은 공백으로 설정 됨). 라인은 개별적으로 조립 된 다음 줄 사이에 개행이 뿌려졌습니다. 마지막 StringJoin은 모두 연결합니다.

NB : 다른 솔루션과 마찬가지로, 이것은 (아름다운) 수공예가 아닌 실제 정현파를 생성하기 때문에 실제로 유효하지 않을 수 있습니다.

테스트 :

(*i=Programming Puzzles...*)
         ng Puzz                                          on and                                          iasts                                           tration          
       mi       le                                     sti       a                                      us      and                                     is        r        
     am           s                                   e           ns                                  th            c                                 eg           eq      
    r               &                               qu              we                              en               o                               r               u     
  og                  C                                               r                                               d                            o                  ir   
 r                     o                          a                                               e                    e                          n                     e  
P                       d                       s                       si                       l                       g                                               d 
                         e                     i                          t                    zz                         o                     ,                         .
                           G                                               e                  u                            lf                 ee                           
                            o               ge                               f               p                               e               r                             
                             lf           an                                  or           g                                  rs            f                              
                                St      ch                                       p      min                                     .        0%                                
                                  ack Ex                                          rogram                                          It's 10                                  
(*i=.... ...*)
         .......                                 
       ..       ..                               
     ..           ..                             
    .               .                            
  ..                 ..                          
 .                     .                         
.                       .                       .
                         ..                    . 
                           .                  .  
                            .               ..   
                             ..           ..     
                               ...      ..       
                                  ......         
(*i= Short text.*)
         t.
       ex  
      t    
    t      
  or       
 h         
S          





(*i=The quick...*)              
          brown                            
       ck       fo                         
     ui           x                        
    q               j                      
  e                  um                    
 h                     p                   
T                       s                  
                          o                
                           v               
                            e              
                             r            g
                               the      do 
                                   lazy