% !TEX program = xelatex
\documentclass[dvipsnames,14pt,t,xelatex,aspectratio=169,xcolor={table}]{beamer}
\usepackage{../slides}
\usepackage{../graphics}
\usepackage{../langs}
%%\usepackage{../data}
\usetikzlibrary{shapes}
\usepackage[export]{adjustbox}

\hfuzz=220pt 

%\setmonofont[Scale=.88]{Consolas}
%\newfontfamily{\consolas}{Consolas}

\lstset{language=Scala,
        style=mystyle,
        numbersep=0pt,
        numbers=none,
        xleftmargin=0mm}

\newcommand{\bl}[1]{\textcolor{blue}{#1}}     

% beamer stuff 
\renewcommand{\slidecaption}{PEP (Scala) 03, King's College London}

\newcommand{\UParrow}[3]{%
\begin{textblock}{0}(#2,#3)%
\onslide<#1>{%
\begin{tikzpicture}%
\node at (0,0) [single arrow, shape border rotate=90, fill=red,text=red]{a};%
\end{tikzpicture}}%
\end{textblock}}

\newcommand{\DOWNarrow}[3]{%
\begin{textblock}{0}(#2,#3)%
\onslide<#1>{%
\begin{tikzpicture}%
\node at (0,0) [single arrow, shape border rotate=270, fill=red,text=red]{a};%
\end{tikzpicture}}%
\end{textblock}}

\begin{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{frame}[t]
\frametitle{%
  \begin{tabular}{@ {}c@ {}}
  \\[5mm]
  \huge PEP Scala (3) 
  \end{tabular}}

  \normalsize
  \begin{center}
  \begin{tabular}{ll}
    Email:  & christian.urban at kcl.ac.uk\\
    %Office: & N\liningnums{7.07} (North Wing, Bush House)\bigskip\\
    Slides \& Code: & KEATS\bigskip\\
    %Office Hours: &  Thursdays 12:00 -- 14:00\\
    %Additionally: & (for Scala) Tuesdays 10:45 -- 11:45\\ 
  \end{tabular}
  \end{center}

\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
% \begin{frame}[c]
% \frametitle{Preliminary 6}

% Raw marks (261 submissions):\bigskip

% \begin{itemize}
% \item 3\%: \hspace{4mm}219
% \item 2\%: \hspace{4mm}19
% \item 1\%: \hspace{4mm}0
% \item 0\%: \hspace{4mm}23 \;(4 no submission)
% \end{itemize}  
% \end{frame}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{frame}[c,fragile]

\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-1mm]
def collatz(n: Long) : Long =
  {
    val toReturn = collatzHelper(n, 0)
    toReturn
  } 
\end{lstlisting}

\pause
\bigskip
\rule{11cm}{0.3mm}
\bigskip

\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-1mm]
def collatz(n: Long) : Long =
  collatzHelper(n, 0)
\end{lstlisting}

\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{frame}[c,fragile]
\frametitle{Default Arguments}

\small
\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-3mm]
def collatzHelper(n: Int, a: Int = 0) : Int = ...


collatzHelper(n, 3)
collatzHelper(n, 0)

collatzHelper(n)   // a = 0   
\end{lstlisting}

\DOWNarrow{1}{10.7}{3.4}

\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Last Week: Options \& HO Funs.}

\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-1mm]
List(7,2,3,4,5,6).find(_ < 4)
res: Option[Int] = Some(2)
 

List(5,6,7,8,9).find(_ < 4)
res: Option[Int] = None


List(1,2,3,4,5).map(x => x * x)
res: List[Int] = List(1, 4, 9, 16, 25)
\end{lstlisting}
  
  \end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Web-Crawler (1)}

\small
\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-7mm]
def get_page(url: String) : String = {
Try(fromURL(url)("ISO-8859-1").take(10000).mkString)
   .getOrElse { println(s" Problem with: $url"); ""}
}
\end{lstlisting}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Web-Crawler (2)}

\small
\begin{lstlisting}[language=Scala, numbers=none, 
                    xleftmargin=-7mm, escapeinside={(*@}{@*)}]
val http_pattern = """(*@\textcolor{codegreen}{"}@*)https?://[\^(*@\textcolor{codegreen}{"}@*)]*(*@\textcolor{codegreen}{"}@*)""".r
val email_pattern = 
 """([a-z\d\.-]+)@([\da-z\.-]+)\.([a-z\.]{2,6})""".r


def unquote(s: String) = s.drop(1).dropRight(1)


def get_all_URLs(page: String): Set[String] = 
  http_pattern.findAllIn(page).map(unquote).toSet

  // returns all URLs in a page  
\end{lstlisting}
  
  \end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Web-Crawler (3)}

\small
\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-1mm]
def crawl(url: String, n: Int) : Unit = {
  if (n == 0) ()
  else {
    println(s"  Visiting: $n $url")
    val page = get_page(url)
    for (u <- get_all_URLs(page)) 
      crawl(u, n - 1)
  }
}
\end{lstlisting}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Email Harvester}

\small
\begin{lstlisting}[language=Scala, numbers=none, xleftmargin=-3mm]
def emails(url: String, n: Int) : Set[String] = {
 if (n == 0) Set()
 else {
  println(s"  Visiting: $n $url")
  val page = get_page(url)
  val new_emails = 
    email_pattern.findAllIn(page).toSet
  new_emails ++ 
    (for (u <- get_all_URLs(page)) 
       yield emails(u, n - 1)).flatten
 }
} 

\end{lstlisting}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c]
\frametitle{Jumping Towers}

\begin{center}
\begin{tikzpicture}[scale=1.3]
  \draw[line width=1mm,cap=round] (0,0) -- (5,0);
  \draw[line width=1mm,cap=round] (0,1) -- (5,1);

  \draw[line width=1mm,cap=round] (0,0) -- (0,1);
  \node at (0.5,0.5) {\textbf{\Large 3}};

  \draw[line width=1mm,cap=round] (1,0) -- (1,1);
  \node at (1.5,0.5) {\textbf{\Large 4}};

  \draw[line width=1mm,cap=round] (2,0) -- (2,1);
  \node at (2.5,0.5) {\textbf{\Large 2}};

  \draw[line width=1mm,cap=round] (3,0) -- (3,1);
  \node at (3.5,0.5) {\textbf{\Large 0}};
  
  \draw[line width=1mm,cap=round] (4,0) -- (4,1);

  \node at (4.5,0.5) {\textbf{\Large 1}};
  
  \draw[line width=1mm,cap=round] (5,0) -- (5,1);

  \draw[->,line width=0.5mm,cap=round,out=90,in=90,relative] (0.5,1) to (1.5,1);
  \draw[->,line width=0.5mm,cap=round,out=90,in=90,relative] (0.5,1) to (2.5,1);
  \draw[->,line width=0.5mm,cap=round,out=90,in=90,relative] (0.5,1) to (3.5,1);

  \draw[->,line width=0.5mm,cap=round,out=-90,in=-90,relative] (2.5,0) to (3.5,0);
  \draw[->,line width=0.5mm,cap=round,out=-90,in=-90,relative] (2.5,0) to (4.5,0);

  \draw[->,line width=0.5mm,cap=round,out=90,in=90,relative] (4.5,1) to (5.7,1);
  \node at (5.7, 0.8) {End};
\end{tikzpicture}
\end{center}\bigskip


shortest: 3 $\rightarrow$ 4 $\rightarrow$ End

\end{frame}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c]
\frametitle{next moves}

\begin{center}
  \begin{tikzpicture}
    [grow=right,level distance=30mm,child anchor=north,line width=0.5mm]
  \node {$[3,4,2,0,1]$}
     child {node {$[0,1]$}}
     child {node {$[2,0,1]$}
        child {node {$[1]$} child [level distance=13mm] {node {End}}}
        child {node {$[0,1]$}}
     }
     child {node {$[4,2,0,1]$\ldots}};
\end{tikzpicture}
\end{center}

\begin{textblock}{4}(13,12)
\includegraphics[scale=0.06]{../pics/chess.jpg}
\end{textblock}

\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
\begin{frame}[c,fragile]
\frametitle{Reverse Polish Notation}

{\Large\bl{$(3 + 1) * (2 + 9)$}}\bigskip

{\Large$\Rightarrow$}\bigskip

{\;\;\Large\bl{$3\;\;1\;+\;2\;\;9\;+\;*$}}

\begin{textblock}{3}(11,4)
\begin{onlyenv}<2>
\begin{lstlisting}[language=JVMIS]
ldc 3
ldc 1
iadd
ldc 2
ldc 9
iadd
imul
\end{lstlisting}
\end{onlyenv} 
\end{textblock}

\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
% \begin{frame}[c,fragile]
% \frametitle{Sudoku}

% A very simple-minded version on 110 problems:\bigskip

% \begin{itemize}
% \item 1 core: 800 secs
% \item 2 cores: 400 secs
% \item 8 cores: 290 secs
% \item 18 cores: 142 secs
% \end{itemize}

% \end{frame}
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \begin{frame}[t]

%   \begin{center}  
%   \includegraphics[scale=0.3]{../pics/blow.png}
%   \end{center}
  
%   \begin{textblock}{14}(2,11.4)
%   \large\bf{}Mind-Blowing Programming Languages:\\ 
%   \centering JavaScript
%   \end{textblock}
% \end{frame}
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}<1-10>
\end{frame}

\end{document}


\end{document}

%%% Local Variables:  
%%% mode: latex
%%% TeX-master: t
%%% End: