New answers tagged kolmogorov-complexity
0
C# (.NET Framework), 190 bytes
using System;class P{static void Main(){for(int j=0;j<52;j++)for(int i=0;i<3;i++){Console.ForegroundColor=(ConsoleColor)new[]{9,15,12}[i];Console.Write("".PadRight(26,'F')+(i>1?"\n":""));}}}
0
Processing, 111 bytes
size(78,52);noStroke();fill(#0055a4);rect(0,0,26,52);fill(255);rect(26,0,26,52);fill(#ef4135);rect(52,0,26,52);
2
Integral, 416 Bytes
⌡1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 ...
1
Dotty, cracks @user's answer
This was kinda hard, but kinda easy and really fun!
object Main; def main(using Array[String]) = print("" + 58.toChar + 92.toChar + 123.toChar);
You can try this on: https://scastie.scala-lang.org/Sthw2Vr7QG26mbMHQuirkg
As of today, it produces the expected output:
DISCLAIMER!!!!
This answer is HEAVILY based on https:/...
0
Processing, 172 bytes
noStroke();background(255);fill(0);for(float i=-60;i<=300;i+=120)arc(50,50,100,100,radians(i),radians(i+60),PIE);fill(255);circle(50,50,30);fill(0);circle(50,50,20);
Un-minified code:
noStroke();
background(255);
fill(0);
for(float i=-60;i<=300;i+=120)arc(50,50,100,100,radians(i),radians(i+60),PIE);
fill(255);
circle(50,50,30);
...
1
Python 2, 73 77 bytes, link
edit:
Even shorter, thanks to @Dingus + removing parenthesis:
for n in range(1,101):print[[n,"Buzz"],["Fizz","FizzBuzz"]][n%3<1][n%5<1]
original:
Here's my matrix-inspired approach:
for n in range(1,101):
print([[n,"Buzz"],["Fizz","FizzBuzz"]][n%3<1][n%5<...
0
Stack Cats, Score: 3
)*(
All Stack Cats programs are symmetrical, and the reflection of a command undoes the original.
As a result, every program with an even length either runs forever or does some work, then immediately undoes that work, and devolves into a cat program. The only way to write something else is to use an odd number of characters and let the ...
3
Integral, 13 bytes
÷Hello, W╗ld!
Try it!
Sadly, Integral cannot yet compress capital letters, so it could not do much compression.
÷ means start compressed string.
Ignoring punctuation and capitalization yields
Integral, 9 bytes
÷▓llo═╗ld
Try it!
See also: Showcase
1
Perl 5, cracks @Gilles 'SO- stop being evil''s answer 10359 bytes
Note that the link below includes /, but the code for Perl 5.20.3 uses ? instead to meet the rules. TIO has a newer Perl and doesn't support the ?...? syntax.
[$_=[$?..$=]]&[$__=$$_[//]]&[$_=[$__..$=]]&[$___=$$_[//]]&[$_=[$___..$=]]&[$____=$$_[//]]&[$_=[$____..$=]]&...
2
Rust, score 3
pwx
No extern possible this time, so no calling C functions! (or other crates, but that wouldn't be allowed anyways)
Pretty challenging to output to stdout without being able to type print or write!
Rust version: rustc 1.45.1 (c367798cf 2020-07-26)
2
Rust, cracks madlaina's (edited) answer
extern "C" {
fn system(x: &str) -> &str;
}
fn main() {
unsafe {
system("echo -en '\x70\x77'");
}
}
Relies on undefined behavior (C string != &str) but it seems to work.
Try it online!
2
Fortran (GFortran), cracks Dingus's answer
INTEGER :: Izero = AND(BIT_SIZE(Izero), NOT(BIT_SIZE(Izero)))
CHARACTER(BIT_SIZE(Izero)) :: out
CHARACTER(BIT_SIZE(Izero)) :: fmt
I = IBSET(Izero, Izero)
I_ = SHIFTL(I, I)
I__ = SHIFTL(I_, I)
I___ = SHIFTL(I__, I)
I____ = SHIFTL(I___, I)
I_____ = SHIFTL(I____, I)
...
5
Mornington Crescent, 15909 bytes, cracks Discrete lizard's second answer
The battle for London is on, and I have been proven as the victor
Take Northern Line to King's Cross St. Pancras
Take Victoria Line to Seven Sisters
Take Victoria Line to Victoria
Take Circle Line to Victoria
Take Circle Line to Cannon Street
Take Circle Line to Victoria
Take Victoria ...
2
Haskell, cracks Ad Hoc Garf Hunter's answer
main|[uuuuuuuuu,iiiiiiiiiiiii,iiiiiiiiiiii,iiiiiiiiiii,iiiiiiiiii,iiiiiiiii,iiiiiiii,iiiiiii,iiiiii,iiiii,iiii,iii,ii,i,nnnnnnn,nnnnnn,nnnnn,uuuuuuuu,nnnn,uuuuuuu,aaaaaaaaaaaaai,aaaaaaaaaaaai,aaaaaaaaaaai,aaaaaaaaaai,aaaaaaaaai,aaaaaaaai,aaaaaaai,aaaaaai,aaaaai,aaaai,aaai,aai,ai,aaaaaaaaaaaaa,aaaaaaaaaaaa,...
1
Ruby, cracks Dingus's fourth answer
RUBY_VERSION =~ /\D/
DOT = $&
RUBY_VERSION =~ //
EMPTY_STRING = $&
$_ = $LOADED_FEATURES * EMPTY_STRING
$_ =~ /C/i; LC_C = $&
$_ =~ /H/i; LC_H = $&
$_ =~ /R/i; LC_R = $&
H_DOT_CHR = LC_H + DOT + LC_C + LC_H + LC_R
emit = EMPTY_STRING
h = 112; emit += eval H_DOT_CHR
h = 117; emit += eval H_DOT_CHR
h = ...
2
SimpleTemplate, 175 bytes, cracks @IsmaelMiguel's answer
{@set j "b"}{@set k "{@in\x63 j}"}{@eval k}{@print j}{@set j "g"}{@set k "{@in\x63 j}"}{@eval k}{@print j}{@set j "n"}{@set k "{@in\x63 j}"}{@eval k}{@print j}{@print VERSION}
Try it online!
I had a hunch that 0.84 would be a hardcoded ...
2
Malbolge, cracks Pizgenal Filegav's answer
String to print:
To
Solution:
DCBA@?"7[54XE7UB.-2bNMLKK8k)GXD}Ce/yba=
Try it online!
I have no idea how this works! I found the solution with this generator, then decided against posting it, since that didn't seem to fit the spirit of the challenge. But I decided I'd post it anyway when I saw Dingus's Dupdog ...
3
Dupdog, 1813 bytes, cracks @HighlyRadioactive's answer
This should be really really trivial . . . The answer is suspiciously short
Safe to say this is not the intended answer then:
a?a???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????...
1
Dirty, 2 bytes, cracks @HighlyRadioactive's answer
0Ḃ
Try it online!
Seems to work with any digit(s) preceding Ḃ, which is described in the docs as the 'bytes to UTF8' operator.
2
Ruby, Score: 16, Cracked
cdopr.`'"?%([{:<
OK, fourth and final take! The score has actually dropped now that I've realised (thanks to chief nemesis @Gilles'SO-stopbeingevil') that banning digits is redundant. But there will be no more String or Array (r), no more Float (o), and no more interpolation into regexps ({), thank you very much.
I'll ...
4
Ruby, cracks Dingus's third answer
ZERO = $$ - $$
S_ZERO = String ZERO
ONE = -~ZERO
S_ONE = String ONE
S_TWO = String ONE + ONE
S_THREE = String ONE + ONE + ONE
S_FOUR = String ONE + ONE + ONE + ONE
S_FIVE = String ONE + ONE + ONE + ONE + ONE
S_SIX = String ONE + ONE + ONE + ONE + ONE + ONE
S_SEVEN = String ONE + ONE + ONE + ONE + ONE + ONE + ONE
S_EIGHT = ...
4
Rust, score 2 32, Cracked
pw
pw?@ABCDEFGHIJKLMNOPQSTUXYZ!"#$%
Pretty challenging to output to stdout without being able to type print or write!
Rust version: rustc 1.45.1 (c367798cf 2020-07-26)
0
Pyth, 4 Bytes
"pYTH
Simple prints the string pYTH to stdout.
2
Ruby, Score: 23, Cracked
cdp0123456789.`'"?%([:<
Take 3, and hopefully this time I've better captured my intentions! The score has more than doubled over the previous iteration, largely thanks to the digits. Also now banned are c and d. For what it's worth, my code has hardly changed.
Previous challenges in the series:
Take 1 (score 9), cracked by @...
3
Dirty, Score: 8 - Cracked
hd of []
This is way too easy for people who knows this language... (I don't.)
Intended Solution:
1
Yeah, you read that right.
3
Ruby, cracks Dingus's answer
#!/usr/bin/env ruby
class Fixnum
def !
chr
end
end
s = !112 + !46 + !96 + !39 + !92 + !34 + !63 + !37 + !40 + !91 + !58 + !60
eval !112 + !114 + !105 + !110 + !116 + !34 + s + !34
Can't call methods without .? Yes you can, if they're operators.
Try it online!
3
Ruby, Score: 11, Cracked
p.`'"?%([:<
Take 2, after @DomHastings and @Gilles'SO-stopbeingevil' found unintended weaknesses in the original. I've fortified this version by adding p and ` to the list of forbidden characters. As before, my code outputs to STDOUT with no trailing newline and works for Ruby 1.8.7 onwards.
0
C (gcc), 77 bytes
*s;f(){for(s=L"pp!'JO~S<kx`[zQ]g kf YVDp ";*s;)printf("%d",*s++-' ');}
Assumes that wchar_t and int have the same size. This way we can make the string wide and we can omit the type when declaring s.
A naive approach: group the digits in blocks of 1–3, each of which is an integer between 0 and 127 with no ...
0
PicoLisp, cracks @Wezl's answer 5 bytes
Marking this community wiki as @Dingus Googled the error and found a solution and I applied the previous crack's style and removed bits.
[[0]]
Try it online!
3
Malbolge, score: 2, Cracked
To
In Malbolge, the "print X" part of the challenge should be hard enough by itself.
Original solution:
1
Ruby, cracks @Dingus' answer, 77 bytes
I imagine this is almost certainly not the crack in mind, but this was the other solution I found before posting the crack for @Histocrat's second cop.
print`echo -n \x27\x2e\x27\\\x27\x27\x22\x3f\x25\x28\x29\x5b\x5d\x3a\x3c\x27`
Try it online!
8
Mornington Crescent, Score: 4, Cracked
X = myHp
You may have survived the 7UBES, but the real challenge begins now. Face me in battle! First, allow me to rid us of some distractions. Four lines are closed. Over half of the special stations are unavailable. In spite of this ruin, victory remains possible. Even for the likes of you, but it won't come easily... ...
1
Dotty 0.20.0-RC1, cracks user's answer?
I don't know if this right or not, but I should be able to crack it like this:
print(""+46.toChar+92.toChar+ 123.toChar)
This should work considering that Dotty is the new version of Scala, but if it's wrong then please tell me.
1
Ruby, Score: 9, Cracked
.'"?%([:<
My code outputs with no trailing newline and works for Ruby 1.8.7 onwards. By design, string creation is difficult.
Edit: I've posted a new version hardened against the weaknesses found by @DomHastings and @Gilles'SO-stopbeingevil'. Because my code is almost unchanged I'll hold off on revealing it.
1
Perl 5.20 (packable with pp from PAR::Packer), Score: 87, Cracked
The ASCII control characters ^F^O^V^X and
!"%'(*+,-/0123456789:;<>@ABCDEFGHIJKLMNOPQRSTUVWXYZ\^`abcdefghijklmnopqrstuvwxyz{|~
As a Perl string:
"\x06\x0f\x16\x18" . '!"%\'(*+,-/0123456789:;<>@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^`abcdefghijklmnopqrstuvwxyz{|~'
As hex:
...
5
Perl 5 cracks @Gilles 'SO- stop being evil''s answer, 5845 (!) bytes
Note: the original program contains \x18 which is used as ^X in this answer.
($__=()=())=>($___=()=(_))=>($____=()=(_=>_))=>($_____=()=(_=>_=>_))=>($______=()=(_=>_=>_=>_))=>($_______=()=(_=>_=>_=>_=>_))=>($________=()=(_=>_=>_=>_=&...
0
Scala, 155 bytes
printf("S%2$s by%1$s shells%3$sare seashells, I'm sure.\nSo if s%2$s on%1$sn I'm sure%3$sshells."," the seashore,\nThe","he sells seashells"," she sells ")
Try it online!
4
BBC BASIC II, cracks Martin Rosenau's challenge
The string to print is
VP
Solution:
10 MODE 7
20 A%=HIMEM
30 ?A%=80
40 A%?1=86
50 GOTO 50
Tested on BeebEm emulator and should work directly on BBC model 'B'.
How?
MODE 7 is a low-resolution graphics mode, intended to display 'teletext'. Each character on the display is encoded by a single byte in memory: ...
3
QBasic 1.1, cracks DLosc's second answer
The string to print is:
C,c
Solution:
X$ = MKL$(543370307)
PRINT RTRIM$(X$)
This was much trickier than the first version. This time I couldn't use a comma. That was mainly to prevent writing memory with POKE, but it also ruled out every other function with multiple arguments.
After all my initial ideas failed, I ...
2
Wolfram Language (Mathematica), score: 71
AbCdEfGhIjKlMnOpQrStUvWxYz
{@[0 & ], \" <-> (.|), +*/, 123456789[]}
There are 4 characters preceding the { on the second line: invisible times (U+2062) followed by 3 private use characters (U+F39E, U+F765, U+F76D), in ascending order.
0
QBasic 1.1, score: 3, Cracked
C,c
POKE should be impossible now.
You can run QBasic 1.1 at Archive.org.
My solution:
5
QBasic 1.1, cracks DLosc's answer
The string to print is:
Cc
Thanks to QBasic's complete lack of memory safety, my solution creates an arbitrary two character string, gets its memory address, directly changes the memory into the right ASCII codes, and prints the result:
X$ = "aa"
A = SADD(X$)
POKE A, 67
POKE A + 1, 99
PRINT X$
0
QBasic 1.1, score: 2, Cracked
Cc
I'm specifying QBasic 1.1 in order to exclude QB64 with its extra features. You can run it at Archive.org.
2
APL (Dyalog Unicode), 112 bytes, Cracks Bubbler's answer
a←'a'(⎕NCREATE⍠'IfExists' 'Replace')0⋄117 118 85 86 ¯30 ¯108 ¯68⎕NREPLACE a 0⋄⍞←⊃⎕NGET'a'
Isn't too impressive I'm afraid, just writes the bytes to a file then reads it back as text. Couldn't use ⎕ARBOUT to write out the file because of the O, but ⎕NREPLACE works fine.
Try it online!
0
Part 2: PicoLisp, score: 18 cracked
Segmentation fault
or (similar):
Segmentation fault (core dumped)
(output to STDERR)
A bit harder than my previous answer. . .
4
Mornington Crescent, 5015 bytes, cracks Discrete lizard's answer
I've braved the depths of London, and I came out alive ...
Take Northern Line to Charing Cross
Take Northern Line to Moorgate
Take Circle Line to Moorgate
Take Circle Line to Paddington
Take Circle Line to Moorgate
Take Northern Line to Finchley Central
Take Northern Line to Charing Cross
Take ...
1
T-SQL
DECLARE @String VARCHAR
SELECT @String = 0x28
SELECT @String
Outputs ( but doesn't contain ( by using implicit type coercion.
2
Dotty 0.20.0-RC1, score: 3 (Cracked)
:\{
Edit: Previously, I had the language marked as Dotty 0.20.0-RC1, but it appears there's an alternate crack(s) that also works on the latest versions of Dotty. This also means that you don't have to download Dotty 0.20, you can just test out your code in Scastie right in your browser.
Note: This The previous solution ...
3
Dupdog, Score: 10 - Cracked
[\x0e][\x0c]
[\x10][\x0e][\x18][\x16]
39
May I join the fun?
Inside brackets are escape characters. Assuming linux line-breaks.
Intended Solution
~!!?*
I love short codes.
3
Perl 5, Score: 80, Cracked
!"'*+,-0123456789:;<?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\^`abcdefghijklmnopqrstuvwxyz{|~
This means that the following printable ASCII characters are permitted:
#$%&()./=>[]_}
Inspired by Dom Hastings's challenges (1, 2, 3) and my solutions (1, 2, 3).
Top 50 recent answers are included
