LaTeX-Bingo/bingocards.tex

\documentclass[10pt]{article}
\usepackage[left=1.0in,right=1.0in,top=1.0in,bottom=1.0in]{geometry}

% mostly stolen from 
% http://tex.stackexchange.com/questions/63357/automatically-generated-bingo-cards
%
% with a few additions myself
% Jesse Hamner, 2016

\usepackage{xstring}
\usepackage{pgffor}
\usepackage{tikz}
\usetikzlibrary{calc}
\usepackage{xparse}

\input{random.tex}
\newcount\randomnum
\ExplSyntaxOn

\seq_new:N \g_my_items_seq
\seq_new:N \l_my_tmp_items_seq
\seq_new:N \g_my_randomized_seq
\int_new:N \l_tmp_int
\msg_new:nnnn {bingo} {Too~few~items!} {Provide~at~least~24~items!}{}

\cs_generate_variant:Nn \seq_item:Nn {Nx}
\cs_generate_variant:Nn \seq_remove_all:Nn {Nx}

\NewDocumentCommand {\myItems} {m}
    {
      \seq_clear:N \g_my_items_seq % clear item list 
      \seq_gset_split:Nnn \g_my_items_seq {;} {#1} % put item list in seq
      \int_compare:nNnT {\seq_count:N \g_my_items_seq} < {24} {\msg_error:nn {bingo} {Too~few~items!}} % check whether there are enough items
    }

\NewDocumentCommand{\setItems}{}
{
\seq_set_eq:NN \l_my_tmp_items_seq \g_my_items_seq % put in temp seq so that multiple cards can be produced
\prg_replicate:nn {24} %generate random list of 24 items
    {
        \int_set:Nn \l_tmp_int {\seq_count:N \l_my_tmp_items_seq}% set current length of list
        \setrannum{\randomnum}{1}{\int_use:N \l_tmp_int} % choose random num up to length of seq
        \seq_put_right:Nx \g_my_randomized_seq {\seq_item:Nn \l_my_tmp_items_seq {\the\randomnum}}% grab corresponding item and put in tmp seq
        \seq_remove_all:Nx \l_my_tmp_items_seq {\seq_item:Nn \l_my_tmp_items_seq {\the\randomnum}}%delete that item from temp seq
    }
\seq_clear:N \l_my_tmp_items_seq %clear temp seq when done
}

\NewDocumentCommand {\NodeText}{}
    {
        \seq_gpop_right:NN \g_my_randomized_seq \l_tmpa_tl %pop item from randomized seq into token list
        \tl_use:N \l_tmpa_tl %use that item.
    }


\ExplSyntaxOff

\def\NumOfColumns{5}%
\def\Sequence{1, 2, 3, 4, 5}%
\newcommand{\sep}{1mm}

% make a nice identifier for the card (in case, say, there is more than one
% presidential debate, etc.)
\newcommand{\biglabel}{\vspace{0.2in}\begin{center}
\begin{LARGE}
Rawlins Hall Bingo

Vice-Presidential Debate

4 October 2016

\end{LARGE}
\end{center}
}

% Although it doesn't save any code by breaking this out into its own 
% function (subroutine), it makes the code easier to parse down below
% in the for loop:
\newcommand{\drawthecard}{\begin{tikzpicture}[draw=black, thick, x=\Size,y=\Size]
\foreach \row in \Sequence{%
    \foreach \col in \Sequence {%
        \pgfmathtruncatemacro{\value}{\col+\NumOfColumns*(\row-1)}
        \pgfmathsetmacro{\ColRowProduce}{\col*\row}
        \IfEq{\ColRowProduce}{9}{% If is center square:
            \filldraw[fill=gray!35, draw=black] ($(\col,-\row)-(1,1)$) rectangle ($(\col,-\row)$) ;
% "Free Space" -- that's the joke:
           \node [scale=1.2] at ($(\col,-\row)-(0.5,0.3)$) {Candidate};
           \node [scale=1.2] at ($(\col,-\row)-(0.5,0.5)$) {Talks Past};
           \node [scale=1.2] at ($(\col,-\row)-(0.5,0.7)$) {Allotted Time}; }{
           \node [Square] at ($(\col,-\row)-(0.5,0.5)$) {\large \NodeText};
        }
    }
}    
\end{tikzpicture}
}

\newcommand{\Size}{3.1cm}
\newcommand{\Sizeinner}{3.0cm}
\tikzset{Square/.style={
inner sep=0pt,
text width=\Sizeinner, 
minimum size=\Size,
draw=black,
align=center,
}
}

\begin{document}
\pagestyle{empty}
%\myItems{this;will;produce;an;error;because;there;aren't;enough;items}

% These items should be contained in a separate file, formatted
% so that it's easier to read and change without altering the original
% LaTeX file:

%\myItems{``Believe me"; Tax returns; Benghazi; Shot of Bill Clinton in audience; Clinton Foundation; ``Make America Great Again"; Tim Kaine; Build ``the wall"; Heckler interrupts debate; Candidate talks past allotted time; Gun ban; NAFTA; Black Lives Matter; ``Basket of deplorables"; Alt-right; Florida; Mike Pence; Moderator interrupts candidate; Free market; ``My record shows ...''; Terrorism; Candidate demands an apology; John McCain; Pam Bondi; Health of candidate; Trump charity; ``Liberal media"; Shot of Melania Trump in audience; ``What do you have to lose?"; China; Taxes; Climate change; Middle East; Emails; ``I've employed thousands of people"; Joke about Trump's hair; Candidate says the other is ``disqualified"; Clinton mentions children--any children; Emails; Temperament; Transparency; ``Stronger Together"; NAFTA; Bankruptcy; Birther; Audience laughs; NATO; ``Tremendous success"; ``I can fix it"; President Obama; Ronald Reagan; Audience claps; Rigged; Trump says he was against the Iraq War; The Second Amendment; Trade agreement; Skittles; Income inequality; Top 1\%; Political correctness }

% read in the list of 'squares' from the file you have written:
\input{vpbingolist.tex}

% start a for-loop to make each page (its own card)
\foreach \n in {0,...,49}{

% select and randomize the entries:
\setItems

% actually draw the card:
\drawthecard

% add the label text:
\biglabel

} % done with the loop


\end{document}
% <EOF>