Revisions to Print a string in as few distinct characters as possible

deleted 16 characters in body

Source Link

edited Nov 30, 2021 at 2:11

41
2

Forth, 7 characters, 79 bytes70 chars/509 byteschars

As I was too lazy to code that out, I did a line of metaprogramming in stock gforth to generate the program. That line reads:

: challengech 2 base ! 0 word count for count '%." emit%" . cr ." emit" cr next drop ;

running this code like this:

challengech The quick brown fox jumps over the lazy dog

produces this output with chars "%01eimt":

running this output results in printing to screen:

Forth, 7 characters, 79 bytes/509 bytes

As I was too lazy to code that out, I did a line of metaprogramming in stock gforth to generate the program. That line reads:

: challenge 2 base ! 0 word count for count '% emit . cr ." emit" cr next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars "%01eimt":

running this output results in printing to screen:

Forth, 7 characters, 70 chars/509 chars

As I was too lazy to code that out, I did a line of metaprogramming in stock gforth to generate the program. That line reads:

: ch 2 base ! 0 word count for count ." %" . cr ." emit" cr next drop ;

running this code like this:

ch The quick brown fox jumps over the lazy dog

produces this output with chars "%01eimt":

running this output results in printing to screen:

added 244 characters in body

Source Link

edited Nov 30, 2021 at 1:59

Bushmills

41
2

Forth, 87 characters (including space char), 6979 bytes/594509 bytes

As I was too lazy to code that out, I did a line of metaprogramming in stock gforth to generate the program. That line reads:

: challenge 2 base ! 0 parseword count for count '% emit . cr ." emitemit" "cr next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars " %01eimt""%01eimt":

%1010100 emit %1101000 emit %1100101 emit %100000 emit %1110001 emit %1110101 emit %1101001 emit %1100011 emit %1101011 emit %100000 emit %1100010 emit %1110010 emit %1101111 emit %1110111 emit %1101110 emit %100000 emit %1100110 emit %1101111 emit %1111000 emit %100000 emit %1101010 emit %1110101 emit %1101101 emit %1110000 emit %1110011 emit %100000 emit %1101111 emit %1110110 emit %1100101 emit %1110010 emit %100000 emit %1110100 emit %1101000 emit %1100101 emit %100000 emit %1101100 emit %1100001 emit %1111010 emit %1111001 emit %100000 emit %1100100 emit %1101111 emit %1100111 emit

running this output results in printing to screen:

Forth, 8 characters (including space char), 69 bytes/594 bytes

As I was too lazy to code that out, I did a line of metaprogramming in gforth to generate the program. That line reads:

: challenge 2 base ! 0 parse for count '% emit . ." emit " next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars " %01eimt":

%1010100 emit %1101000 emit %1100101 emit %100000 emit %1110001 emit %1110101 emit %1101001 emit %1100011 emit %1101011 emit %100000 emit %1100010 emit %1110010 emit %1101111 emit %1110111 emit %1101110 emit %100000 emit %1100110 emit %1101111 emit %1111000 emit %100000 emit %1101010 emit %1110101 emit %1101101 emit %1110000 emit %1110011 emit %100000 emit %1101111 emit %1110110 emit %1100101 emit %1110010 emit %100000 emit %1110100 emit %1101000 emit %1100101 emit %100000 emit %1101100 emit %1100001 emit %1111010 emit %1111001 emit %100000 emit %1100100 emit %1101111 emit %1100111 emit

running this output results in printing to screen:

Forth, 7 characters, 79 bytes/509 bytes

As I was too lazy to code that out, I did a line of metaprogramming in stock gforth to generate the program. That line reads:

: challenge 2 base ! 0 word count for count '% emit . cr ." emit" cr next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars "%01eimt":

running this output results in printing to screen:

deleted 5 characters in body

Source Link

edited Nov 30, 2021 at 1:16

Bushmills

41
2

Forth, 8 characters (including space char), 7469 bytes/594 bytes

As I was too lazy to code that out, I did a line of metaprogramming in gforth to generate the program. That line reads:

: challenge 2 base ! 0 word countparse for count '% emit . ." emit " next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars " %01eimt":

%1010100 emit %1101000 emit %1100101 emit %100000 emit %1110001 emit %1110101 emit %1101001 emit %1100011 emit %1101011 emit %100000 emit %1100010 emit %1110010 emit %1101111 emit %1110111 emit %1101110 emit %100000 emit %1100110 emit %1101111 emit %1111000 emit %100000 emit %1101010 emit %1110101 emit %1101101 emit %1110000 emit %1110011 emit %100000 emit %1101111 emit %1110110 emit %1100101 emit %1110010 emit %100000 emit %1110100 emit %1101000 emit %1100101 emit %100000 emit %1101100 emit %1100001 emit %1111010 emit %1111001 emit %100000 emit %1100100 emit %1101111 emit %1100111 emit

running this output results in printing to screen:

Forth, 8 characters (including space char), 74 bytes/594 bytes

As I was too lazy to code that out, I did a line of metaprogramming in gforth to generate the program. That line reads:

: challenge 2 base ! 0 word count for count '% emit . ." emit " next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars " %01eimt":

%1010100 emit %1101000 emit %1100101 emit %100000 emit %1110001 emit %1110101 emit %1101001 emit %1100011 emit %1101011 emit %100000 emit %1100010 emit %1110010 emit %1101111 emit %1110111 emit %1101110 emit %100000 emit %1100110 emit %1101111 emit %1111000 emit %100000 emit %1101010 emit %1110101 emit %1101101 emit %1110000 emit %1110011 emit %100000 emit %1101111 emit %1110110 emit %1100101 emit %1110010 emit %100000 emit %1110100 emit %1101000 emit %1100101 emit %100000 emit %1101100 emit %1100001 emit %1111010 emit %1111001 emit %100000 emit %1100100 emit %1101111 emit %1100111 emit

running this output results in printing to screen:

Forth, 8 characters (including space char), 69 bytes/594 bytes

As I was too lazy to code that out, I did a line of metaprogramming in gforth to generate the program. That line reads:

: challenge 2 base ! 0 parse for count '% emit . ." emit " next drop ;

running this code like this:

challenge The quick brown fox jumps over the lazy dog

produces this output with chars " %01eimt":

%1010100 emit %1101000 emit %1100101 emit %100000 emit %1110001 emit %1110101 emit %1101001 emit %1100011 emit %1101011 emit %100000 emit %1100010 emit %1110010 emit %1101111 emit %1110111 emit %1101110 emit %100000 emit %1100110 emit %1101111 emit %1111000 emit %100000 emit %1101010 emit %1110101 emit %1101101 emit %1110000 emit %1110011 emit %100000 emit %1101111 emit %1110110 emit %1100101 emit %1110010 emit %100000 emit %1110100 emit %1101000 emit %1100101 emit %100000 emit %1101100 emit %1100001 emit %1111010 emit %1111001 emit %100000 emit %1100100 emit %1101111 emit %1100111 emit

running this output results in printing to screen:

Source Link

created Nov 30, 2021 at 0:58

Bushmills

41
2

Loading

Stack Exchange Network

Return to Answer

Forth, 7 characters, 79 bytes70 chars/509 byteschars

Forth, 7 characters, 79 bytes/509 bytes

Forth, 7 characters, 70 chars/509 chars

Forth, 87 characters (including space char), 6979 bytes/594509 bytes

Forth, 8 characters (including space char), 69 bytes/594 bytes

Forth, 7 characters, 79 bytes/509 bytes

Forth, 8 characters (including space char), 7469 bytes/594 bytes

Forth, 8 characters (including space char), 74 bytes/594 bytes

Forth, 8 characters (including space char), 69 bytes/594 bytes