Wolfram Cloud Document

CITE THIS NOTEBOOK: Super Bingo: SUBDERMATOGLYPHIC by Ed Pegg. Wolfram Community DEC 14 2022.

So, I needed to make a random BINGO card.

In[]:=

Grid[Prepend[Transpose[Table[RandomSample[Range[3×5a+1,3×5(a+1)],5],{a,0,5-1}]],Characters["BINGO"]],Frame->All,ItemSize->All]

Out[]=

B	I	N	G	O
10	21	39	46	71
4	18	44	48	62
9	29	35	51	68
1	25	43	50	63
13	30	33	52	64

Pretty simple. But then, I thought.. there are longer heterograms, words that don’t repeat a letter.

In[]:=

Grid[Prepend[Transpose[Table[RandomSample[Range[3×17a+1,3×17(a+1)],17],{a,0,17-1}]],Characters["SUBDERMATOGLYPHIC"]],Frame->All,ItemSize->All]

Out[]=

S	U	B	D	E	R	M	A	T	O	G	L	Y	P	H	I	C
49	70	149	165	248	266	340	384	459	487	512	583	644	702	751	793	832
43	85	122	200	215	290	356	392	412	496	543	595	645	695	749	797	860
18	94	109	160	206	306	348	388	419	489	528	567	651	707	739	779	840
42	89	153	197	253	270	329	381	420	507	515	565	629	668	737	810	854
12	86	136	173	230	264	344	361	431	492	519	610	633	672	756	812	826
1	69	131	204	229	260	337	360	438	476	532	562	650	714	715	773	849
21	101	129	187	236	265	309	390	453	505	526	582	653	708	740	805	829
25	78	144	193	224	256	312	395	439	486	545	604	615	711	731	767	820
10	56	125	185	222	257	335	366	448	464	549	573	647	670	755	785	824
5	80	150	202	214	299	320	407	415	465	518	586	641	701	728	811	838
3	65	134	178	251	301	342	378	421	504	540	566	614	683	758	774	827
44	93	121	179	255	289	327	386	446	482	555	575	621	692	742	800	856
24	83	112	158	205	302	328	365	424	509	546	584	654	666	720	783	828
48	82	124	162	218	283	310	364	428	501	529	563	659	709	725	780	865
34	54	128	164	237	280	354	389	430	480	535	571	639	713	738	781	857
11	62	127	166	244	259	351	408	429	491	561	574	662	687	764	790	823
45	76	143	156	232	294	334	372	436	471	530	598	660	686	765	788	859

Just in case the Binomial[3 5, 5]^5 bingo cards run out, there are Binomial[3 17, 17]^17 subdermatoglyphics cards available, a 224 digit number.

A friend suggested an even better game.

In[]:=

Grid[Prepend[Transpose[Table[RandomSample[Range[2×20a+1,2×20(a+1)],20],{a,0,20-1}]],Characters["VODKATHUMBSCREWINGLY"]],Frame->All,ItemSize->All]

Out[]=

V	O	D	K	A	T	H	U	M	B	S	C	R	E	W	I	N	G	L	Y
16	63	106	141	194	226	264	296	347	394	412	444	510	526	569	623	676	710	744	777
6	72	95	147	183	221	268	302	342	377	429	454	488	547	567	628	666	687	728	763
4	55	107	137	172	210	269	315	324	391	435	472	514	522	587	638	649	704	730	768
25	42	103	158	174	212	243	283	346	398	419	475	512	551	591	637	678	698	740	794
1	80	82	127	181	220	247	306	338	387	404	451	499	546	595	616	672	706	737	780
19	73	101	124	176	224	251	295	331	392	405	457	487	541	565	629	642	690	731	785
33	69	112	140	199	215	262	288	359	367	436	467	495	539	582	608	671	718	732	764
31	71	100	130	182	214	273	301	351	379	417	474	489	536	566	626	662	701	727	773
27	50	81	148	165	223	246	290	329	371	424	471	485	535	572	607	657	696	753	781
2	44	96	129	170	218	250	305	343	400	438	466	482	521	599	630	670	689	721	782
11	49	84	159	173	227	278	289	348	389	420	476	520	527	596	634	651	684	747	765
14	46	117	145	179	231	248	298	334	384	407	447	491	531	579	612	656	694	739	778
20	68	97	136	198	236	275	316	358	383	413	441	516	545	585	601	644	700	749	784
5	56	89	154	178	237	260	313	325	390	431	453	519	543	561	609	650	711	755	786
38	74	105	142	193	209	244	312	354	364	414	446	493	530	574	614	654	685	743	761
7	47	87	126	185	222	257	287	360	397	401	477	497	550	600	625	677	720	756	800
24	61	104	132	184	216	259	314	321	386	423	455	503	524	590	606	669	717	723	797
18	54	92	153	167	232	255	286	327	380	418	458	498	537	586	613	647	688	760	783
28	79	91	128	168	235	261	308	336	370	410	450	513	556	594	627	645	702	758	769
3	62	94	139	163	217	266	311	345	362	415	459	492	553	577	633	646	708	729	775

S	U	B	D	E	R	M	A	T	O	G	L	Y	P	H	I	C
49	70	149	165	248	266	340	384	459	487	512	583	644	702	751	793	832
43	85	122	200	215	290	356	392	412	496	543	595	645	695	749	797	860
18	94	109	160	206	306	348	388	419	489	528	567	651	707	739	779	840
42	89	153	197	253	270	329	381	420	507	515	565	629	668	737	810	854
12	86	136	173	230	264	344	361	431	492	519	610	633	672	756	812	826
1	69	131	204	229	260	337	360	438	476	532	562	650	714	715	773	849
21	101	129	187	236	265	309	390	453	505	526	582	653	708	740	805	829
25	78	144	193	224	256	312	395	439	486	545	604	615	711	731	767	820
10	56	125	185	222	257	335	366	448	464	549	573	647	670	755	785	824
5	80	150	202	214	299	320	407	415	465	518	586	641	701	728	811	838
3	65	134	178	251	301	342	378	421	504	540	566	614	683	758	774	827
44	93	121	179	255	289	327	386	446	482	555	575	621	692	742	800	856
24	83	112	158	205	302	328	365	424	509	546	584	654	666	720	783	828
48	82	124	162	218	283	310	364	428	501	529	563	659	709	725	780	865
34	54	128	164	237	280	354	389	430	480	535	571	639	713	738	781	857
11	62	127	166	244	259	351	408	429	491	561	574	662	687	764	790	823
45	76	143	156	232	294	334	372	436	471	530	598	660	686	765	788	859

V	O	D	K	A	T	H	U	M	B	S	C	R	E	W	I	N	G	L	Y
16	63	106	141	194	226	264	296	347	394	412	444	510	526	569	623	676	710	744	777
6	72	95	147	183	221	268	302	342	377	429	454	488	547	567	628	666	687	728	763
4	55	107	137	172	210	269	315	324	391	435	472	514	522	587	638	649	704	730	768
25	42	103	158	174	212	243	283	346	398	419	475	512	551	591	637	678	698	740	794
1	80	82	127	181	220	247	306	338	387	404	451	499	546	595	616	672	706	737	780
19	73	101	124	176	224	251	295	331	392	405	457	487	541	565	629	642	690	731	785
33	69	112	140	199	215	262	288	359	367	436	467	495	539	582	608	671	718	732	764
31	71	100	130	182	214	273	301	351	379	417	474	489	536	566	626	662	701	727	773
27	50	81	148	165	223	246	290	329	371	424	471	485	535	572	607	657	696	753	781
2	44	96	129	170	218	250	305	343	400	438	466	482	521	599	630	670	689	721	782
11	49	84	159	173	227	278	289	348	389	420	476	520	527	596	634	651	684	747	765
14	46	117	145	179	231	248	298	334	384	407	447	491	531	579	612	656	694	739	778
20	68	97	136	198	236	275	316	358	383	413	441	516	545	585	601	644	700	749	784
5	56	89	154	178	237	260	313	325	390	431	453	519	543	561	609	650	711	755	786
38	74	105	142	193	209	244	312	354	364	414	446	493	530	574	614	654	685	743	761
7	47	87	126	185	222	257	287	360	397	401	477	497	550	600	625	677	720	756	800
24	61	104	132	184	216	259	314	321	386	423	455	503	524	590	606	669	717	723	797
18	54	92	153	167	232	255	286	327	380	418	458	498	537	586	613	647	688	760	783
28	79	91	128	168	235	261	308	336	370	410	450	513	556	594	627	645	702	758	769
3	62	94	139	163	217	266	311	345	362	415	459	492	553	577	633	646	708	729	775

S	U	B	D	E	R	M	A	T	O	G	L	Y	P	H	I	C
49	70	149	165	248	266	340	384	459	487	512	583	644	702	751	793	832
43	85	122	200	215	290	356	392	412	496	543	595	645	695	749	797	860
18	94	109	160	206	306	348	388	419	489	528	567	651	707	739	779	840
42	89	153	197	253	270	329	381	420	507	515	565	629	668	737	810	854
12	86	136	173	230	264	344	361	431	492	519	610	633	672	756	812	826
1	69	131	204	229	260	337	360	438	476	532	562	650	714	715	773	849
21	101	129	187	236	265	309	390	453	505	526	582	653	708	740	805	829
25	78	144	193	224	256	312	395	439	486	545	604	615	711	731	767	820
10	56	125	185	222	257	335	366	448	464	549	573	647	670	755	785	824
5	80	150	202	214	299	320	407	415	465	518	586	641	701	728	811	838
3	65	134	178	251	301	342	378	421	504	540	566	614	683	758	774	827
44	93	121	179	255	289	327	386	446	482	555	575	621	692	742	800	856
24	83	112	158	205	302	328	365	424	509	546	584	654	666	720	783	828
48	82	124	162	218	283	310	364	428	501	529	563	659	709	725	780	865
34	54	128	164	237	280	354	389	430	480	535	571	639	713	738	781	857
11	62	127	166	244	259	351	408	429	491	561	574	662	687	764	790	823
45	76	143	156	232	294	334	372	436	471	530	598	660	686	765	788	859

V	O	D	K	A	T	H	U	M	B	S	C	R	E	W	I	N	G	L	Y
16	63	106	141	194	226	264	296	347	394	412	444	510	526	569	623	676	710	744	777
6	72	95	147	183	221	268	302	342	377	429	454	488	547	567	628	666	687	728	763
4	55	107	137	172	210	269	315	324	391	435	472	514	522	587	638	649	704	730	768
25	42	103	158	174	212	243	283	346	398	419	475	512	551	591	637	678	698	740	794
1	80	82	127	181	220	247	306	338	387	404	451	499	546	595	616	672	706	737	780
19	73	101	124	176	224	251	295	331	392	405	457	487	541	565	629	642	690	731	785
33	69	112	140	199	215	262	288	359	367	436	467	495	539	582	608	671	718	732	764
31	71	100	130	182	214	273	301	351	379	417	474	489	536	566	626	662	701	727	773
27	50	81	148	165	223	246	290	329	371	424	471	485	535	572	607	657	696	753	781
2	44	96	129	170	218	250	305	343	400	438	466	482	521	599	630	670	689	721	782
11	49	84	159	173	227	278	289	348	389	420	476	520	527	596	634	651	684	747	765
14	46	117	145	179	231	248	298	334	384	407	447	491	531	579	612	656	694	739	778
20	68	97	136	198	236	275	316	358	383	413	441	516	545	585	601	644	700	749	784
5	56	89	154	178	237	260	313	325	390	431	453	519	543	561	609	650	711	755	786
38	74	105	142	193	209	244	312	354	364	414	446	493	530	574	614	654	685	743	761
7	47	87	126	185	222	257	287	360	397	401	477	497	550	600	625	677	720	756	800
24	61	104	132	184	216	259	314	321	386	423	455	503	524	590	606	669	717	723	797
18	54	92	153	167	232	255	286	327	380	418	458	498	537	586	613	647	688	760	783
28	79	91	128	168	235	261	308	336	370	410	450	513	556	594	627	645	702	758	769
3	62	94	139	163	217	266	311	345	362	415	459	492	553	577	633	646	708	729	775

S	U	B	D	E	R	M	A	T	O	G	L	Y	P	H	I	C
49	70	149	165	248	266	340	384	459	487	512	583	644	702	751	793	832
43	85	122	200	215	290	356	392	412	496	543	595	645	695	749	797	860
18	94	109	160	206	306	348	388	419	489	528	567	651	707	739	779	840
42	89	153	197	253	270	329	381	420	507	515	565	629	668	737	810	854
12	86	136	173	230	264	344	361	431	492	519	610	633	672	756	812	826
1	69	131	204	229	260	337	360	438	476	532	562	650	714	715	773	849
21	101	129	187	236	265	309	390	453	505	526	582	653	708	740	805	829
25	78	144	193	224	256	312	395	439	486	545	604	615	711	731	767	820
10	56	125	185	222	257	335	366	448	464	549	573	647	670	755	785	824
5	80	150	202	214	299	320	407	415	465	518	586	641	701	728	811	838
3	65	134	178	251	301	342	378	421	504	540	566	614	683	758	774	827
44	93	121	179	255	289	327	386	446	482	555	575	621	692	742	800	856
24	83	112	158	205	302	328	365	424	509	546	584	654	666	720	783	828
48	82	124	162	218	283	310	364	428	501	529	563	659	709	725	780	865
34	54	128	164	237	280	354	389	430	480	535	571	639	713	738	781	857
11	62	127	166	244	259	351	408	429	491	561	574	662	687	764	790	823
45	76	143	156	232	294	334	372	436	471	530	598	660	686	765	788	859

V	O	D	K	A	T	H	U	M	B	S	C	R	E	W	I	N	G	L	Y
16	63	106	141	194	226	264	296	347	394	412	444	510	526	569	623	676	710	744	777
6	72	95	147	183	221	268	302	342	377	429	454	488	547	567	628	666	687	728	763
4	55	107	137	172	210	269	315	324	391	435	472	514	522	587	638	649	704	730	768
25	42	103	158	174	212	243	283	346	398	419	475	512	551	591	637	678	698	740	794
1	80	82	127	181	220	247	306	338	387	404	451	499	546	595	616	672	706	737	780
19	73	101	124	176	224	251	295	331	392	405	457	487	541	565	629	642	690	731	785
33	69	112	140	199	215	262	288	359	367	436	467	495	539	582	608	671	718	732	764
31	71	100	130	182	214	273	301	351	379	417	474	489	536	566	626	662	701	727	773
27	50	81	148	165	223	246	290	329	371	424	471	485	535	572	607	657	696	753	781
2	44	96	129	170	218	250	305	343	400	438	466	482	521	599	630	670	689	721	782
11	49	84	159	173	227	278	289	348	389	420	476	520	527	596	634	651	684	747	765
14	46	117	145	179	231	248	298	334	384	407	447	491	531	579	612	656	694	739	778
20	68	97	136	198	236	275	316	358	383	413	441	516	545	585	601	644	700	749	784
5	56	89	154	178	237	260	313	325	390	431	453	519	543	561	609	650	711	755	786
38	74	105	142	193	209	244	312	354	364	414	446	493	530	574	614	654	685	743	761
7	47	87	126	185	222	257	287	360	397	401	477	497	550	600	625	677	720	756	800
24	61	104	132	184	216	259	314	321	386	423	455	503	524	590	606	669	717	723	797
18	54	92	153	167	232	255	286	327	380	418	458	498	537	586	613	647	688	760	783
28	79	91	128	168	235	261	308	336	370	410	450	513	556	594	627	645	702	758	769
3	62	94	139	163	217	266	311	345	362	415	459	492	553	577	633	646	708	729	775