simply, 260 254 244 bytes
Yeah, the code is a big fat boy.
It is also far from the intended way to use the language.
Values
The program has the following values:
- Coinflip outcome 1:
0
- Coinflip outcome 2:
1
- Continue/Quit prompt:
window.confirm
- Continue playing input:
true
- Quit game input:
false
- Congratulatory message:
'W'
The code
Thanks to Steffan for saving 3 bytes.
$F=run$argv->map->constructor("return self")$W=run$F()$T=&int(run$W->prompt)$L=&rand(0,1)$C=1for$i in0..9999{$R=run$W->confirm($L)unless$R;break$F=&rand(0,1)if run&compare($L$F){$L=$F$C=1}else{$C=&add(1$C)unless run&compare($C$T){out'W'break}}}
Unfortunately, my language doesn't have infinite loops, yet...
However, this loops 10000 times, which should be enough to get the user to stop or give you a win.
It is possible to emulate this with setTimeout, but the program flow will be extremely weird, and cost a ton of bytes.
Additionally, the result of the last coin flip is shown in the message requesting to continue or stop, to save bytes.
Ungolfed and readable
$func = call $argv["map"]["constructor"]("return self");
%window = call $func();
%times = &int(call %window->prompt("How many equals"));
%last_flip = &rand(0, 1);
%count = 1;
for $i in 0..9999 {
$result = call %window->confirm(&str_concat("Rolled ", %last_flip, ' ', %count, " time(s). Continue?"));
unless $result {
break;
}
$flip = &rand(0, 1);
if call &compare(%last_flip, $flip) {
%last_flip = $flip;
%count = 1;
} else {
%count = &add(1, %count);
unless call &compare(%count, %times) {
echo "You're Winner!";
break;
}
}
}
Ungolfed to Plain English
Set $func to the result of calling $argv["map"]["constructor"]("return self").
Set %window to the result of calling $func().
Set %times to the result of calling &int(
Call the function %window->prompt("How many equals")
).
Set %last_flip to the result of calling &rand(0, 1).
Set %count to 1.
Loop from 0 to 9999 as $i
Begin
Set $result to the result of calling %window->confirm(
Call the function &str_concat("Rolled ", %last_flip, ' ', %count, " time(s). Continue?")
).
Unless $result then
Break.
Set $flip to the result of calling &rand(0, 1).
If Call &compare(%last_flip, $flip)
Begin
Set %last_flip to $flip.
Set %count to 1.
End
Else
Begin
Set %count to the result of calling &add(1, %count);
Unless Call &compare(%count, %times)
Begin
Show the value "You're Winner!".
Break.
End
End
End
All versions work exactly the same, but the output is kinda different, just to be more user friendly.
Explanation
The variable $argv is an array with arguments passed to the .execute() method of the compiler.
This can be used to run []["filter"]["constructor"]("return this")(), which returns the window object (Source in http://www.jsfuck.com/).
But since the compiler changes the this value, I had to use self, which is the same as window.self which is just the window object.
Since []["filter"]... is invalid syntax, I get around it by using $argv->filer ... ($argv["filter"]... is valid as well).
The keyword run (or call) is required to say "I am absolutely sure this variable is a function, now run it".
Due to bugs, the if and unless requires that the functions are executed with run, otherwise it assumes it is checking if the function exist.
The syntax $T=&int(run$W->prompt) is valid, because you don't need to have parenthesis when there's no arguments.
You will find a few cases where the syntax makes no sense, like $C=1for$i in0..9999 or $C=&add(1$C)unless.
As long as the tokens are distinguishable from each other, there's no problem.
$C=1for$i in0..9999 will be parsed as the following tokens: $c, =, 1, for, $i, in, 0, .., 9999.
Since, currently, there's no boolean operators, I use the unless block.
It is basically an if(!(condition)).
Since I need to check if values are false-y, for example: unless$R;break, I use this block.
The function &compare checks if the first argument is lower, higher or equal to the second argument.
If it is lower, returns -1.
If it is higher, returns 1.
Otherwise, returns 0 (a false-y value).
$W->prompt (window.prompt) shows a message requesting a value.
$W->confirm (window.confirm) shows a message and requests the user to click "OK" or "Cancel".
console.log(window.prompt("Write any value", "any value"));
console.log(window.confirm("Want to show 'true'?"));
nbe a command-line argument? \$\endgroup\$HTHTHTHTorTHTHTHTH. as the first flip is random, every flip may have either H or T nondeterministic before program execute), is this still a valid coin? And by using a coin like that, I don't need to handle the condition about game win (as that will never happen). \$\endgroup\$