(Tytuł dzięki dzięki @ChasBrown)

Piaskownica

Tło

To wyzwanie jest inspirowane pytaniem, które niedawno zamieściłem na Puzzling Stack Exchange . Jeśli jesteś zainteresowany pierwotnym pytaniem, skorzystaj z linku. Jeśli nie, to nie zanudzę cię szczegółami tutaj.

Fakty

Każdy standardowy drukowany znak ASCII ma wartość dziesiętną od 32 do 126 włącznie. Można je przekonwertować na odpowiadające im liczby binarne z zakresu od 100000 do 1111110 włącznie. Gdy zsumujesz bity tych liczb binarnych, zawsze uzyskasz liczbę całkowitą od 1 do 6 włącznie.

Wyzwanie

Biorąc pod uwagę liczbę całkowitą od 1 do 6 włącznie jako dane wejściowe, napisz program lub funkcję, która wyświetli w dowolnym akceptowalnym formacie wszystkie standardowe znaki ASCII do wydruku, w których suma bitów ich wartości binarnej jest równa całkowitej liczbie wejściowej.

Przykłady / przypadki testowe

1 -> ' @'
2 -> '!"$(0ABDHP`'
3 -> '#%&)*,1248CEFIJLQRTXabdhp'
4 -> ''+-.3569:<GKMNSUVYZ\cefijlqrtx'
5 -> '/7;=>OW[]^gkmnsuvyz|'
6 -> '?_ow{}~'

Implementacja referencji bez golfisty w Pythonie jest dostępna tutaj (TIO) .

Zasady

1. Załóżmy, że wejście zawsze będzie liczbą całkowitą (lub ciągiem reprezentującym liczbę całkowitą) od 1 do 6 włącznie.
2. Możesz napisać program do wyświetlania wyników lub funkcję do ich zwrócenia.
3. Dane wyjściowe mogą być w dowolnym rozsądnym formacie, ale muszą być spójne dla wszystkich danych wejściowych . Jeśli zdecydujesz się wyprowadzać cytowany ciąg, wówczas dla wszystkich danych wejściowych należy zastosować ten sam typ cudzysłowów.
4. Standardowe luki zabronione jak zwykle.
5. To jest kod golfowy, więc wygrywa najkrótszy kod w każdym języku.

Zestaw 8088, IBM PC DOS, 35 30 29 bajtów

Kod maszynowy:

be81 00ad 8afc b330 b108 d0c8 12dd e2fa 3afb 7504 b40e cd10 fec0 79ea c3

Wymienianie kolejno:

BE 0081     MOV  SI, 081H   ; SI = memory address of command line string
AD          LODSW           ; AL = start ASCII value (init to 20H from space on cmd line)
8A FC       MOV  BH, AH     ; BH = target number of bits (in ASCII)
        CHR_LOOP:
B3 30       MOV  BL, '0'    ; BL = counter of bits, reset to ASCII zero
B1 08       MOV  CL, 8      ; loop through 8 bits of AL
        BIT_LOOP:
D0 C8       ROL  AL, 1      ; rotate LSB of AL into CF
12 DD       ADC  BL, CH     ; add CF to BL (CH is always 0) 
E2 FA       LOOP BIT_LOOP   ; loop to next bit
3A FB       CMP  BH, BL     ; is current char the target number of bits?
75 04       JNE  NO_DISP    ; if not, do not display
B4 0E       MOV  AH, 0EH    ; BIOS write char to screen function
CD 10       INT  10H        ; display ASCII char in AL (current char in loop)
        NO_DISP: 
FE C0       INC  AL         ; increment char to next ASCII value
79 EA       JNS  CHR_LOOP   ; if char <= 127, keep looping
C3          RET             ; return to DOS

Samodzielny program wykonywalny DOS na PC, numer wejściowy z wiersza poleceń. Dane wyjściowe są wyświetlane w oknie konsoli.

Pobierz i przetestuj ABCT.COM (AsciiBitCounT).

Zespół CP-1610 ( Intellivision ), 20 DECLE ¹ = 25 bajtów

Pobiera $N$ w R0 i wskaźnik do bufora wyjściowego w R4 . Zapisuje wszystkie pasujące znaki w buforze i oznacza koniec wyników wartością NUL .

                ROMW    10              ; use 10-bit ROM width
                ORG     $4800           ; map this program at $4800

                ;; ------------------------------------------------------------- ;;
                ;;  test code                                                    ;;
                ;; ------------------------------------------------------------- ;;
4800            EIS                     ; enable interrupts

4801            MVII    #$103,    R4    ; set the output buffer at $103 (8-bit RAM)
4803            MVII    #2,       R0    ; test with N = 2
4805            CALL    getChars        ; invoke our routine

4808            MVII    #$103,    R4    ; R4 = pointer into the output buffer
480A            MVII    #$215,    R5    ; R5 = backtab pointer

480C  draw      MVI@    R4,       R0    ; read R0 from the buffer
480D            SLL     R0,       2     ; R0 *= 8
480E            SLL     R0
480F            BEQ     done            ; stop if it's zero

4811            ADDI    #7-256,   R0    ; draw it in white
4815            MVO@    R0,       R5

4816            B       draw            ; go on with the next entry

4818  done      DECR    R7              ; loop forever

                ;; ------------------------------------------------------------- ;;
                ;;  routine                                                      ;;
                ;; ------------------------------------------------------------- ;;
      getChars  PROC

4819            MVII    #32,      R1    ; start with R1 = 32

481B  @loop     MOVR    R1,       R3    ; copy R1 to R3
481C            CLRR    R2              ; clear R2
481D            SETC                    ; start with the carry set

481E  @count    ADCR    R2              ; add the carry to R2
481F            SARC    R3              ; shift R3 to the right (the least
                                        ; significant bit is put in the carry)
4820            BNEQ    @count          ; loop if R3 is not zero

4822            CMPR    R2,       R0    ; if R2 is equal to R0 ...
4823            BNEQ    @next

4825            MVO@    R1,       R4    ; ... write R1 to the output buffer

4826  @next     INCR    R1              ; advance to the next character
4827            CMPI    #127,     R1    ; and loop until 127 is reached
4829            BLT     @loop

482B            MVO@    R3,       R4    ; write NUL to mark the end of the output

482C            JR      R5              ; return

                ENDP

Wyjście dla N = 2

Uwaga: Nawias otwierający przypomina czcionkę otwierającą nawias kwadratowy w czcionce Intellivision. Obie postacie są jednak różne.

^{zrzut ekranu z jzIntv}

_{1. Kod operacyjny CP-1610 jest kodowany za pomocą 10-bitowej wartości, zwanej „DECLE”. Ta procedura ma długość 20 DECLE, zaczynając od 4819 USD, a kończąc na 482 USD (w zestawie).}

Python 2 , 62 bajty

lambda n:[chr(i)for i in range(32,127)if bin(i).count('1')==n]

Wypróbuj online!

05AB1E , 8 bajtów

žQʒÇbSOQ

Wypróbuj online!

Wyjaśnienie

žQ        # push the printable ascii characters
  ʒ       # filter, keep elements whose
   Ç      # character code
    b     # converted to binary
     SO   # has a digit sum
       Q  # equal to the input

Perl 6 , 41 34 bajtów

{chrs grep *.base(2)%9==$_,^95+32}

Wypróbuj online!

Anonimowy blok kodu, który pobiera liczbę i zwraca ciąg poprawnych znaków.

Wyjaśnienie:

{                                }  # Anonymous code block taking a number
      grep                ,^95+32   # Filter from the range 32 to 126
           *.base(2)                # Where the binary of the digit
                    %9                # When parsed as a decimal modulo 9
                      ==$_            # Is equal to the input
 chrs                               # And convert the list of numbers to a string

Można udowodnić, że dla dowolnej liczby $n$ bazie $b$ , $n \equiv \text{digitsum}(n) \pmod{b-1}$ (wskazówka: pamiętaj, że$b \pmod{b-1}=1$ ).

Możemy użyć tego, aby uzyskać cyfrę naszej liczby binarnej, parsując ją jako liczbę dziesiętną i modulując przez 9, co jest ważne, ponieważ zakres liczb, których używamy, ma mniej niż 9 bitów. Pomaga to automatyczne rzutowanie ciągu binarnego przez Perl 6 na liczbę dziesiętną, gdy jest używane w kontekście numerycznym.

Galaretka , 8 bajtów

ØṖOB§=ʋƇ

Wypróbuj online!

ØṖ       printable ascii character list
  OB     to binary
    §    popcount
     =   equal to input?
      ʋƇ filter (implicitly output)

JavaScript (Node.js) , 60 bajtów

Używanie sztuczki modulo Jo Kinga

n=>(g=x=>x>>7?'':Buffer(x.toString(2)%9-n?0:[x])+g(x+1))(32)

Wypróbuj online!

JavaScript (Node.js) ,  70  69 bajtów

n=>(g=x=>x>>7?'':Buffer((h=x=>x&&x%2+h(x>>1))(x)-n?0:[x])+g(x+1))(32)

Wypróbuj online!

Skomentował

n => (              // n = input
  g = x =>          // g = recursive function, taking a byte x
    x >> 7 ?        //   if x = 128:
      ''            //     stop recursion and return an empty string
    :               //   else:
      Buffer(       //     create a Buffer:
        (h = x =>   //       h = recursive function taking a byte x
          x &&      //         stop if x = 0
          x % 2 +   //         otherwise, add the least significant bit
          h(x >> 1) //         and do a recursive call with floor(x / 2)
        )(x)        //       initial call to h
        - n ?       //       if the result is not equal to n:
          0         //         create an empty Buffer (coerced to an empty string)
        :           //       else:
          [x]       //         create a Buffer consisting of the character x
      ) +           //     end of Buffer()
      g(x + 1)      //     append the result of a recursive call to g with x + 1
)(32)               // initial call to g with x = 32

Brachylog , 7 bajtów

∈Ṭ&ạhḃ+

Wypróbuj online!

Predykat, który działa jak generator , pobiera dane wejściowe przez zmienną wyjściową i generuje każdy znak poprzez zmienną wejściową. Ponieważ Brachylog.

           The input variable (which is an element of the output)
∈          is an element of
 Ṭ         the string containing every printable ASCII character
  &        and the input
   ạh      converted to a codepoint
     ḃ     converted to a list of binary digits
      +    sums to
           the output variable (which is the input).

Japt , 9 bajtów

;EƶXc¤è1

Wypróbuj lub przetestuj wszystkie dane wejściowe

;EƶXc¤è1     :Implicit input of integer U
;E            :Printable ASCII
  Æ           :Filter each X
   ¶          :Test U for equality with
    Xc        :  Character code of X
      ¤       :  To binary string
       è1     :  Count the 1s

Excel (2016 lub nowszy), 76 bajtów

=CONCAT(IF(LEN(SUBSTITUTE(DEC2BIN(ROW(32:126)),0,))=A1,CHAR(ROW(32:126)),""))

Pobiera dane wejściowe z A1, wyniki w dowolnej komórce, w której umieścisz tę formułę. Jest to formuła tablicowa, więc musisz nacisnąć Ctrl+ Shift+, Enteraby ją wprowadzić. „2016 lub nowszy” to dlatego, że potrzebuje CONCATfunkcji (przestarzałe CONCATENATEnie przyjmuje tablicy jako argumentu).

C (biblioteka standardowa), 74 67 bajtów

i;j;k;f(n){for(i=31;i<126;k||puts(&i))for(k=n,j=++i;j;j/=2)k-=j&1;}

Używanie tylko standardowych funkcji bibliotecznych. Podziękowania dla @gastropner za poprawę z 74 do 67 bajtów.

Wypróbuj online!

R , 77 68 bajtów

Podejdź używając pętli for

-9 bajtów dzięki Giuseppe

n=scan();for(i in 32:126)if(sum(intToBits(i)>0)==n)cat(intToUtf8(i))

Wypróbuj online!

Poprzednio:

R , 78 69 66 bajtów

-12 bajtów dzięki Giuseppe

a=32:126;cat(intToUtf8(a[colSums(sapply(a,intToBits)>0)==scan()]))

Przekształca liczby od 32 do 126 w macierz bitów, a następnie sumuje w wierszach, aby znaleźć, które pasują do liczby wejściowej.

Wypróbuj online!

Java 10, 98 97 94 70 67 bajtów

n->{for(var c='';c-->31;)if(n.bitCount(c)==n)System.out.print(c);}

-24 bajty dzięki NahuelFouilleul .

Wypróbuj online.

Wyjaśnienie:

Zawiera niedrukowalny znak o wartości Unicode 127.

n->{                         // Method with Integer parameter and no return-type
  for(var c='';c-->31;)     //  Loop character `c` in the range ['~', ' '] / (127,31):
    if(n.bitCount(c)         //   If the amount of 1-bits in the two's complement binary
                             //   representation of the current characters
                    ==n)     //   equals the input:
      System.out.print(c);}  //    Print the current character

Java 8, 131 71 bajtów

-60 bajtów dzięki wszystkim w komentarzach

Zwraca punkt java.util.stream.IntStreamkodowy

n->java.util.stream.IntStream.range(32,127).filter(i->n.bitCount(i)==n)

Wypróbuj online!

Korzystanie z HashSet, 135 bajtów. Zwraca a Set<Object>:

n->new java.util.HashSet(){{for(int i=31;i++<126;add(Long.toBinaryString(i).chars().map(c->c-48).sum()==n?(char)i+"":""),remove(""));}}

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 86 bajtów

n=>Enumerable.Range(32,95).Where(x=>"0123456".Sum(g=>x>>g-48&1)==n).Select(x=>(char)x)

Dzięki @ExpiredData za pomysł na wykorzystanie Sum() ! Kiedy wrócę do komputera, "0123456"zastąpię ciąg napisami, których nie można drukować, oszczędzając trzy bajty.

Wypróbuj online!

Dyalog APL Extended, 24 22 bajtów

⎕ucs a⌿⍨⎕=+⌿2⊤a←32…126

Wypróbuj online!

-2 bajty dzięki ngn

Alternatywne 22 bajty w zwykłym APL Dyalog przez ngn:

⎕ucs 32+⍸⎕=32↓+/↑,⍳7⍴2

Wypróbuj online!

Python 2 , 69 bajtów

lambda n:[chr(i)for i in range(32,127)if sum(map(int,bin(i)[2:]))==n]

Wypróbuj online!

Gaia , 10 bajtów

₵R⟪¤cbΣ=⟫⁇

Wypróbuj online!

		| implicit input, n
₵R		| push printable ascii
  ⟪	⟫⁇	| filter the list where:
   ¤cbΣ		| the sum of the code point in binary
       =	| is equal to n

J , ³¹ 27 bajtów

-4 bajty dzięki Galenowi

[:u:32+[:I.]=1#.32#:@+i.@95

Wypróbuj online!

Oryginalna odpowiedź

a.#~&(95{.32}.])]=1#.2#:@i.@^8:

Wypróbuj online!

• 2#:@i.@^8:tworzy liczby binarne od 0 do 255 ( 2 ^ 8jest 256)
• 1#. sumuje każdy
• ]= tworzy maskę binarną pokazującą, gdzie suma jest równa oryginalnej wartości wejściowej
• a.#~ mask używa tej maski binarnej do filtrowania pełnego alfabetu ascii J. a.
• &(95{.32}.]) ale zanim to zrobisz, weź tylko elementy 32 ... 126 z alfabetu i maski

Perl 5 -a , 50 43 bajtów

@NahuelFouilleul oszczędza 7 bajtów

map{$_=chr;unpack('B*')%9-"@F"||say}32..126

Wypróbuj online!

K (ngn / k) , 20 bajtów

Rozwiązanie:

`c$32+&(+/2\32+!95)=

Wypróbuj online!

Wyjaśnienie:

Ocena od prawej do lewej:

`c$32+&(+/2\32+!95)= / the solution
                   = / equals?
       (          )  / do this together
               !95   / range 0..94
            32+      / add 32, so range 32..126
          2\         / break into base-2
        +/           / sum up
      &              / indices where true
   32+               / add 32
`c$                  / cast to character

Zestaw 6502 (NES), 22 bajty

Kod maszynowy:

a0 1f a6 60 c8 98 30 fb ca 0a b0 fc d0 fb e8 d0 f1 8c 07 20 f0 ec

Montaż:

    ldy #$1f ; Y holds the current character code
NextCharacter:
    ldx $60 ; load parameter into X
    iny
    tya
    bmi (NextCharacter + 1) ; exit at char 128, #$60 is the return opcode

CountBits:
    dex
Continue:
    asl
    bcs CountBits
    bne Continue

CompareBitCount:
    inx ; fixes off-by-one error and sets Z flag if bit count matches
    bne NextCharacter
    sty $2007
    beq NextCharacter ; always branches

Pełny program . Testowany z FCEUX 2.2.3, powinien działać na dowolnym standardowym emulatorze NES.

Zainspirowany odpowiedzią Ryana Russella. Dane wejściowe podane pod adresem procesora 60 USD. Wysyła do pamięci jednostki przetwarzania obrazu konsoli.

Wolfram Language (Mathematica) , 70 bajtów

FromCharacterCode/@Select[32~Range~126,s=#;Tr@IntegerDigits[#,2]==s&]&

Wypróbuj online!

PowerShell , 83 bajty

param($n)[char[]](32..126|?{([convert]::ToString($_,2)|% t*y|group)[1].count-eq$n})

Wypróbuj online!

Pobiera dane wejściowe $n, konstruuje zakres od 32do 126i wyciąga te liczby, w których |?{}: liczba, converted ToStringw bazie 2; konwersja toCharArra y; grouped do 0s i 1s; biorąc [1]indeks tej grupy; biorąc to .counti sprawdzając, czy jest to -eqzgodne z naszym $numberem wejściowym . Liczby te są następnie rzutowane jako chartablice i pozostawiane w kolejce. Wynik jest niejawny, z nowymi liniami między elementami.

Rubinowy , 48 bajtów

->n{(' '..?~).select{|x|x.ord.digits(2).sum==n}}

Wypróbuj online!

Węgiel drzewny , 10 bajtów

Φγ⁼Σ↨℅ι²Ｉθ

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

 γ          Predefined ASCII characters
Φ           Filtered by
      ι     Current character's
     ℅      ASCII code
    ↨       Converted to base
       ²    Literal 2
   Σ        Summed
  ⁼         Equals
         θ  First input
        Ｉ   Cast to integer
            Implicitly printed

PHP , 72 bajty

for($x=31;$x++<126;)echo$argn==count_chars(decbin($x),1)[49]?chr($x):'';

Wypróbuj online!

Czerwony , 92 bajty

func[n][repeat k 95[if n = length? replace/all enbase/base c: form #"^_"+ k 2"0"""[prin c]]]

Wypróbuj online!

Oktawa z pakietem komunikacyjnym, 32 bajty

@(n)t(sum(de2bi(t=' ':'~')')==n)

Wypróbuj online!

Współczynnik , 94 bajty

: f ( n -- n s ) 94 [0,b] [ 32 + 2 >base [ 49 = ] count over = ] filter [ 32 + ] map >string ;

Wypróbuj online!