aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Monty-Hall-problem/J/monty-hall-problem-1.j Normal file
View file

@ -0,0 +1 @@
pick=: {~ ?@#

1
Task/Monty-Hall-problem/J/monty-hall-problem-2.j Normal file
View file

@ -0,0 +1 @@
DOORS=:1 2 3

1
Task/Monty-Hall-problem/J/monty-hall-problem-3.j Normal file
View file

@ -0,0 +1 @@
scenario=: ((pick@-.,])pick,pick) bind DOORS

1
Task/Monty-Hall-problem/J/monty-hall-problem-4.j Normal file
View file

@ -0,0 +1 @@
stayWin=: =/@}.

1
Task/Monty-Hall-problem/J/monty-hall-problem-5.j Normal file
View file

@ -0,0 +1 @@
switchWin=: pick@(DOORS -. }:) = {:

2
Task/Monty-Hall-problem/J/monty-hall-problem-6.j Normal file
View file

@ -0,0 +1,2 @@
+/ (stayWin,switchWin)@scenario"0 i.1000
320 680

11
Task/Monty-Hall-problem/J/monty-hall-problem-7.j Normal file
View file

@ -0,0 +1,11 @@
simulate=:3 :0
1 2 3 simulate y
:
pick=. {~ ?@#
scenario=. ((pick@-.,])pick,pick) bind x
stayWin=. =/@}.
switchWin=. pick@(x -. }:) = {:
r=.(stayWin,switchWin)@scenario"0 i.y
labels=. ];.2 'limit stay switch '
smoutput labels,.":"0 y,+/r
)

4
Task/Monty-Hall-problem/J/monty-hall-problem-8.j Normal file
View file

@ -0,0 +1,4 @@
simulate 1000
limit 1000
stay 304
switch 696

4
Task/Monty-Hall-problem/J/monty-hall-problem-9.j Normal file
View file

@ -0,0 +1,4 @@
1 2 3 4 simulate 1000
limit 1000
stay 233
switch 388