최근에 ;#두 가지 명령 만 있는 새로운 언어 ( "세미콜론 해시"로 발음)를 만들었습니다 .

; 누산기에 하나 추가

#누산기를 127 단위로 모듈화하면 ASCII 문자로 변환하여 줄 바꿈 없이 출력 합니다. 그런 다음 누산기를 0으로 다시 설정하십시오. 예, 127이 맞습니다.

다른 문자는 무시됩니다. 누산기에 영향을 미치지 않으며 아무 것도하지 않아야합니다.

당신의 임무는이 강력한 언어를위한 통역사를 만드는 것입니다!

전체 프로그램이거나 ;#프로그램을 입력으로 사용하고 올바른 출력을 생성 하는 기능이어야합니다 .

예

Output: Hello, World!
Program: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

Output: ;#
Program: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

Output: 2d{ (unprintable characters here; should have 4 `\000` bytes between the `d` and the `{` and 3 after the `{`)
Program: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;hafh;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;f;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;###ffh#h#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ffea;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;aa;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#au###h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;o

Output: Fizz Buzz output
Program: link below

Output: !
Program: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

피즈 버즈 최대 100

파이썬 3 , 69 68 바이트

@WheatWizard 덕분에 -1 바이트

i=0
for c in input():
 i+=c==';'
 if'#'==c:print(end=chr(i%127));i=0

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

자바 스크립트 (ES6), 76 82 80 바이트

s=>s.replace(/./g,c=>c=='#'?String.fromCharCode(a%(a=127)):(a+=(c==';'),''),a=0)

데모

let f =

s=>s.replace(/./g,c=>c=='#'?String.fromCharCode(a%(a=127)):(a+=(c==';'),''),a=0)

console.log(JSON.stringify(f(";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#")))
console.log(JSON.stringify(f(";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#")))
console.log(JSON.stringify(f(";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;hafh;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;f;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;###ffh#h#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ffea;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;aa;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#au###h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;o")))
console.log(JSON.stringify(f(";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#")))

재귀 버전, 82 77 바이트

Neil 덕분에 5 바이트 절약

이것은 Fizz Buzz 예제와 같은 큰 입력에서 충돌이 발생할 수 있습니다.

f=([c,...s],a=0)=>c?c=='#'?String.fromCharCode(a%127)+f(s):f(s,a+(c==';')):""

망막 , 336 63 67 65 66 62 59 바이트

T`;#-ÿ`¯_
;{127}|;+$

(^|¯)
¯
+T`-~`_-`[^¯]
T\`¯`

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

가상 이스케이프 구문을 사용하는 읽기 가능한 버전 :

T`;#\x01-ÿ`\x01¯_
;{127}|;+$

(^|¯)\x01\x01
¯\x02
+T`\x01-~`_\x03-\x7f`[^\x01¯]\x01
T\`¯`

TIO가 소스 코드에서 허용하지 않기 때문에 NUL 바이트를 인쇄하지 않습니다. 또한 끝에 줄 바꿈을 추가로 인쇄하지만 그렇지 않으면 할 수 없다고 생각합니다. @Leo 덕분에 후행 줄 바꿈이 억제 되었습니다 .

-273이 (!) 덕분에 바이트 @ETHproductions을 .

@ovs 덕분에 -2 바이트 .

@Neil 덕분에 -3 바이트 . 멋진 34 바이트 솔루션을 확인하십시오 .

자바 8, 100 바이트

s->{int i=0;for(byte b:s.getBytes()){if(b==59)i++;if(b==35){System.out.print((char)(i%127));i=0;}}};

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

apt , 18 바이트

®è'; %# d}'# ë ¯J

뒤에 인쇄 할 수없는 \ x7f 문자가 %#있습니다. 온라인으로 테스트하십시오!

작동 원리

®   è'; %#   d}'# ë ¯  J
mZ{Zè'; %127 d}'# ë s0,J
                         // Implicit: operate on input string
mZ{           }'#        // Split the input at '#'s, and map each item Z to
   Zè';                  //   the number of semicolons in Z,
        %127             //   mod 127,
             d           //   turned into a character.
m              '#        // Rejoin the list on '#'. At this point the Hello, World! example
                         // would be "H#e#l#l#o#,# #W#o#r#l#d#!#" plus an null byte.
                  ë      // Take every other character. Eliminates the unnecessary '#'s. 
                    ¯J   // Slice off the trailing byte (could be anything if there are
                         // semicolons after the last '#').
                         // Implicit: output result of last expression

파이썬 , 65 바이트

이것은 이 초기 답변 의 골프입니다 .

lambda t:''.join(chr(x.count(';')%127)for x in t.split('#')[:-1])

온라인으로 사용해보십시오! 파이썬 2

온라인으로 사용해보십시오! 파이썬 3

설명

이것은 ;각각에 몇 개의 s가 있는지 결정 #하고 chrmod 127을 인쇄 하는 매우 간단한 대답 [:-1]입니다. 조금 이상 할 수있는 유일한 것은입니다 . 마지막 그룹은 삭제하지 않기 때문에 삭제해야 #합니다.

예를 들어

;;#;;;;#;;;;;#;;;

로 분할됩니다

[';;',';;;;',';;;;;',';;;']

그러나 우리는 값을 인쇄 ;;;할 #후 가 없기 때문에 마지막을 원하지 않습니다 .

> <> , 35 바이트

>i:0(?;:'#'=?v';'=?0
^   [0o%'␡'l~<

온라인으로 사용해보십시오! 교체 ␡0x7F의와 함께, ^?또는 "삭제".

메인 루프

>i:0(?;:'#'=?v      
^            <

입력 문자 ( i)를 취하고 0보다 작은 지 확인합니다. 즉 EOF ( :0(), 프로그램이 ( ?;) 이면 프로그램을 종료합니다 . 그렇지 않으면 입력이 #( :'#'=)와 같은지 확인하십시오 . 그렇다면 아래로 분기하고 루프 ( ?v... ^ ... <)를 다시 시작하십시오 .

카운터 로직

              ';'=?0
              

입력이 ;( ';'=)와 같은지 확인하십시오 . 그렇다면을 누르십시오 0. 그렇지 않으면 아무것도하지 마십시오. 메인 루프가 다시 시작됩니다.

인쇄 로직

>       '#'=?v      
^   [0o%'␡'l~<

입력 문자가 #인 경우 스택에서 입력을 꺼내고 ( ~) 스택 의 멤버 수를 가져오고 l( '␡') 127 ( )을 누른 다음 모듈러스 ( %)를 가져옵니다 . 그런 다음 문자 ( o) 로 출력 하고 새 스택 ( [0)을 시작하십시오 . 이것은 카운터를 "제로"합니다. 그런 다음 루프가 다시 시작됩니다.

파이썬 3, 69 바이트

@Wheat Wizard, @Uriel 덕분에 개선되었습니다.

print(''.join(chr(s.count(';')%127)for s in input().split('#')[:-1]))

로다 , 44 39 38 바이트

@fergusq 덕분에 5 바이트 절약

{(_/`#`)|{|d|d~="[^;]",""chr #d%127}_}

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

스트림에서 입력을받는 익명 함수

다른 문자를 무시할 필요가 없으면 다음과 같이됩니다.

로다 , 20 바이트

{(_/`#`)|chr #_%127}

루비, 41 35 34 자

( 40 34 33 문자 코드 + 1 문자 명령 행 옵션)

gsub(/.*?#/){putc$&.count ?;%127}

덕분에 :

• (6 자)로 putc명시 적으로 변환 할 필요가 없음 을 제안하는 Jordan.chr
• 불필요한 괄호를 찾는 Kirill L. (1 자)

샘플 실행 :

bash-4.4$ ruby -ne 'gsub(/.*?#/){putc$&.count ?;%127}' < '2d{.;#' | od -tad1
0000000    2  etb    d  nul  nul  nul  nul    {  nul  nul  nul
          50   23  100    0    0    0    0  123    0    0    0
0000013

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

05AB1E , 16 15 14 바이트

암호:

'#¡¨ʒ';¢127%ç?

설명:

'#¡              # Split on hashtags
   ¨             # Remove the last element
    ʒ            # For each element (actually a hacky way, since this is a filter)
     ';¢         #   Count the number of occurences of ';'
        127%     #   Modulo by 127
            ç    #   Convert to char
             ?   #   Pop and print without a newline

05AB1E 인코딩을 사용합니다 . 온라인으로 사용해보십시오!

젤리 , 13 바이트

ṣ”#Ṗċ€”;%127Ọ

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

작동 원리

ṣ”#Ṗċ€”;%127Ọ  Main link. Argument: s (string)

ṣ”#            Split s at hashes.
   Ṗ           Pop; remove the last chunk.
    ċ€”;       Count the semicola in each chunk.
        %127   Take the counts modulo 127.
            Ọ  Unordinal; cast integers to characters.

MS-DOS의 x86 기계 코드-29 바이트

00000000  31 d2 b4 01 cd 21 73 01  c3 3c 3b 75 06 42 80 fa  |1....!s..<;u.B..|
00000010  7f 74 ed 3c 23 75 eb b4  02 cd 21 eb e3           |.t.<#u....!..|
0000001d

주석이 달린 어셈블리 :

bits 16
org 100h

start:
    xor dx,dx       ; reset dx (used as accumulator)
readch:
    mov ah,1
    int 21h         ; read character
    jnc semicolon
    ret             ; quit if EOF
semicolon:
    cmp al,';'      ; is it a semicolon?
    jne hash        ; if not, skip to next check
    inc dx          ; increment accumulator
    cmp dl,127      ; if we get to 127, reset it; this saves us the
    je start        ; hassle to perform the modulo when handling #
hash:
    cmp al,'#'      ; is it a hash?
    jne readch      ; if not, skip back to character read
    mov ah,2        ; print dl (it was choosen as accumulator exactly
    int 21h         ; because it's the easiest register to print)
    jmp start       ; reset the accumulator and go on reading

05AB1E , 25 21 19 바이트

Adnan 덕분에 -2 바이트

Îvy';Q+y'#Qi127%ç?0

설명:

Î                       Initialise stack with 0 and then push input
 v                      For each character
  y';Q+                 If equal to ';', then increment top of stack
       y'#Qi            If equal to '#', then
            127%        Modulo top of stack with 127
                ç       Convert to character
                 ?      Print without newline
                  0     Push a 0 to initialise the stack for the next print

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

망막 , 34 바이트

T`;#-ÿ`_
\+T`o`-_`[^]|$

온라인으로 사용해보십시오! 테스트 케이스를 포함합니다. 편집 : @MartinEnder의 도움으로 2 바이트를 저장했습니다. 참고 : 코드에 인쇄 할 수없는 코드가 포함 &#x;되어 있으며 브라우저에서 ISO-8859-1 대신 Windows-1252를 사용하므로 코드를 사용 하면 잘못된 결과가 생성됩니다. 설명 : 첫 번째 줄 입력을 정리는 : ;로 변경 \x80, #에 \x7F(때문에 TIO로 제한) 및 다른 모든이 삭제됩니다. 그런 다음 \x80다른 앞에 있지 않은 것을 볼 때마다 \x80삭제하고 다음 문자의 코드를 주기적으로 증가시킵니다. 이것은 더 이상 없을 때까지 반복 됩니다. 가독성을위한 탈출구 :\x80 문자가 남지 됩니다. 널 바이트를 지원하는 원래 코드는 기본적으로 \xFF변경되지 않는 첫 번째 행과를 제외하고 인쇄 할 수없는 바이트에서 1을 뺍니다\x7F 해진다\x00

T`;#\x00-\xFF`\x7F\x00_
\+T`\x7Eo`\x00-\x7F_`\x7F[^\x7F]|\x7F$

R, 97 90 86 84 바이트

기능 :

function(s)for(i in utf8ToInt(s)){F=F+(i==59);if(i==35){cat(intToUtf8(F%%127));F=0}}

R이 시작되면 (숫자 ) F로 정의됩니다 .FALSE0

언 골프 드 :

function (s)
    for (i in utf8ToInt(s)) {
        F = F + (i == 59)
        if (i == 35) {
            cat(intToUtf8(F%%127))
            F = 0
        }
    }

파이썬, 82 바이트

lambda t:''.join(chr(len([g for g in x if g==';'])%127)for x in t.split('#')[:-1])

일반 TeX, 156 바이트

\newcount\a\def\;{\advance\a by 1\ifnum\a=127\a=0\fi}\def\#{\message{\the\a}\a=0}\catcode`;=13\catcode35=13\let;=\;\let#=\#\loop\read16 to\>\>\iftrue\repeat

읽을 수있는

\newcount\a

\def\;{
  \advance\a by 1
  \ifnum \a=127 \a=0 \fi
}
\def\#{
  \message{\the\a}
  \a=0
}

\catcode`;=13
\catcode35=13

\let;=\;
\let#=\#

\loop
  \read16 to \> \>
  \iftrue \repeat

C (gcc) , 58 바이트

a;f(char*s){a+=*s^35?*s==59:-putchar(a%127);a=*s&&f(s+1);}

온라인으로 사용해보십시오! (힌트 : ▼ 바닥 글 을 클릭 하여 축소하십시오.)

펄, 25 바이트

$_=chr(y%;%%%127)x/#/

다음으로 실행 perl -043pe(4 바이트로 계산)perl -e 표준 ).

설명 : -043라인 종결자를 #(ASCII 043)으로 설정합니다. -p입력“줄”(실제로 # 구분 문자열)을 반복합니다. 각 "라인" y%;%%의 수를 계산합니다 ;. x/#/#로 끝나지 않는 프로그램 (예 : 세 번째 테스트 케이스)에 대해 추가 문자를 인쇄하지 않도록합니다. %127상당히 분명해야합니다. $_=일반적인 상용구입니다.

CJam, 27 바이트

0q{";#"#") 127%co0 "S/=~}%;

설명:

0                            e# Push 0
 q                           e# Push the input
  {                          e# For each character in the input:
   ";#"#                     e#   Index of character in ";#", -1 if not found
        ") 127%co0 "S/       e#   Push this string, split on spaces
                      =      e#   Array access (-1 is the last element)
                       ~     e#   Execute as CJam code. ")" increments the accumulator,
                             e#     and "127%co0" preforms modulo by 127, converts to character, pops and outputs, and then pushes 0.
                        }%   e# End for
                          ;  e# Delete the accumulator

대체 솔루션, 18 바이트

q'#/);{';e=127%c}%

설명:

q                   e# Read the whole input
 '#/                e# Split on '#'
    );              e# Delete the last element
      {             e# For each element:
       ';e=         e#   Count number of ';' in string
           127%     e#   Modulo by 127
               c    e#   Convert to character code
                }%  e# End for

F #, 79 91 93 바이트

let rec r a=function|[]->()|';'::t->r(a+1)t|'#'::t->printf"%c"(char(a%127));r 0 t|_::y->r a y

언 골프

let rec run acc = function
    | [] -> ()
    | ';'::xs ->
        run (acc + 1) xs
    | '#'::xs ->
        printf "%c" (char(acc % 127))
        run 0 xs
    | x::xs -> run acc xs

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

편집 : ';'이외의 다른 문자를 처리하고있었습니다. 같이 '#'. 유효하지 않은 문자를 무시하도록 변경했습니다.

대안

F #, 107104 바이트

let r i=
 let a=ref 0
 [for c in i do c|>function|';'->a:=!a+1|'#'->printf"%c"(!a%127|>char);a:=0|_->()]

참조 셀 사용으로 3 바이트 절약

언 골프

let run i =
    let a = ref 0;
    [for c in i do
        match c with
        | ';' -> a := !a + 1
        | '#' ->
            printf "%c" (char(!a % 127))
            a := 0
        |_->()
    ]

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

Processing.js (Khanacademy 버전), 118 바이트

var n="",a=0;for(var i=0;i<n.length;i++){if(n[i]===";"){a++;}if(n[i]==="#"){println(String.fromCharCode(a%127));a=0;}}

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

사용 된 처리 버전에 입력 방법이 없으므로 입력이 n에 배치됩니다.

미로 , 61 47 바이트

_36},)@
;    {
; 42_-
"#-  1
_ ; 72
_ ) %
"""".

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

설명

코드 실행은 왼쪽 상단에서 시작하고 첫 번째 세미콜론은 스택에서 암시 적 0을 버리고 오른쪽으로 계속합니다.

주황색

• _3636을 스택에 밀어 넣습니다. 이것은 입력과#
• } 스택의 상단을 보조 스택으로 이동
• , 스택에서 문자의 정수 값을 푸시합니다
• )스택을 증가시킵니다 (입력의 끝이면 스택을 0으로 만들고 프로그램의 흐름이 진행 @되고 종료됩니다)
• { 보조 스택의 상단을 기본 스택의 상단으로 이동
• -팝 y, 팝 x, x-y를 누릅니다. 이것은 입력을 #(ascii에서 35) 와 비교하기위한 것 입니다. 입력이 #코드 인 경우 자주색 섹션으로 계속 진행합니다 (스택의 상단이 0이기 때문에 IP가 이전 방향으로 계속 진행됨). 그렇지 않으면 녹색 섹션으로 계속 진행됩니다.

보라색

• 127 스택에 127을 밉니다
• % 팝 x, 팝 y, 푸시 x % y
• . 스택의 상단 (누적 기)을 팝하고 문자로 출력

여기에서 회색 코드는 스택의 아무것도없이 프로그램의 왼쪽 상단으로 이동합니다.

초록

• _24 스택에 24를 밀어 넣습니다
• -팝 x, 팝 y, xy를 누릅니다. (24) 간의 차이 #와 ;상기 입력 였다면 그래서 수표 ;. 그것이 ;코드 라면을 향해 계속 직진합니다 ). 그렇지 않으면 #스택의 높이를 밀어 올리는 방향으로 바뀝니다 (항상 양수, 프로그램은 다음 교차로에서 우회전하여 누산기를 증가시키는 코드를 놓치게됩니다)
• ; 스택의 상단을 버린다
• ) 묵시적 0이거나 출력 누적 기 역할을하는 이전에 증가 된 0 인 스택의 맨 위를 증가시킵니다.

여기에서 회색 코드는 누적 장치가있는 스택이있는 프로그램의 왼쪽 상단으로 이동합니다.

회색

따옴표는 _0 이 아니며 스택에 0을 넣고 스택 ;의 상단을 버립니다. 이 모든 것은 제어 흐름을 올바른 방식으로 강제하고 스택 맨 위에서 여분의 것을 버리는 코드입니다.

MATL , 29 바이트

';#'&mXz!"@o?T}vn127\c&YD]]vx

입력은 작은 따옴표로 묶인 문자열입니다.

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

FizzBuzz 프로그램은 온라인 통역사에게 너무 깁니다. 이 GIF에서 오프라인으로 작동하는 것을 참조하십시오 :

설명

누산기 값은 스택의 요소 수로 구현됩니다. 이렇게하면 누적 기 값이 스택의 단일 숫자 인 경우보다 프로그램이 느려지지만 몇 바이트는 절약됩니다.

';#'       % Push this string
&m         % Input string (implicit). Pushes row vector array of the same size with 
           % entries 1, 2 or 0 for chars equal to ';', '#' or others, respectively
Xz         % Remove zeros. Gives a column vector
!          % Transpose into a row vector
"          % For each entry
  @        %   Push current entry
  o?       %   If odd
    T      %     Push true. This increases the accumulator (number of stack elements)
  }        %   Else
    v      %     Concatenate stack into a column vector
    n      %     Number of elements
    127\   %     Modulo 127
    c      %     Convert to char
    &YD    %     Display immediately without newline
  ]        %   End
]          % End
vx         % Concatenate stack and delete. This avoids implicit display

Alice , 22 바이트

I!?';-n+?h$'@u%?'#-n$O

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

설명

우리는 ;우리가 만난 수의 단일 카운터 만 스택에 유지합니다 . 스택이 비어있는 경우 (예 : 프로그램 시작시) 이것은 내재적으로 0입니다.

I!?';-n+?h$'@u%?'#-n$O
I                      Push codepoint of next char from input
 !?                    store it on the tape and reload it right away
   ';-n+               add 1 to the counter if this char is a semicolon,
                       0 otherwise
        ?h$'           If the input char was -1 (EOF) execute the next command,
                       otherwise push its codepoint
            @          Terminate the program (or push 64)
             u         Set all bits up to the most significant as equal to 1
                       this turns 64 (1000000b) into 127 (1111111b)
              %        Compute modulo
               ?       reload the input char from the tape
                '#-n$O if it is a hash, pop the counter and print
                       the corresponding character
                       wrap back to the start of the line

이 프로그램의 더 짧지 만 종료되지 않은 버전은 여기 에서 찾을 수 있습니다 .

JS (ES6), 97 92 바이트

c=>(a=0,y="",c.split``.map(x=>x=="#"?(a%=127,y+=String.fromCharCode(a),a=0):x==";"?a++:0),y)

Shaggy의 답변 과 다른 접근법을 시도했습니다 . 오 잘

; # + , 59 바이트, 비경쟁

이 도전 후에 언어가 만들어졌습니다.

;;;;;~+++++++>~;~++++:>*(~<:-+!(<-;->(;))::<+-::!(<#>)-:-*)

온라인으로 사용해보십시오! 입력이 널 바이트로 종료됩니다.

설명

세대는 내 Generate; # code answer 와 동일 합니다. 여기서 유일한 차이점은 반복입니다.

되풀이

*(~<:-+!(<-;->(;))::<+-::!(<#>)-:-*)
*(                                *)   take input while != 0
  ~                                    swap
   <                                   read value from memory (;)
    :                                  move forward to the accumulator memory spot (AMS)
     -                                 flip Δ
      +                                subtract two accumulators into A
       !                               flip A (0 -> 1, else -> 0)
        (     (;))                     if A is nonzero, or, if A == ';'
         <                             read from AMS
          -;-                          increment
             >                         write to AMS
                  ::                   move to cell 0 (#)
                    <                  read value from memory (#)
                     +                 subtract two accumulators into A
                      -                flip Δ
                       ::              move to AMS
                         !(   )        if A == '#'
                           <           read from AMS
                            #          output mod 127, and clear
                             >         write to AMS
                               -:-     move back to initial cell

Bash + coreutils, 46 39 바이트

tr -dc \;#|sed 'y/;/1/;s/#/.ZC7%P/g'|dc

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

설명

(7 바이트 동안 Cows Quack에게 감사합니다!)

tr(필자는이를 넣어 수있는 부분은없는 문자가 제거 sed하기 때문에, 정확히 같은 bytecount가 들어 있지만, 그것은 제대로 줄 바꿈 문자를 처리하지 않습니다 sed그들을 떠나 dc만을 가진 첫번째 라인 피드에 일어나서 ?)

sed나머지는 dc프로그램을 빌드합니다 .

(긴 리터럴) ;의 문자열이 되는 문자열1

#되고 .ZC7%P이 문자열은 다음과 경우 ( 1의가 .. 무 조작에 대한 소수점입니다하지만 프로그램의 시작 부분에 있는지, 또는 다른 다음 #, 그것은 리터럴 있어요 0. 그 다음은 숫자의 길이를 소요 개조 그것은, 해당 ASCII를 인쇄합니다.)

씨, 65 64 60 바이트

(천장 고개 덕분에 -2)

c;f(char*s){for(c=0;*s;s++)c+=*s-35?*s==59:-putchar(c%127);}