Lecture17.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In this notebook, we will learn how to use regular expression to solve problems such as:\n",
    "\n",
    "* [Detect matches](#Detect-matches)\n",
    "* [Extract matches](#Extract-matches)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading tidyverse: ggplot2\n",
      "Loading tidyverse: tibble\n",
      "Loading tidyverse: tidyr\n",
      "Loading tidyverse: readr\n",
      "Loading tidyverse: purrr\n",
      "Loading tidyverse: dplyr\n",
      "Conflicts with tidy packages ---------------------------------------------------\n",
      "filter(): dplyr, stats\n",
      "lag():    dplyr, stats\n"
     ]
    }
   ],
   "source": [
    "library(tidyverse)\n",
    "library(stringr)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Detect matches"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>TRUE</li>\n",
       "\t<li>FALSE</li>\n",
       "\t<li>TRUE</li>\n",
       "\t<li>TRUE</li>\n",
       "\t<li>FALSE</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item TRUE\n",
       "\\item FALSE\n",
       "\\item TRUE\n",
       "\\item TRUE\n",
       "\\item FALSE\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. TRUE\n",
       "2. FALSE\n",
       "3. TRUE\n",
       "4. TRUE\n",
       "5. FALSE\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  TRUE FALSE  TRUE  TRUE FALSE"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x <- c(\"x-ray\", \"something\", \"xylophone\", \"xenophobia\", \"nothing\")\n",
    "str_detect(x, \"^x\") # which strings start with x?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'a'</li>\n",
       "\t<li>'able'</li>\n",
       "\t<li>'about'</li>\n",
       "\t<li>'absolute'</li>\n",
       "\t<li>'accept'</li>\n",
       "\t<li>'account'</li>\n",
       "\t<li>'achieve'</li>\n",
       "\t<li>'across'</li>\n",
       "\t<li>'act'</li>\n",
       "\t<li>'active'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'a'\n",
       "\\item 'able'\n",
       "\\item 'about'\n",
       "\\item 'absolute'\n",
       "\\item 'accept'\n",
       "\\item 'account'\n",
       "\\item 'achieve'\n",
       "\\item 'across'\n",
       "\\item 'act'\n",
       "\\item 'active'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'a'\n",
       "2. 'able'\n",
       "3. 'about'\n",
       "4. 'absolute'\n",
       "5. 'accept'\n",
       "6. 'account'\n",
       "7. 'achieve'\n",
       "8. 'across'\n",
       "9. 'act'\n",
       "10. 'active'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"a\"        \"able\"     \"about\"    \"absolute\" \"accept\"   \"account\" \n",
       " [7] \"achieve\"  \"across\"   \"act\"      \"active\"  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(words, 10) # words is a predefined character vector "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "65"
      ],
      "text/latex": [
       "65"
      ],
      "text/markdown": [
       "65"
      ],
      "text/plain": [
       "[1] 65"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sum(str_detect(words, \"^a\")) # no. of words that start with a"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"65 words start with a\"\n",
      "[1] \"58 words start with b\"\n",
      "[1] \"83 words start with c\"\n",
      "[1] \"43 words start with d\"\n",
      "[1] \"45 words start with e\"\n",
      "[1] \"54 words start with f\"\n",
      "[1] \"23 words start with g\"\n",
      "[1] \"38 words start with h\"\n",
      "[1] \"25 words start with i\"\n",
      "[1] \"6 words start with j\"\n",
      "[1] \"9 words start with k\"\n",
      "[1] \"45 words start with l\"\n",
      "[1] \"45 words start with m\"\n",
      "[1] \"23 words start with n\"\n",
      "[1] \"28 words start with o\"\n",
      "[1] \"72 words start with p\"\n",
      "[1] \"7 words start with q\"\n",
      "[1] \"46 words start with r\"\n",
      "[1] \"119 words start with s\"\n",
      "[1] \"65 words start with t\"\n",
      "[1] \"12 words start with u\"\n",
      "[1] \"8 words start with v\"\n",
      "[1] \"53 words start with w\"\n",
      "[1] \"0 words start with x\"\n",
      "[1] \"6 words start with y\"\n",
      "[1] \"0 words start with z\"\n"
     ]
    }
   ],
   "source": [
    "# for every letter, find how many words start with it\n",
    "for (let in letters) {\n",
    "    print(sprintf(\"%d words start with %s\", sum(str_detect(words, str_c(\"^\", let))), let))\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "6"
      ],
      "text/latex": [
       "6"
      ],
      "text/markdown": [
       "6"
      ],
      "text/plain": [
       "[1] 6"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sum(str_detect(words, \"^[^aeiou]*$\")) # no. of words with no vowels"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'by'</li>\n",
       "\t<li>'dry'</li>\n",
       "\t<li>'fly'</li>\n",
       "\t<li>'mrs'</li>\n",
       "\t<li>'try'</li>\n",
       "\t<li>'why'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'by'\n",
       "\\item 'dry'\n",
       "\\item 'fly'\n",
       "\\item 'mrs'\n",
       "\\item 'try'\n",
       "\\item 'why'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'by'\n",
       "2. 'dry'\n",
       "3. 'fly'\n",
       "4. 'mrs'\n",
       "5. 'try'\n",
       "6. 'why'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"by\"  \"dry\" \"fly\" \"mrs\" \"try\" \"why\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "words[str_detect(words, \"^[^aeiou]*$\")] # logical subsetting to get the words themselves"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'by'</li>\n",
       "\t<li>'dry'</li>\n",
       "\t<li>'fly'</li>\n",
       "\t<li>'mrs'</li>\n",
       "\t<li>'try'</li>\n",
       "\t<li>'why'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'by'\n",
       "\\item 'dry'\n",
       "\\item 'fly'\n",
       "\\item 'mrs'\n",
       "\\item 'try'\n",
       "\\item 'why'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'by'\n",
       "2. 'dry'\n",
       "3. 'fly'\n",
       "4. 'mrs'\n",
       "5. 'try'\n",
       "6. 'why'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"by\"  \"dry\" \"fly\" \"mrs\" \"try\" \"why\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_subset(words, \"^[^aeiou]*$\") # str_subset is a convenient shortcut"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'a'"
      ],
      "text/latex": [
       "'a'"
      ],
      "text/markdown": [
       "'a'"
      ],
      "text/plain": [
       "[1] \"a\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_subset(words, \"^[aeiou]*$\") # words with only vowels"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "df <- tibble(\n",
    "  word = words, \n",
    "  i = seq_along(word)\n",
    ")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "# A tibble: 980 x 2\n",
      "       word     i\n",
      "      <chr> <int>\n",
      " 1        a     1\n",
      " 2     able     2\n",
      " 3    about     3\n",
      " 4 absolute     4\n",
      " 5   accept     5\n",
      " 6  account     6\n",
      " 7  achieve     7\n",
      " 8   across     8\n",
      " 9      act     9\n",
      "10   active    10\n",
      "# ... with 970 more rows\n"
     ]
    }
   ],
   "source": [
    "print(df)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>word</th><th scope=col>i</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>quality </td><td>665     </td></tr>\n",
       "\t<tr><td>quarter </td><td>666     </td></tr>\n",
       "\t<tr><td>question</td><td>667     </td></tr>\n",
       "\t<tr><td>quick   </td><td>668     </td></tr>\n",
       "\t<tr><td>quid    </td><td>669     </td></tr>\n",
       "\t<tr><td>quiet   </td><td>670     </td></tr>\n",
       "\t<tr><td>quite   </td><td>671     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " word & i\\\\\n",
       "\\hline\n",
       "\t quality  & 665     \\\\\n",
       "\t quarter  & 666     \\\\\n",
       "\t question & 667     \\\\\n",
       "\t quick    & 668     \\\\\n",
       "\t quid     & 669     \\\\\n",
       "\t quiet    & 670     \\\\\n",
       "\t quite    & 671     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "word | i | \n",
       "|---|---|---|---|---|---|---|\n",
       "| quality  | 665      | \n",
       "| quarter  | 666      | \n",
       "| question | 667      | \n",
       "| quick    | 668      | \n",
       "| quid     | 669      | \n",
       "| quiet    | 670      | \n",
       "| quite    | 671      | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  word     i  \n",
       "1 quality  665\n",
       "2 quarter  666\n",
       "3 question 667\n",
       "4 quick    668\n",
       "5 quid     669\n",
       "6 quiet    670\n",
       "7 quite    671"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "df %>%\n",
    "    filter(str_detect(word, \"^q\")) # can use str_detect with the dplyr verb filter"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<!DOCTYPE html>\n",
       "<html>\n",
       "<head>\n",
       "<meta charset=\"utf-8\" />\n",
       "<script src=\"data:application/x-javascript;base64,KGZ1bmN0aW9uKCkgewogIC8vIElmIHdpbmRvdy5IVE1MV2lkZ2V0cyBpcyBhbHJlYWR5IGRlZmluZWQsIHRoZW4gdXNlIGl0OyBvdGhlcndpc2UgY3JlYXRlIGEKICAvLyBuZXcgb2JqZWN0LiBUaGlzIGFsbG93cyBwcmVjZWRpbmcgY29kZSB0byBzZXQgb3B0aW9ucyB0aGF0IGFmZmVjdCB0aGUKICAvLyBpbml0aWFsaXphdGlvbiBwcm9jZXNzICh0aG91Z2ggbm9uZSBjdXJyZW50bHkgZXhpc3QpLgogIHdpbmRvdy5IVE1MV2lkZ2V0cyA9IHdpbmRvdy5IVE1MV2lkZ2V0cyB8fCB7fTsKCiAgLy8gU2VlIGlmIHdlJ3JlIHJ1bm5pbmcgaW4gYSB2aWV3ZXIgcGFuZS4gSWYgbm90LCB3ZSdyZSBpbiBhIHdlYiBicm93c2VyLgogIHZhciB2aWV3ZXJNb2RlID0gd2luZG93LkhUTUxXaWRnZXRzLnZpZXdlck1vZGUgPQogICAgICAvXGJ2aWV3ZXJfcGFuZT0xXGIvLnRlc3Qod2luZG93LmxvY2F0aW9uKTsKCiAgLy8gU2VlIGlmIHdlJ3JlIHJ1bm5pbmcgaW4gU2hpbnkgbW9kZS4gSWYgbm90LCBpdCdzIGEgc3RhdGljIGRvY3VtZW50LgogIC8vIE5vdGUgdGhhdCBzdGF0aWMgd2lkZ2V0cyBjYW4gYXBwZWFyIGluIGJvdGggU2hpbnkgYW5kIHN0YXRpYyBtb2RlcywgYnV0CiAgLy8gb2J2aW91c2x5LCBTaGlueSB3aWRnZXRzIGNhbiBvbmx5IGFwcGVhciBpbiBTaGlueSBhcHBzL2RvY3VtZW50cy4KICB2YXIgc2hpbnlNb2RlID0gd2luZG93LkhUTUxXaWRnZXRzLnNoaW55TW9kZSA9CiAgICAgIHR5cGVvZih3aW5kb3cuU2hpbnkpICE9PSAidW5kZWZpbmVkIiAmJiAhIXdpbmRvdy5TaGlueS5vdXRwdXRCaW5kaW5nczsKCiAgLy8gV2UgY2FuJ3QgY291bnQgb24galF1ZXJ5IGJlaW5nIGF2YWlsYWJsZSwgc28gd2UgaW1wbGVtZW50IG91ciBvd24KICAvLyB2ZXJzaW9uIGlmIG5lY2Vzc2FyeS4KICBmdW5jdGlvbiBxdWVyeVNlbGVjdG9yQWxsKHNjb3BlLCBzZWxlY3RvcikgewogICAgaWYgKHR5cGVvZihqUXVlcnkpICE9PSAidW5kZWZpbmVkIiAmJiBzY29wZSBpbnN0YW5jZW9mIGpRdWVyeSkgewogICAgICByZXR1cm4gc2NvcGUuZmluZChzZWxlY3Rvcik7CiAgICB9CiAgICBpZiAoc2NvcGUucXVlcnlTZWxlY3RvckFsbCkgewogICAgICByZXR1cm4gc2NvcGUucXVlcnlTZWxlY3RvckFsbChzZWxlY3Rvcik7CiAgICB9CiAgfQoKICBmdW5jdGlvbiBhc0FycmF5KHZhbHVlKSB7CiAgICBpZiAodmFsdWUgPT09IG51bGwpCiAgICAgIHJldHVybiBbXTsKICAgIGlmICgkLmlzQXJyYXkodmFsdWUpKQogICAgICByZXR1cm4gdmFsdWU7CiAgICByZXR1cm4gW3ZhbHVlXTsKICB9CgogIC8vIEltcGxlbWVudCBqUXVlcnkncyBleHRlbmQKICBmdW5jdGlvbiBleHRlbmQodGFyZ2V0IC8qLCAuLi4gKi8pIHsKICAgIGlmIChhcmd1bWVudHMubGVuZ3RoID09IDEpIHsKICAgICAgcmV0dXJuIHRhcmdldDsKICAgIH0KICAgIGZvciAodmFyIGkgPSAxOyBpIDwgYXJndW1lbnRzLmxlbmd0aDsgaSsrKSB7CiAgICAgIHZhciBzb3VyY2UgPSBhcmd1bWVudHNbaV07CiAgICAgIGZvciAodmFyIHByb3AgaW4gc291cmNlKSB7CiAgICAgICAgaWYgKHNvdXJjZS5oYXNPd25Qcm9wZXJ0eShwcm9wKSkgewogICAgICAgICAgdGFyZ2V0W3Byb3BdID0gc291cmNlW3Byb3BdOwogICAgICAgIH0KICAgICAgfQogICAgfQogICAgcmV0dXJuIHRhcmdldDsKICB9CgogIC8vIElFOCBkb2Vzbid0IHN1cHBvcnQgQXJyYXkuZm9yRWFjaC4KICBmdW5jdGlvbiBmb3JFYWNoKHZhbHVlcywgY2FsbGJhY2ssIHRoaXNBcmcpIHsKICAgIGlmICh2YWx1ZXMuZm9yRWFjaCkgewogICAgICB2YWx1ZXMuZm9yRWFjaChjYWxsYmFjaywgdGhpc0FyZyk7CiAgICB9IGVsc2UgewogICAgICBmb3IgKHZhciBpID0gMDsgaSA8IHZhbHVlcy5sZW5ndGg7IGkrKykgewogICAgICAgIGNhbGxiYWNrLmNhbGwodGhpc0FyZywgdmFsdWVzW2ldLCBpLCB2YWx1ZXMpOwogICAgICB9CiAgICB9CiAgfQoKICAvLyBSZXBsYWNlcyB0aGUgc3BlY2lmaWVkIG1ldGhvZCB3aXRoIHRoZSByZXR1cm4gdmFsdWUgb2YgZnVuY1NvdXJjZS4KICAvLwogIC8vIE5vdGUgdGhhdCBmdW5jU291cmNlIHNob3VsZCBub3QgQkUgdGhlIG5ldyBtZXRob2QsIGl0IHNob3VsZCBiZSBhIGZ1bmN0aW9uCiAgLy8gdGhhdCBSRVRVUk5TIHRoZSBuZXcgbWV0aG9kLiBmdW5jU291cmNlIHJlY2VpdmVzIGEgc2luZ2xlIGFyZ3VtZW50IHRoYXQgaXMKICAvLyB0aGUgb3ZlcnJpZGRlbiBtZXRob2QsIGl0IGNhbiBiZSBjYWxsZWQgZnJvbSB0aGUgbmV3IG1ldGhvZC4gVGhlIG92ZXJyaWRkZW4KICAvLyBtZXRob2QgY2FuIGJlIGNhbGxlZCBsaWtlIGEgcmVndWxhciBmdW5jdGlvbiwgaXQgaGFzIHRoZSB0YXJnZXQgcGVybWFuZW50bHkKICAvLyBib3VuZCB0byBpdCBzbyAidGhpcyIgd2lsbCB3b3JrIGNvcnJlY3RseS4KICBmdW5jdGlvbiBvdmVycmlkZU1ldGhvZCh0YXJnZXQsIG1ldGhvZE5hbWUsIGZ1bmNTb3VyY2UpIHsKICAgIHZhciBzdXBlckZ1bmMgPSB0YXJnZXRbbWV0aG9kTmFtZV0gfHwgZnVuY3Rpb24oKSB7fTsKICAgIHZhciBzdXBlckZ1bmNCb3VuZCA9IGZ1bmN0aW9uKCkgewogICAgICByZXR1cm4gc3VwZXJGdW5jLmFwcGx5KHRhcmdldCwgYXJndW1lbnRzKTsKICAgIH07CiAgICB0YXJnZXRbbWV0aG9kTmFtZV0gPSBmdW5jU291cmNlKHN1cGVyRnVuY0JvdW5kKTsKICB9CgogIC8vIEFkZCBhIG1ldGhvZCB0byBkZWxlZ2F0b3IgdGhhdCwgd2hlbiBpbnZva2VkLCBjYWxscwogIC8vIGRlbGVnYXRlZS5tZXRob2ROYW1lLiBJZiB0aGVyZSBpcyBubyBzdWNoIG1ldGhvZCBvbgogIC8vIHRoZSBkZWxlZ2F0ZWUsIGJ1dCB0aGVyZSB3YXMgb25lIG9uIGRlbGVnYXRvciBiZWZvcmUKICAvLyBkZWxlZ2F0ZU1ldGhvZCB3YXMgY2FsbGVkLCB0aGVuIHRoZSBvcmlnaW5hbCB2ZXJzaW9uCiAgLy8gaXMgaW52b2tlZCBpbnN0ZWFkLgogIC8vIEZvciBleGFtcGxlOgogIC8vCiAgLy8gdmFyIGEgPSB7CiAgLy8gICBtZXRob2QxOiBmdW5jdGlvbigpIHsgY29uc29sZS5sb2coJ2ExJyk7IH0KICAvLyAgIG1ldGhvZDI6IGZ1bmN0aW9uKCkgeyBjb25zb2xlLmxvZygnYTInKTsgfQogIC8vIH07CiAgLy8gdmFyIGIgPSB7CiAgLy8gICBtZXRob2QxOiBmdW5jdGlvbigpIHsgY29uc29sZS5sb2coJ2IxJyk7IH0KICAvLyB9OwogIC8vIGRlbGVnYXRlTWV0aG9kKGEsIGIsICJtZXRob2QxIik7CiAgLy8gZGVsZWdhdGVNZXRob2QoYSwgYiwgIm1ldGhvZDIiKTsKICAvLyBhLm1ldGhvZDEoKTsKICAvLyBhLm1ldGhvZDIoKTsKICAvLwogIC8vIFRoZSBvdXRwdXQgd291bGQgYmUgImIxIiwgImEyIi4KICBmdW5jdGlvbiBkZWxlZ2F0ZU1ldGhvZChkZWxlZ2F0b3IsIGRlbGVnYXRlZSwgbWV0aG9kTmFtZSkgewogICAgdmFyIGluaGVyaXRlZCA9IGRlbGVnYXRvclttZXRob2ROYW1lXTsKICAgIGRlbGVnYXRvclttZXRob2ROYW1lXSA9IGZ1bmN0aW9uKCkgewogICAgICB2YXIgdGFyZ2V0ID0gZGVsZWdhdGVlOwogICAgICB2YXIgbWV0aG9kID0gZGVsZWdhdGVlW21ldGhvZE5hbWVdOwoKICAgICAgLy8gVGhlIG1ldGhvZCBkb2Vzbid0IGV4aXN0IG9uIHRoZSBkZWxlZ2F0ZWUuIEluc3RlYWQsCiAgICAgIC8vIGNhbGwgdGhlIG1ldGhvZCBvbiB0aGUgZGVsZWdhdG9yLCBpZiBpdCBleGlzdHMuCiAgICAgIGlmICghbWV0aG9kKSB7CiAgICAgICAgdGFyZ2V0ID0gZGVsZWdhdG9yOwogICAgICAgIG1ldGhvZCA9IGluaGVyaXRlZDsKICAgICAgfQoKICAgICAgaWYgKG1ldGhvZCkgewogICAgICAgIHJldHVybiBtZXRob2QuYXBwbHkodGFyZ2V0LCBhcmd1bWVudHMpOwogICAgICB9CiAgICB9OwogIH0KCiAgLy8gSW1wbGVtZW50IGEgdmFndWUgZmFjc2ltaWxpZSBvZiBqUXVlcnkncyBkYXRhIG1ldGhvZAogIGZ1bmN0aW9uIGVsZW1lbnREYXRhKGVsLCBuYW1lLCB2YWx1ZSkgewogICAgaWYgKGFyZ3VtZW50cy5sZW5ndGggPT0gMikgewogICAgICByZXR1cm4gZWxbImh0bWx3aWRnZXRfZGF0YV8iICsgbmFtZV07CiAgICB9IGVsc2UgaWYgKGFyZ3VtZW50cy5sZW5ndGggPT0gMykgewogICAgICBlbFsiaHRtbHdpZGdldF9kYXRhXyIgKyBuYW1lXSA9IHZhbHVlOwogICAgICByZXR1cm4gZWw7CiAgICB9IGVsc2UgewogICAgICB0aHJvdyBuZXcgRXJyb3IoIldyb25nIG51bWJlciBvZiBhcmd1bWVudHMgZm9yIGVsZW1lbnREYXRhOiAiICsKICAgICAgICBhcmd1bWVudHMubGVuZ3RoKTsKICAgIH0KICB9CgogIC8vIGh0dHA6Ly9zdGFja292ZXJmbG93LmNvbS9xdWVzdGlvbnMvMzQ0NjE3MC9lc2NhcGUtc3RyaW5nLWZvci11c2UtaW4tamF2YXNjcmlwdC1yZWdleAogIGZ1bmN0aW9uIGVzY2FwZVJlZ0V4cChzdHIpIHsKICAgIHJldHVybiBzdHIucmVwbGFjZSgvW1wtXFtcXVwvXHtcfVwoXClcKlwrXD9cLlxcXF5cJFx8XS9nLCAiXFwkJiIpOwogIH0KCiAgZnVuY3Rpb24gaGFzQ2xhc3MoZWwsIGNsYXNzTmFtZSkgewogICAgdmFyIHJlID0gbmV3IFJlZ0V4cCgiXFxiIiArIGVzY2FwZVJlZ0V4cChjbGFzc05hbWUpICsgIlxcYiIpOwogICAgcmV0dXJuIHJlLnRlc3QoZWwuY2xhc3NOYW1lKTsKICB9CgogIC8vIGVsZW1lbnRzIC0gYXJyYXkgKG9yIGFycmF5LWxpa2Ugb2JqZWN0KSBvZiBIVE1MIGVsZW1lbnRzCiAgLy8gY2xhc3NOYW1lIC0gY2xhc3MgbmFtZSB0byB0ZXN0IGZvcgogIC8vIGluY2x1ZGUgLSBpZiB0cnVlLCBvbmx5IHJldHVybiBlbGVtZW50cyB3aXRoIGdpdmVuIGNsYXNzTmFtZTsKICAvLyAgIGlmIGZhbHNlLCBvbmx5IHJldHVybiBlbGVtZW50cyAqd2l0aG91dCogZ2l2ZW4gY2xhc3NOYW1lCiAgZnVuY3Rpb24gZmlsdGVyQnlDbGFzcyhlbGVtZW50cywgY2xhc3NOYW1lLCBpbmNsdWRlKSB7CiAgICB2YXIgcmVzdWx0cyA9IFtdOwogICAgZm9yICh2YXIgaSA9IDA7IGkgPCBlbGVtZW50cy5sZW5ndGg7IGkrKykgewogICAgICBpZiAoaGFzQ2xhc3MoZWxlbWVudHNbaV0sIGNsYXNzTmFtZSkgPT0gaW5jbHVkZSkKICAgICAgICByZXN1bHRzLnB1c2goZWxlbWVudHNbaV0pOwogICAgfQogICAgcmV0dXJuIHJlc3VsdHM7CiAgfQoKICBmdW5jdGlvbiBvbihvYmosIGV2ZW50TmFtZSwgZnVuYykgewogICAgaWYgKG9iai5hZGRFdmVudExpc3RlbmVyKSB7CiAgICAgIG9iai5hZGRFdmVudExpc3RlbmVyKGV2ZW50TmFtZSwgZnVuYywgZmFsc2UpOwogICAgfSBlbHNlIGlmIChvYmouYXR0YWNoRXZlbnQpIHsKICAgICAgb2JqLmF0dGFjaEV2ZW50KGV2ZW50TmFtZSwgZnVuYyk7CiAgICB9CiAgfQoKICBmdW5jdGlvbiBvZmYob2JqLCBldmVudE5hbWUsIGZ1bmMpIHsKICAgIGlmIChvYmoucmVtb3ZlRXZlbnRMaXN0ZW5lcikKICAgICAgb2JqLnJlbW92ZUV2ZW50TGlzdGVuZXIoZXZlbnROYW1lLCBmdW5jLCBmYWxzZSk7CiAgICBlbHNlIGlmIChvYmouZGV0YWNoRXZlbnQpIHsKICAgICAgb2JqLmRldGFjaEV2ZW50KGV2ZW50TmFtZSwgZnVuYyk7CiAgICB9CiAgfQoKICAvLyBUcmFuc2xhdGUgYXJyYXkgb2YgdmFsdWVzIHRvIHRvcC9yaWdodC9ib3R0b20vbGVmdCwgYXMgdXN1YWwgd2l0aAogIC8vIHRoZSAicGFkZGluZyIgQ1NTIHByb3BlcnR5CiAgLy8gaHR0cHM6Ly9kZXZlbG9wZXIubW96aWxsYS5vcmcvZW4tVVMvZG9jcy9XZWIvQ1NTL3BhZGRpbmcKICBmdW5jdGlvbiB1bnBhY2tQYWRkaW5nKHZhbHVlKSB7CiAgICBpZiAodHlwZW9mKHZhbHVlKSA9PT0gIm51bWJlciIpCiAgICAgIHZhbHVlID0gW3ZhbHVlXTsKICAgIGlmICh2YWx1ZS5sZW5ndGggPT09IDEpIHsKICAgICAgcmV0dXJuIHt0b3A6IHZhbHVlWzBdLCByaWdodDogdmFsdWVbMF0sIGJvdHRvbTogdmFsdWVbMF0sIGxlZnQ6IHZhbHVlWzBdfTsKICAgIH0KICAgIGlmICh2YWx1ZS5sZW5ndGggPT09IDIpIHsKICAgICAgcmV0dXJuIHt0b3A6IHZhbHVlWzBdLCByaWdodDogdmFsdWVbMV0sIGJvdHRvbTogdmFsdWVbMF0sIGxlZnQ6IHZhbHVlWzFdfTsKICAgIH0KICAgIGlmICh2YWx1ZS5sZW5ndGggPT09IDMpIHsKICAgICAgcmV0dXJuIHt0b3A6IHZhbHVlWzBdLCByaWdodDogdmFsdWVbMV0sIGJvdHRvbTogdmFsdWVbMl0sIGxlZnQ6IHZhbHVlWzFdfTsKICAgIH0KICAgIGlmICh2YWx1ZS5sZW5ndGggPT09IDQpIHsKICAgICAgcmV0dXJuIHt0b3A6IHZhbHVlWzBdLCByaWdodDogdmFsdWVbMV0sIGJvdHRvbTogdmFsdWVbMl0sIGxlZnQ6IHZhbHVlWzNdfTsKICAgIH0KICB9CgogIC8vIENvbnZlcnQgYW4gdW5wYWNrZWQgcGFkZGluZyBvYmplY3QgdG8gYSBDU1MgdmFsdWUKICBmdW5jdGlvbiBwYWRkaW5nVG9Dc3MocGFkZGluZ09iaikgewogICAgcmV0dXJuIHBhZGRpbmdPYmoudG9wICsgInB4ICIgKyBwYWRkaW5nT2JqLnJpZ2h0ICsgInB4ICIgKyBwYWRkaW5nT2JqLmJvdHRvbSArICJweCAiICsgcGFkZGluZ09iai5sZWZ0ICsgInB4IjsKICB9CgogIC8vIE1ha2VzIGEgbnVtYmVyIHN1aXRhYmxlIGZvciBDU1MKICBmdW5jdGlvbiBweCh4KSB7CiAgICBpZiAodHlwZW9mKHgpID09PSAibnVtYmVyIikKICAgICAgcmV0dXJuIHggKyAicHgiOwogICAgZWxzZQogICAgICByZXR1cm4geDsKICB9CgogIC8vIFJldHJpZXZlcyBydW50aW1lIHdpZGdldCBzaXppbmcgaW5mb3JtYXRpb24gZm9yIGFuIGVsZW1lbnQuCiAgLy8gVGhlIHJldHVybiB2YWx1ZSBpcyBlaXRoZXIgbnVsbCwgb3IgYW4gb2JqZWN0IHdpdGggZmlsbCwgcGFkZGluZywKICAvLyBkZWZhdWx0V2lkdGgsIGRlZmF1bHRIZWlnaHQgZmllbGRzLgogIGZ1bmN0aW9uIHNpemluZ1BvbGljeShlbCkgewogICAgdmFyIHNpemluZ0VsID0gZG9jdW1lbnQucXVlcnlTZWxlY3Rvcigic2NyaXB0W2RhdGEtZm9yPSciICsgZWwuaWQgKyAiJ11bdHlwZT0nYXBwbGljYXRpb24vaHRtbHdpZGdldC1zaXppbmcnXSIpOwogICAgaWYgKCFzaXppbmdFbCkKICAgICAgcmV0dXJuIG51bGw7CiAgICB2YXIgc3AgPSBKU09OLnBhcnNlKHNpemluZ0VsLnRleHRDb250ZW50IHx8IHNpemluZ0VsLnRleHQgfHwgInt9Iik7CiAgICBpZiAodmlld2VyTW9kZSkgewogICAgICByZXR1cm4gc3Audmlld2VyOwogICAgfSBlbHNlIHsKICAgICAgcmV0dXJuIHNwLmJyb3dzZXI7CiAgICB9CiAgfQoKICAvLyBAcGFyYW0gdGFza3MgQXJyYXkgb2Ygc3RyaW5ncyAob3IgZmFsc3kgdmFsdWUsIGluIHdoaWNoIGNhc2Ugbm8tb3ApLgogIC8vICAgRWFjaCBlbGVtZW50IG11c3QgYmUgYSB2YWxpZCBKYXZhU2NyaXB0IGV4cHJlc3Npb24gdGhhdCB5aWVsZHMgYQogIC8vICAgZnVuY3Rpb24uIE9yLCBjYW4gYmUgYW4gYXJyYXkgb2Ygb2JqZWN0cyB3aXRoICJjb2RlIiBhbmQgImRhdGEiCiAgLy8gICBwcm9wZXJ0aWVzOyBpbiB0aGlzIGNhc2UsIHRoZSAiY29kZSIgcHJvcGVydHkgc2hvdWxkIGJlIGEgc3RyaW5nCiAgLy8gICBvZiBKUyB0aGF0J3MgYW4gZXhwciB0aGF0IHlpZWxkcyBhIGZ1bmN0aW9uLCBhbmQgImRhdGEiIHNob3VsZCBiZQogIC8vICAgYW4gb2JqZWN0IHRoYXQgd2lsbCBiZSBhZGRlZCBhcyBhbiBhZGRpdGlvbmFsIGFyZ3VtZW50IHdoZW4gdGhhdAogIC8vICAgZnVuY3Rpb24gaXMgY2FsbGVkLgogIC8vIEBwYXJhbSB0YXJnZXQgVGhlIG9iamVjdCB0aGF0IHdpbGwgYmUgInRoaXMiIGZvciBlYWNoIGZ1bmN0aW9uCiAgLy8gICBleGVjdXRpb24uCiAgLy8gQHBhcmFtIGFyZ3MgQXJyYXkgb2YgYXJndW1lbnRzIHRvIGJlIHBhc3NlZCB0byB0aGUgZnVuY3Rpb25zLiAoVGhlCiAgLy8gICBzYW1lIGFyZ3VtZW50cyB3aWxsIGJlIHBhc3NlZCB0byBhbGwgZnVuY3Rpb25zLikKICBmdW5jdGlvbiBldmFsQW5kUnVuKHRhc2tzLCB0YXJnZXQsIGFyZ3MpIHsKICAgIGlmICh0YXNrcykgewogICAgICBmb3JFYWNoKHRhc2tzLCBmdW5jdGlvbih0YXNrKSB7CiAgICAgICAgdmFyIHRoZXNlQXJncyA9IGFyZ3M7CiAgICAgICAgaWYgKHR5cGVvZih0YXNrKSA9PT0gIm9iamVjdCIpIHsKICAgICAgICAgIHRoZXNlQXJncyA9IHRoZXNlQXJncy5jb25jYXQoW3Rhc2suZGF0YV0pOwogICAgICAgICAgdGFzayA9IHRhc2suY29kZTsKICAgICAgICB9CiAgICAgICAgdmFyIHRhc2tGdW5jID0gZXZhbCgiKCIgKyB0YXNrICsgIikiKTsKICAgICAgICBpZiAodHlwZW9mKHRhc2tGdW5jKSAhPT0gImZ1bmN0aW9uIikgewogICAgICAgICAgdGhyb3cgbmV3IEVycm9yKCJUYXNrIG11c3QgYmUgYSBmdW5jdGlvbiEgU291cmNlOlxuIiArIHRhc2spOwogICAgICAgIH0KICAgICAgICB0YXNrRnVuYy5hcHBseSh0YXJnZXQsIHRoZXNlQXJncyk7CiAgICAgIH0pOwogICAgfQogIH0KCiAgZnVuY3Rpb24gaW5pdFNpemluZyhlbCkgewogICAgdmFyIHNpemluZyA9IHNpemluZ1BvbGljeShlbCk7CiAgICBpZiAoIXNpemluZykKICAgICAgcmV0dXJuOwoKICAgIHZhciBjZWwgPSBkb2N1bWVudC5nZXRFbGVtZW50QnlJZCgiaHRtbHdpZGdldF9jb250YWluZXIiKTsKICAgIGlmICghY2VsKQogICAgICByZXR1cm47CgogICAgaWYgKHR5cGVvZihzaXppbmcucGFkZGluZykgIT09ICJ1bmRlZmluZWQiKSB7CiAgICAgIGRvY3VtZW50LmJvZHkuc3R5bGUubWFyZ2luID0gIjAiOwogICAgICBkb2N1bWVudC5ib2R5LnN0eWxlLnBhZGRpbmcgPSBwYWRkaW5nVG9Dc3ModW5wYWNrUGFkZGluZyhzaXppbmcucGFkZGluZykpOwogICAgfQoKICAgIGlmIChzaXppbmcuZmlsbCkgewogICAgICBkb2N1bWVudC5ib2R5LnN0eWxlLm92ZXJmbG93ID0gImhpZGRlbiI7CiAgICAgIGRvY3VtZW50LmJvZHkuc3R5bGUud2lkdGggPSAiMTAwJSI7CiAgICAgIGRvY3VtZW50LmJvZHkuc3R5bGUuaGVpZ2h0ID0gIjEwMCUiOwogICAgICBkb2N1bWVudC5kb2N1bWVudEVsZW1lbnQuc3R5bGUud2lkdGggPSAiMTAwJSI7CiAgICAgIGRvY3VtZW50LmRvY3VtZW50RWxlbWVudC5zdHlsZS5oZWlnaHQgPSAiMTAwJSI7CiAgICAgIGlmIChjZWwpIHsKICAgICAgICBjZWwuc3R5bGUucG9zaXRpb24gPSAiYWJzb2x1dGUiOwogICAgICAgIHZhciBwYWQgPSB1bnBhY2tQYWRkaW5nKHNpemluZy5wYWRkaW5nKTsKICAgICAgICBjZWwuc3R5bGUudG9wID0gcGFkLnRvcCArICJweCI7CiAgICAgICAgY2VsLnN0eWxlLnJpZ2h0ID0gcGFkLnJpZ2h0ICsgInB4IjsKICAgICAgICBjZWwuc3R5bGUuYm90dG9tID0gcGFkLmJvdHRvbSArICJweCI7CiAgICAgICAgY2VsLnN0eWxlLmxlZnQgPSBwYWQubGVmdCArICJweCI7CiAgICAgICAgZWwuc3R5bGUud2lkdGggPSAiMTAwJSI7CiAgICAgICAgZWwuc3R5bGUuaGVpZ2h0ID0gIjEwMCUiOwogICAgICB9CgogICAgICByZXR1cm4gewogICAgICAgIGdldFdpZHRoOiBmdW5jdGlvbigpIHsgcmV0dXJuIGNlbC5vZmZzZXRXaWR0aDsgfSwKICAgICAgICBnZXRIZWlnaHQ6IGZ1bmN0aW9uKCkgeyByZXR1cm4gY2VsLm9mZnNldEhlaWdodDsgfQogICAgICB9OwoKICAgIH0gZWxzZSB7CiAgICAgIGVsLnN0eWxlLndpZHRoID0gcHgoc2l6aW5nLndpZHRoKTsKICAgICAgZWwuc3R5bGUuaGVpZ2h0ID0gcHgoc2l6aW5nLmhlaWdodCk7CgogICAgICByZXR1cm4gewogICAgICAgIGdldFdpZHRoOiBmdW5jdGlvbigpIHsgcmV0dXJuIGVsLm9mZnNldFdpZHRoOyB9LAogICAgICAgIGdldEhlaWdodDogZnVuY3Rpb24oKSB7IHJldHVybiBlbC5vZmZzZXRIZWlnaHQ7IH0KICAgICAgfTsKICAgIH0KICB9CgogIC8vIERlZmF1bHQgaW1wbGVtZW50YXRpb25zIGZvciBtZXRob2RzCiAgdmFyIGRlZmF1bHRzID0gewogICAgZmluZDogZnVuY3Rpb24oc2NvcGUpIHsKICAgICAgcmV0dXJuIHF1ZXJ5U2VsZWN0b3JBbGwoc2NvcGUsICIuIiArIHRoaXMubmFtZSk7CiAgICB9LAogICAgcmVuZGVyRXJyb3I6IGZ1bmN0aW9uKGVsLCBlcnIpIHsKICAgICAgdmFyICRlbCA9ICQoZWwpOwoKICAgICAgdGhpcy5jbGVhckVycm9yKGVsKTsKCiAgICAgIC8vIEFkZCBhbGwgdGhlc2UgZXJyb3IgY2xhc3NlcywgYXMgU2hpbnkgZG9lcwogICAgICB2YXIgZXJyQ2xhc3MgPSAic2hpbnktb3V0cHV0LWVycm9yIjsKICAgICAgaWYgKGVyci50eXBlICE9PSBudWxsKSB7CiAgICAgICAgLy8gdXNlIHRoZSBjbGFzc2VzIG9mIHRoZSBlcnJvciBjb25kaXRpb24gYXMgQ1NTIGNsYXNzIG5hbWVzCiAgICAgICAgZXJyQ2xhc3MgPSBlcnJDbGFzcyArICIgIiArICQubWFwKGFzQXJyYXkoZXJyLnR5cGUpLCBmdW5jdGlvbih0eXBlKSB7CiAgICAgICAgICByZXR1cm4gZXJyQ2xhc3MgKyAiLSIgKyB0eXBlOwogICAgICAgIH0pLmpvaW4oIiAiKTsKICAgICAgfQogICAgICBlcnJDbGFzcyA9IGVyckNsYXNzICsgIiBodG1sd2lkZ2V0cy1lcnJvciI7CgogICAgICAvLyBJcyBlbCBpbmxpbmUgb3IgYmxvY2s/IElmIGlubGluZSBvciBpbmxpbmUtYmxvY2ssIGp1c3QgZGlzcGxheTpub25lIGl0CiAgICAgIC8vIGFuZCBhZGQgYW4gaW5saW5lIGVycm9yLgogICAgICB2YXIgZGlzcGxheSA9ICRlbC5jc3MoImRpc3BsYXkiKTsKICAgICAgJGVsLmRhdGEoInJlc3RvcmUtZGlzcGxheS1tb2RlIiwgZGlzcGxheSk7CgogICAgICBpZiAoZGlzcGxheSA9PT0gImlubGluZSIgfHwgZGlzcGxheSA9PT0gImlubGluZS1ibG9jayIpIHsKICAgICAgICAkZWwuaGlkZSgpOwogICAgICAgIGlmIChlcnIubWVzc2FnZSAhPT0gIiIpIHsKICAgICAgICAgIHZhciBlcnJvclNwYW4gPSAkKCI8c3Bhbj4iKS5hZGRDbGFzcyhlcnJDbGFzcyk7CiAgICAgICAgICBlcnJvclNwYW4udGV4dChlcnIubWVzc2FnZSk7CiAgICAgICAgICAkZWwuYWZ0ZXIoZXJyb3JTcGFuKTsKICAgICAgICB9CiAgICAgIH0gZWxzZSBpZiAoZGlzcGxheSA9PT0gImJsb2NrIikgewogICAgICAgIC8vIElmIGJsb2NrLCBhZGQgYW4gZXJyb3IganVzdCBhZnRlciB0aGUgZWwsIHNldCB2aXNpYmlsaXR5Om5vbmUgb24gdGhlCiAgICAgICAgLy8gZWwsIGFuZCBwb3NpdGlvbiB0aGUgZXJyb3IgdG8gYmUgb24gdG9wIG9mIHRoZSBlbC4KICAgICAgICAvLyBNYXJrIGl0IHdpdGggYSB1bmlxdWUgSUQgYW5kIENTUyBjbGFzcyBzbyB3ZSBjYW4gcmVtb3ZlIGl0IGxhdGVyLgogICAgICAgICRlbC5jc3MoInZpc2liaWxpdHkiLCAiaGlkZGVuIik7CiAgICAgICAgaWYgKGVyci5tZXNzYWdlICE9PSAiIikgewogICAgICAgICAgdmFyIGVycm9yRGl2ID0gJCgiPGRpdj4iKS5hZGRDbGFzcyhlcnJDbGFzcykuY3NzKCJwb3NpdGlvbiIsICJhYnNvbHV0ZSIpCiAgICAgICAgICAgIC5jc3MoInRvcCIsIGVsLm9mZnNldFRvcCkKICAgICAgICAgICAgLmNzcygibGVmdCIsIGVsLm9mZnNldExlZnQpCiAgICAgICAgICAgIC8vIHNldHRpbmcgd2lkdGggY2FuIHB1c2ggb3V0IHRoZSBwYWdlIHNpemUsIGZvcmNpbmcgb3RoZXJ3aXNlCiAgICAgICAgICAgIC8vIHVubmVjZXNzYXJ5IHNjcm9sbGJhcnMgdG8gYXBwZWFyIGFuZCBtYWtpbmcgaXQgaW1wb3NzaWJsZSBmb3IKICAgICAgICAgICAgLy8gdGhlIGVsZW1lbnQgdG8gc2hyaW5rOyBzbyB1c2UgbWF4LXdpZHRoIGluc3RlYWQKICAgICAgICAgICAgLmNzcygibWF4V2lkdGgiLCBlbC5vZmZzZXRXaWR0aCkKICAgICAgICAgICAgLmNzcygiaGVpZ2h0IiwgZWwub2Zmc2V0SGVpZ2h0KTsKICAgICAgICAgIGVycm9yRGl2LnRleHQoZXJyLm1lc3NhZ2UpOwogICAgICAgICAgJGVsLmFmdGVyKGVycm9yRGl2KTsKCiAgICAgICAgICAvLyBSZWFsbHkgZHVtYiB3YXkgdG8ga2VlcCB0aGUgc2l6ZS9wb3NpdGlvbiBvZiB0aGUgZXJyb3IgaW4gc3luYyB3aXRoCiAgICAgICAgICAvLyB0aGUgcGFyZW50IGVsZW1lbnQgYXMgdGhlIHdpbmRvdyBpcyByZXNpemVkIG9yIHdoYXRldmVyLgogICAgICAgICAgdmFyIGludElkID0gc2V0SW50ZXJ2YWwoZnVuY3Rpb24oKSB7CiAgICAgICAgICAgIGlmICghZXJyb3JEaXZbMF0ucGFyZW50RWxlbWVudCkgewogICAgICAgICAgICAgIGNsZWFySW50ZXJ2YWwoaW50SWQpOwogICAgICAgICAgICAgIHJldHVybjsKICAgICAgICAgICAgfQogICAgICAgICAgICBlcnJvckRpdgogICAgICAgICAgICAgIC5jc3MoInRvcCIsIGVsLm9mZnNldFRvcCkKICAgICAgICAgICAgICAuY3NzKCJsZWZ0IiwgZWwub2Zmc2V0TGVmdCkKICAgICAgICAgICAgICAuY3NzKCJtYXhXaWR0aCIsIGVsLm9mZnNldFdpZHRoKQogICAgICAgICAgICAgIC5jc3MoImhlaWdodCIsIGVsLm9mZnNldEhlaWdodCk7CiAgICAgICAgICB9LCA1MDApOwogICAgICAgIH0KICAgICAgfQogICAgfSwKICAgIGNsZWFyRXJyb3I6IGZ1bmN0aW9uKGVsKSB7CiAgICAgIHZhciAkZWwgPSAkKGVsKTsKICAgICAgdmFyIGRpc3BsYXkgPSAkZWwuZGF0YSgicmVzdG9yZS1kaXNwbGF5LW1vZGUiKTsKICAgICAgJGVsLmRhdGEoInJlc3RvcmUtZGlzcGxheS1tb2RlIiwgbnVsbCk7CgogICAgICBpZiAoZGlzcGxheSA9PT0gImlubGluZSIgfHwgZGlzcGxheSA9PT0gImlubGluZS1ibG9jayIpIHsKICAgICAgICBpZiAoZGlzcGxheSkKICAgICAgICAgICRlbC5jc3MoImRpc3BsYXkiLCBkaXNwbGF5KTsKICAgICAgICAkKGVsLm5leHRTaWJsaW5nKS5maWx0ZXIoIi5odG1sd2lkZ2V0cy1lcnJvciIpLnJlbW92ZSgpOwogICAgICB9IGVsc2UgaWYgKGRpc3BsYXkgPT09ICJibG9jayIpewogICAgICAgICRlbC5jc3MoInZpc2liaWxpdHkiLCAiaW5oZXJpdCIpOwogICAgICAgICQoZWwubmV4dFNpYmxpbmcpLmZpbHRlcigiLmh0bWx3aWRnZXRzLWVycm9yIikucmVtb3ZlKCk7CiAgICAgIH0KICAgIH0sCiAgICBzaXppbmc6IHt9CiAgfTsKCiAgLy8gQ2FsbGVkIGJ5IHdpZGdldCBiaW5kaW5ncyB0byByZWdpc3RlciBhIG5ldyB0eXBlIG9mIHdpZGdldC4gVGhlIGRlZmluaXRpb24KICAvLyBvYmplY3QgY2FuIGNvbnRhaW4gdGhlIGZvbGxvd2luZyBwcm9wZXJ0aWVzOgogIC8vIC0gbmFtZSAocmVxdWlyZWQpIC0gQSBzdHJpbmcgaW5kaWNhdGluZyB0aGUgYmluZGluZyBuYW1lLCB3aGljaCB3aWxsIGJlCiAgLy8gICB1c2VkIGJ5IGRlZmF1bHQgYXMgdGhlIENTUyBjbGFzc25hbWUgdG8gbG9vayBmb3IuCiAgLy8gLSBpbml0aWFsaXplIChvcHRpb25hbCkgLSBBIGZ1bmN0aW9uKGVsKSB0aGF0IHdpbGwgYmUgY2FsbGVkIG9uY2UgcGVyCiAgLy8gICB3aWRnZXQgZWxlbWVudDsgaWYgYSB2YWx1ZSBpcyByZXR1cm5lZCwgaXQgd2lsbCBiZSBwYXNzZWQgYXMgdGhlIHRoaXJkCiAgLy8gICB2YWx1ZSB0byByZW5kZXJWYWx1ZS4KICAvLyAtIHJlbmRlclZhbHVlIChyZXF1aXJlZCkgLSBBIGZ1bmN0aW9uKGVsLCBkYXRhLCBpbml0VmFsdWUpIHRoYXQgd2lsbCBiZQogIC8vICAgY2FsbGVkIHdpdGggZGF0YS4gU3RhdGljIGNvbnRleHRzIHdpbGwgY2F1c2UgdGhpcyB0byBiZSBjYWxsZWQgb25jZSBwZXIKICAvLyAgIGVsZW1lbnQ7IFNoaW55IGFwcHMgd2lsbCBjYXVzZSB0aGlzIHRvIGJlIGNhbGxlZCBtdWx0aXBsZSB0aW1lcyBwZXIKICAvLyAgIGVsZW1lbnQsIGFzIHRoZSBkYXRhIGNoYW5nZXMuCiAgd2luZG93LkhUTUxXaWRnZXRzLndpZGdldCA9IGZ1bmN0aW9uKGRlZmluaXRpb24pIHsKICAgIGlmICghZGVmaW5pdGlvbi5uYW1lKSB7CiAgICAgIHRocm93IG5ldyBFcnJvcigiV2lkZ2V0IG11c3QgaGF2ZSBhIG5hbWUiKTsKICAgIH0KICAgIGlmICghZGVmaW5pdGlvbi50eXBlKSB7CiAgICAgIHRocm93IG5ldyBFcnJvcigiV2lkZ2V0IG11c3QgaGF2ZSBhIHR5cGUiKTsKICAgIH0KICAgIC8vIEN1cnJlbnRseSB3ZSBvbmx5IHN1cHBvcnQgb3V0cHV0IHdpZGdldHMKICAgIGlmIChkZWZpbml0aW9uLnR5cGUgIT09ICJvdXRwdXQiKSB7CiAgICAgIHRocm93IG5ldyBFcnJvcigiVW5yZWNvZ25pemVkIHdpZGdldCB0eXBlICciICsgZGVmaW5pdGlvbi50eXBlICsgIiciKTsKICAgIH0KICAgIC8vIFRPRE86IFZlcmlmeSB0aGF0IC5uYW1lIGlzIGEgdmFsaWQgQ1NTIGNsYXNzbmFtZQoKICAgIC8vIFN1cHBvcnQgbmV3LXN0eWxlIGluc3RhbmNlLWJvdW5kIGRlZmluaXRpb25zLiBPbGQtc3R5bGUgY2xhc3MtYm91bmQKICAgIC8vIGRlZmluaXRpb25zIGhhdmUgb25lIHdpZGdldCAib2JqZWN0IiBwZXIgd2lkZ2V0IHBlciB0eXBlL2NsYXNzIG9mCiAgICAvLyB3aWRnZXQ7IHRoZSByZW5kZXJWYWx1ZSBhbmQgcmVzaXplIG1ldGhvZHMgb24gc3VjaCB3aWRnZXQgb2JqZWN0cwogICAgLy8gdGFrZSBlbCBhbmQgaW5zdGFuY2UgYXJndW1lbnRzLCBiZWNhdXNlIHRoZSB3aWRnZXQgb2JqZWN0IGNhbid0CiAgICAvLyBzdG9yZSB0aGVtLiBOZXctc3R5bGUgaW5zdGFuY2UtYm91bmQgZGVmaW5pdGlvbnMgaGF2ZSBvbmUgd2lkZ2V0CiAgICAvLyBvYmplY3QgcGVyIHdpZGdldCBpbnN0YW5jZTsgdGhlIGRlZmluaXRpb24gdGhhdCdzIHBhc3NlZCBpbiBkb2Vzbid0CiAgICAvLyBwcm92aWRlIHJlbmRlclZhbHVlIG9yIHJlc2l6ZSBtZXRob2RzIGF0IGFsbCwganVzdCB0aGUgc2luZ2xlIG1ldGhvZAogICAgLy8gICBmYWN0b3J5KGVsLCB3aWR0aCwgaGVpZ2h0KQogICAgLy8gd2hpY2ggcmV0dXJucyBhbiBvYmplY3QgdGhhdCBoYXMgcmVuZGVyVmFsdWUoeCkgYW5kIHJlc2l6ZSh3LCBoKS4KICAgIC8vIFRoaXMgZW5hYmxlcyBhIGZhciBtb3JlIG5hdHVyYWwgcHJvZ3JhbW1pbmcgc3R5bGUgZm9yIHRoZSB3aWRnZXQKICAgIC8vIGF1dGhvciwgd2hvIGNhbiBzdG9yZSBwZXItaW5zdGFuY2Ugc3RhdGUgdXNpbmcgZWl0aGVyIE9PLXN0eWxlCiAgICAvLyBpbnN0YW5jZSBmaWVsZHMgb3IgZnVuY3Rpb25hbC1zdHlsZSBjbG9zdXJlIHZhcmlhYmxlcyAoSSBndWVzcyB0aGlzCiAgICAvLyBpcyBpbiBjb250cmFzdCB0byB3aGF0IGNhbiBvbmx5IGJlIGNhbGxlZCBDLXN0eWxlIHBzZXVkby1PTyB3aGljaCBpcwogICAgLy8gd2hhdCB3ZSByZXF1aXJlZCBiZWZvcmUpLgogICAgaWYgKGRlZmluaXRpb24uZmFjdG9yeSkgewogICAgICBkZWZpbml0aW9uID0gY3JlYXRlTGVnYWN5RGVmaW5pdGlvbkFkYXB0ZXIoZGVmaW5pdGlvbik7CiAgICB9CgogICAgaWYgKCFkZWZpbml0aW9uLnJlbmRlclZhbHVlKSB7CiAgICAgIHRocm93IG5ldyBFcnJvcigiV2lkZ2V0IG11c3QgaGF2ZSBhIHJlbmRlclZhbHVlIGZ1bmN0aW9uIik7CiAgICB9CgogICAgLy8gRm9yIHN0YXRpYyByZW5kZXJpbmcgKG5vbi1TaGlueSksIHVzZSBhIHNpbXBsZSB3aWRnZXQgcmVnaXN0cmF0aW9uCiAgICAvLyBzY2hlbWUuIFdlIGFsc28gdXNlIHRoaXMgc2NoZW1lIGZvciBTaGlueSBhcHBzL2RvY3VtZW50cyB0aGF0IGFsc28KICAgIC8vIGNvbnRhaW4gc3RhdGljIHdpZGdldHMuCiAgICB3aW5kb3cuSFRNTFdpZGdldHMud2lkZ2V0cyA9IHdpbmRvdy5IVE1MV2lkZ2V0cy53aWRnZXRzIHx8IFtdOwogICAgLy8gTWVyZ2UgZGVmYXVsdHMgaW50byB0aGUgZGVmaW5pdGlvbjsgZG9uJ3QgbXV0YXRlIHRoZSBvcmlnaW5hbCBkZWZpbml0aW9uLgogICAgdmFyIHN0YXRpY0JpbmRpbmcgPSBleHRlbmQoe30sIGRlZmF1bHRzLCBkZWZpbml0aW9uKTsKICAgIG92ZXJyaWRlTWV0aG9kKHN0YXRpY0JpbmRpbmcsICJmaW5kIiwgZnVuY3Rpb24oc3VwZXJmdW5jKSB7CiAgICAgIHJldHVybiBmdW5jdGlvbihzY29wZSkgewogICAgICAgIHZhciByZXN1bHRzID0gc3VwZXJmdW5jKHNjb3BlKTsKICAgICAgICAvLyBGaWx0ZXIgb3V0IFNoaW55IG91dHB1dHMsIHdlIG9ubHkgd2FudCB0aGUgc3RhdGljIGtpbmQKICAgICAgICByZXR1cm4gZmlsdGVyQnlDbGFzcyhyZXN1bHRzLCAiaHRtbC13aWRnZXQtb3V0cHV0IiwgZmFsc2UpOwogICAgICB9OwogICAgfSk7CiAgICB3aW5kb3cuSFRNTFdpZGdldHMud2lkZ2V0cy5wdXNoKHN0YXRpY0JpbmRpbmcpOwoKICAgIGlmIChzaGlueU1vZGUpIHsKICAgICAgLy8gU2hpbnkgaXMgcnVubmluZy4gUmVnaXN0ZXIgdGhlIGRlZmluaXRpb24gd2l0aCBhbiBvdXRwdXQgYmluZGluZy4KICAgICAgLy8gVGhlIGRlZmluaXRpb24gaXRzZWxmIHdpbGwgbm90IGJlIHRoZSBvdXRwdXQgYmluZGluZywgaW5zdGVhZAogICAgICAvLyB3ZSB3aWxsIG1ha2UgYW4gb3V0cHV0IGJpbmRpbmcgb2JqZWN0IHRoYXQgZGVsZWdhdGVzIHRvIHRoZQogICAgICAvLyBkZWZpbml0aW9uLiBUaGlzIGlzIGJlY2F1c2Ugd2UgZm9vbGlzaGx5IHVzZWQgdGhlIHNhbWUgbWV0aG9kCiAgICAgIC8vIG5hbWUgKHJlbmRlclZhbHVlKSBmb3IgaHRtbHdpZGdldHMgZGVmaW5pdGlvbiBhbmQgU2hpbnkgYmluZGluZ3MKICAgICAgLy8gYnV0IHRoZXkgYWN0dWFsbHkgaGF2ZSBxdWl0ZSBkaWZmZXJlbnQgc2VtYW50aWNzICh0aGUgU2hpbnkKICAgICAgLy8gYmluZGluZ3MgcmVjZWl2ZSBkYXRhIHRoYXQgaW5jbHVkZXMgbG90cyBvZiBtZXRhZGF0YSB0aGF0IGl0CiAgICAgIC8vIHN0cmlwcyBvZmYgYmVmb3JlIGNhbGxpbmcgaHRtbHdpZGdldHMgcmVuZGVyVmFsdWUpLiBXZSBjYW4ndAogICAgICAvLyBqdXN0IGlnbm9yZSB0aGUgZGlmZmVyZW5jZSBiZWNhdXNlIGluIHNvbWUgd2lkZ2V0cyBpdCdzIGhlbHBmdWwKICAgICAgLy8gdG8gY2FsbCB0aGlzLnJlbmRlclZhbHVlKCkgZnJvbSBpbnNpZGUgb2YgcmVzaXplKCksIGFuZCBpZgogICAgICAvLyB3ZSdyZSBub3QgZGVsZWdhdGluZywgdGhlbiB0aGF0IGNhbGwgd2lsbCBnbyB0byB0aGUgU2hpbnkKICAgICAgLy8gdmVyc2lvbiBpbnN0ZWFkIG9mIHRoZSBodG1sd2lkZ2V0cyB2ZXJzaW9uLgoKICAgICAgLy8gTWVyZ2UgZGVmYXVsdHMgd2l0aCBkZWZpbml0aW9uLCB3aXRob3V0IG11dGF0aW5nIGVpdGhlci4KICAgICAgdmFyIGJpbmRpbmdEZWYgPSBleHRlbmQoe30sIGRlZmF1bHRzLCBkZWZpbml0aW9uKTsKCiAgICAgIC8vIFRoaXMgb2JqZWN0IHdpbGwgYmUgb3VyIGFjdHVhbCBTaGlueSBiaW5kaW5nLgogICAgICB2YXIgc2hpbnlCaW5kaW5nID0gbmV3IFNoaW55Lk91dHB1dEJpbmRpbmcoKTsKCiAgICAgIC8vIFdpdGggYSBmZXcgZXhjZXB0aW9ucywgd2UnbGwgd2FudCB0byBzaW1wbHkgdXNlIHRoZSBiaW5kaW5nRGVmJ3MKICAgICAgLy8gdmVyc2lvbiBvZiBtZXRob2RzIGlmIHRoZXkgYXJlIGF2YWlsYWJsZSwgb3RoZXJ3aXNlIGZhbGwgYmFjayB0bwogICAgICAvLyBTaGlueSdzIGRlZmF1bHRzLiBOT1RFOiBJZiBTaGlueSdzIG91dHB1dCBiaW5kaW5ncyBnYWluIGFkZGl0aW9uYWwKICAgICAgLy8gbWV0aG9kcyBpbiB0aGUgZnV0dXJlLCBhbmQgd2Ugd2FudCB0aGVtIHRvIGJlIG92ZXJyaWRlYWJsZSBieQogICAgICAvLyBIVE1MV2lkZ2V0IGJpbmRpbmcgZGVmaW5pdGlvbnMsIHRoZW4gd2UnbGwgbmVlZCB0byBhZGQgdGhlbSB0byB0aGlzCiAgICAgIC8vIGxpc3QuCiAgICAgIGRlbGVnYXRlTWV0aG9kKHNoaW55QmluZGluZywgYmluZGluZ0RlZiwgImdldElkIik7CiAgICAgIGRlbGVnYXRlTWV0aG9kKHNoaW55QmluZGluZywgYmluZGluZ0RlZiwgIm9uVmFsdWVDaGFuZ2UiKTsKICAgICAgZGVsZWdhdGVNZXRob2Qoc2hpbnlCaW5kaW5nLCBiaW5kaW5nRGVmLCAib25WYWx1ZUVycm9yIik7CiAgICAgIGRlbGVnYXRlTWV0aG9kKHNoaW55QmluZGluZywgYmluZGluZ0RlZiwgInJlbmRlckVycm9yIik7CiAgICAgIGRlbGVnYXRlTWV0aG9kKHNoaW55QmluZGluZywgYmluZGluZ0RlZiwgImNsZWFyRXJyb3IiKTsKICAgICAgZGVsZWdhdGVNZXRob2Qoc2hpbnlCaW5kaW5nLCBiaW5kaW5nRGVmLCAic2hvd1Byb2dyZXNzIik7CgogICAgICAvLyBUaGUgZmluZCwgcmVuZGVyVmFsdWUsIGFuZCByZXNpemUgYXJlIGhhbmRsZWQgZGlmZmVyZW50bHksIGJlY2F1c2Ugd2UKICAgICAgLy8gd2FudCB0byBhY3R1YWxseSBkZWNvcmF0ZSB0aGUgYmVoYXZpb3Igb2YgdGhlIGJpbmRpbmdEZWYgbWV0aG9kcy4KCiAgICAgIHNoaW55QmluZGluZy5maW5kID0gZnVuY3Rpb24oc2NvcGUpIHsKICAgICAgICB2YXIgcmVzdWx0cyA9IGJpbmRpbmdEZWYuZmluZChzY29wZSk7CgogICAgICAgIC8vIE9ubHkgcmV0dXJuIGVsZW1lbnRzIHRoYXQgYXJlIFNoaW55IG91dHB1dHMsIG5vdCBzdGF0aWMgb25lcwogICAgICAgIHZhciBkeW5hbWljUmVzdWx0cyA9IHJlc3VsdHMuZmlsdGVyKCIuaHRtbC13aWRnZXQtb3V0cHV0Iik7CgogICAgICAgIC8vIEl0J3MgcG9zc2libGUgdGhhdCB3aGF0ZXZlciBjYXVzZWQgU2hpbnkgdG8gdGhpbmsgdGhlcmUgbWlnaHQgYmUKICAgICAgICAvLyBuZXcgZHluYW1pYyBvdXRwdXRzLCBhbHNvIGNhdXNlZCB0aGVyZSB0byBiZSBuZXcgc3RhdGljIG91dHB1dHMuCiAgICAgICAgLy8gU2luY2UgdGhlcmUgbWlnaHQgYmUgbG90cyBvZiBkaWZmZXJlbnQgaHRtbHdpZGdldHMgYmluZGluZ3MsIHdlCiAgICAgICAgLy8gc2NoZWR1bGUgZXhlY3V0aW9uIGZvciBsYXRlci0tbm8gbmVlZCB0byBzdGF0aWNSZW5kZXIgbXVsdGlwbGUKICAgICAgICAvLyB0aW1lcy4KICAgICAgICBpZiAocmVzdWx0cy5sZW5ndGggIT09IGR5bmFtaWNSZXN1bHRzLmxlbmd0aCkKICAgICAgICAgIHNjaGVkdWxlU3RhdGljUmVuZGVyKCk7CgogICAgICAgIHJldHVybiBkeW5hbWljUmVzdWx0czsKICAgICAgfTsKCiAgICAgIC8vIFdyYXAgcmVuZGVyVmFsdWUgdG8gaGFuZGxlIGluaXRpYWxpemF0aW9uLCB3aGljaCB1bmZvcnR1bmF0ZWx5IGlzbid0CiAgICAgIC8vIHN1cHBvcnRlZCBuYXRpdmVseSBieSBTaGlueSBhdCB0aGUgdGltZSBvZiB0aGlzIHdyaXRpbmcuCgogICAgICBzaGlueUJpbmRpbmcucmVuZGVyVmFsdWUgPSBmdW5jdGlvbihlbCwgZGF0YSkgewogICAgICAgIC8vIFJlc29sdmUgc3RyaW5ncyBtYXJrZWQgYXMgamF2YXNjcmlwdCBsaXRlcmFscyB0byBvYmplY3RzCiAgICAgICAgaWYgKCEoZGF0YS5ldmFscyBpbnN0YW5jZW9mIEFycmF5KSkgZGF0YS5ldmFscyA9IFtkYXRhLmV2YWxzXTsKICAgICAgICBmb3IgKHZhciBpID0gMDsgZGF0YS5ldmFscyAmJiBpIDwgZGF0YS5ldmFscy5sZW5ndGg7IGkrKykgewogICAgICAgICAgd2luZG93LkhUTUxXaWRnZXRzLmV2YWx1YXRlU3RyaW5nTWVtYmVyKGRhdGEueCwgZGF0YS5ldmFsc1tpXSk7CiAgICAgICAgfQogICAgICAgIGlmICghYmluZGluZ0RlZi5yZW5kZXJPbk51bGxWYWx1ZSkgewogICAgICAgICAgaWYgKGRhdGEueCA9PT0gbnVsbCkgewogICAgICAgICAgICBlbC5zdHlsZS52aXNpYmlsaXR5ID0gImhpZGRlbiI7CiAgICAgICAgICAgIHJldHVybjsKICAgICAgICAgIH0gZWxzZSB7CiAgICAgICAgICAgIGVsLnN0eWxlLnZpc2liaWxpdHkgPSAiaW5oZXJpdCI7CiAgICAgICAgICB9CiAgICAgICAgfQogICAgICAgIGlmICghZWxlbWVudERhdGEoZWwsICJpbml0aWFsaXplZCIpKSB7CiAgICAgICAgICBpbml0U2l6aW5nKGVsKTsKCiAgICAgICAgICBlbGVtZW50RGF0YShlbCwgImluaXRpYWxpemVkIiwgdHJ1ZSk7CiAgICAgICAgICBpZiAoYmluZGluZ0RlZi5pbml0aWFsaXplKSB7CiAgICAgICAgICAgIHZhciByZXN1bHQgPSBiaW5kaW5nRGVmLmluaXRpYWxpemUoZWwsIGVsLm9mZnNldFdpZHRoLAogICAgICAgICAgICAgIGVsLm9mZnNldEhlaWdodCk7CiAgICAgICAgICAgIGVsZW1lbnREYXRhKGVsLCAiaW5pdF9yZXN1bHQiLCByZXN1bHQpOwogICAgICAgICAgfQogICAgICAgIH0KICAgICAgICBTaGlueS5yZW5kZXJEZXBlbmRlbmNpZXMoZGF0YS5kZXBzKTsKICAgICAgICBiaW5kaW5nRGVmLnJlbmRlclZhbHVlKGVsLCBkYXRhLngsIGVsZW1lbnREYXRhKGVsLCAiaW5pdF9yZXN1bHQiKSk7CiAgICAgICAgZXZhbEFuZFJ1bihkYXRhLmpzSG9va3MucmVuZGVyLCBlbGVtZW50RGF0YShlbCwgImluaXRfcmVzdWx0IiksIFtlbCwgZGF0YS54XSk7CiAgICAgIH07CgogICAgICAvLyBPbmx5IG92ZXJyaWRlIHJlc2l6ZSBpZiBiaW5kaW5nRGVmIGltcGxlbWVudHMgaXQKICAgICAgaWYgKGJpbmRpbmdEZWYucmVzaXplKSB7CiAgICAgICAgc2hpbnlCaW5kaW5nLnJlc2l6ZSA9IGZ1bmN0aW9uKGVsLCB3aWR0aCwgaGVpZ2h0KSB7CiAgICAgICAgICAvLyBTaGlueSBjYW4gY2FsbCByZXNpemUgYmVmb3JlIGluaXRpYWxpemUvcmVuZGVyVmFsdWUgaGF2ZSBiZWVuCiAgICAgICAgICAvLyBjYWxsZWQsIHdoaWNoIGRvZXNuJ3QgbWFrZSBzZW5zZSBmb3Igd2lkZ2V0cy4KICAgICAgICAgIGlmIChlbGVtZW50RGF0YShlbCwgImluaXRpYWxpemVkIikpIHsKICAgICAgICAgICAgYmluZGluZ0RlZi5yZXNpemUoZWwsIHdpZHRoLCBoZWlnaHQsIGVsZW1lbnREYXRhKGVsLCAiaW5pdF9yZXN1bHQiKSk7CiAgICAgICAgICB9CiAgICAgICAgfTsKICAgICAgfQoKICAgICAgU2hpbnkub3V0cHV0QmluZGluZ3MucmVnaXN0ZXIoc2hpbnlCaW5kaW5nLCBiaW5kaW5nRGVmLm5hbWUpOwogICAgfQogIH07CgogIHZhciBzY2hlZHVsZVN0YXRpY1JlbmRlclRpbWVySWQgPSBudWxsOwogIGZ1bmN0aW9uIHNjaGVkdWxlU3RhdGljUmVuZGVyKCkgewogICAgaWYgKCFzY2hlZHVsZVN0YXRpY1JlbmRlclRpbWVySWQpIHsKICAgICAgc2NoZWR1bGVTdGF0aWNSZW5kZXJUaW1lcklkID0gc2V0VGltZW91dChmdW5jdGlvbigpIHsKICAgICAgICBzY2hlZHVsZVN0YXRpY1JlbmRlclRpbWVySWQgPSBudWxsOwogICAgICAgIHdpbmRvdy5IVE1MV2lkZ2V0cy5zdGF0aWNSZW5kZXIoKTsKICAgICAgfSwgMSk7CiAgICB9CiAgfQoKICAvLyBSZW5kZXIgc3RhdGljIHdpZGdldHMgYWZ0ZXIgdGhlIGRvY3VtZW50IGZpbmlzaGVzIGxvYWRpbmcKICAvLyBTdGF0aWNhbGx5IHJlbmRlciBhbGwgZWxlbWVudHMgdGhhdCBhcmUgb2YgdGhpcyB3aWRnZXQncyBjbGFzcwogIHdpbmRvdy5IVE1MV2lkZ2V0cy5zdGF0aWNSZW5kZXIgPSBmdW5jdGlvbigpIHsKICAgIHZhciBiaW5kaW5ncyA9IHdpbmRvdy5IVE1MV2lkZ2V0cy53aWRnZXRzIHx8IFtdOwogICAgZm9yRWFjaChiaW5kaW5ncywgZnVuY3Rpb24oYmluZGluZykgewogICAgICB2YXIgbWF0Y2hlcyA9IGJpbmRpbmcuZmluZChkb2N1bWVudC5kb2N1bWVudEVsZW1lbnQpOwogICAgICBmb3JFYWNoKG1hdGNoZXMsIGZ1bmN0aW9uKGVsKSB7CiAgICAgICAgdmFyIHNpemVPYmogPSBpbml0U2l6aW5nKGVsLCBiaW5kaW5nKTsKCiAgICAgICAgaWYgKGhhc0NsYXNzKGVsLCAiaHRtbC13aWRnZXQtc3RhdGljLWJvdW5kIikpCiAgICAgICAgICByZXR1cm47CiAgICAgICAgZWwuY2xhc3NOYW1lID0gZWwuY2xhc3NOYW1lICsgIiBodG1sLXdpZGdldC1zdGF0aWMtYm91bmQiOwoKICAgICAgICB2YXIgaW5pdFJlc3VsdDsKICAgICAgICBpZiAoYmluZGluZy5pbml0aWFsaXplKSB7CiAgICAgICAgICBpbml0UmVzdWx0ID0gYmluZGluZy5pbml0aWFsaXplKGVsLAogICAgICAgICAgICBzaXplT2JqID8gc2l6ZU9iai5nZXRXaWR0aCgpIDogZWwub2Zmc2V0V2lkdGgsCiAgICAgICAgICAgIHNpemVPYmogPyBzaXplT2JqLmdldEhlaWdodCgpIDogZWwub2Zmc2V0SGVpZ2h0CiAgICAgICAgICApOwogICAgICAgICAgZWxlbWVudERhdGEoZWwsICJpbml0X3Jlc3VsdCIsIGluaXRSZXN1bHQpOwogICAgICAgIH0KCiAgICAgICAgaWYgKGJpbmRpbmcucmVzaXplKSB7CiAgICAgICAgICB2YXIgbGFzdFNpemUgPSB7fTsKICAgICAgICAgIHZhciByZXNpemVIYW5kbGVyID0gZnVuY3Rpb24oZSkgewogICAgICAgICAgICB2YXIgc2l6ZSA9IHsKICAgICAgICAgICAgICB3OiBzaXplT2JqID8gc2l6ZU9iai5nZXRXaWR0aCgpIDogZWwub2Zmc2V0V2lkdGgsCiAgICAgICAgICAgICAgaDogc2l6ZU9iaiA/IHNpemVPYmouZ2V0SGVpZ2h0KCkgOiBlbC5vZmZzZXRIZWlnaHQKICAgICAgICAgICAgfTsKICAgICAgICAgICAgaWYgKHNpemUudyA9PT0gMCAmJiBzaXplLmggPT09IDApCiAgICAgICAgICAgICAgcmV0dXJuOwogICAgICAgICAgICBpZiAoc2l6ZS53ID09PSBsYXN0U2l6ZS53ICYmIHNpemUuaCA9PT0gbGFzdFNpemUuaCkKICAgICAgICAgICAgICByZXR1cm47CiAgICAgICAgICAgIGxhc3RTaXplID0gc2l6ZTsKICAgICAgICAgICAgYmluZGluZy5yZXNpemUoZWwsIHNpemUudywgc2l6ZS5oLCBpbml0UmVzdWx0KTsKICAgICAgICAgIH07CgogICAgICAgICAgb24od2luZG93LCAicmVzaXplIiwgcmVzaXplSGFuZGxlcik7CgogICAgICAgICAgLy8gVGhpcyBpcyBuZWVkZWQgZm9yIGNhc2VzIHdoZXJlIHdlJ3JlIHJ1bm5pbmcgaW4gYSBTaGlueQogICAgICAgICAgLy8gYXBwLCBidXQgdGhlIHdpZGdldCBpdHNlbGYgaXMgbm90IGEgU2hpbnkgb3V0cHV0LCBidXQKICAgICAgICAgIC8vIHJhdGhlciBhIHNpbXBsZSBzdGF0aWMgd2lkZ2V0LiBPbmUgZXhhbXBsZSBvZiB0aGlzIGlzCiAgICAgICAgICAvLyBhbiBybWFya2Rvd24gZG9jdW1lbnQgdGhhdCBoYXMgcnVudGltZTpzaGlueSBhbmQgd2lkZ2V0CiAgICAgICAgICAvLyB0aGF0IGlzbid0IGluIGEgcmVuZGVyIGZ1bmN0aW9uLiBTaGlueSBvbmx5IGtub3dzIHRvCiAgICAgICAgICAvLyBjYWxsIHJlc2l6ZSBoYW5kbGVycyBmb3IgU2hpbnkgb3V0cHV0cywgbm90IGZvciBzdGF0aWMKICAgICAgICAgIC8vIHdpZGdldHMsIHNvIHdlIGRvIGl0IG91cnNlbHZlcy4KICAgICAgICAgIGlmICh3aW5kb3cualF1ZXJ5KSB7CiAgICAgICAgICAgIHdpbmRvdy5qUXVlcnkoZG9jdW1lbnQpLm9uKAogICAgICAgICAgICAgICJzaG93bi5odG1sd2lkZ2V0cyBzaG93bi5icy50YWIuaHRtbHdpZGdldHMgc2hvd24uYnMuY29sbGFwc2UuaHRtbHdpZGdldHMiLAogICAgICAgICAgICAgIHJlc2l6ZUhhbmRsZXIKICAgICAgICAgICAgKTsKICAgICAgICAgICAgd2luZG93LmpRdWVyeShkb2N1bWVudCkub24oCiAgICAgICAgICAgICAgImhpZGRlbi5odG1sd2lkZ2V0cyBoaWRkZW4uYnMudGFiLmh0bWx3aWRnZXRzIGhpZGRlbi5icy5jb2xsYXBzZS5odG1sd2lkZ2V0cyIsCiAgICAgICAgICAgICAgcmVzaXplSGFuZGxlcgogICAgICAgICAgICApOwogICAgICAgICAgfQoKICAgICAgICAgIC8vIFRoaXMgaXMgbmVlZGVkIGZvciB0aGUgc3BlY2lmaWMgY2FzZSBvZiBpb3NsaWRlcywgd2hpY2gKICAgICAgICAgIC8vIGZsaXBzIHNsaWRlcyBiZXR3ZWVuIGRpc3BsYXk6bm9uZSBhbmQgZGlzcGxheTpibG9jay4KICAgICAgICAgIC8vIElkZWFsbHkgd2Ugd291bGQgbm90IGhhdmUgdG8gaGF2ZSBpb3NsaWRlLXNwZWNpZmljIGNvZGUKICAgICAgICAgIC8vIGhlcmUsIGJ1dCByYXRoZXIgaGF2ZSBpb3NsaWRlcyByYWlzZSBhIGdlbmVyaWMgZXZlbnQsCiAgICAgICAgICAvLyBidXQgdGhlIHJtYXJrZG93biBwYWNrYWdlIGp1c3Qgd2VudCB0byBDUkFOIHNvIHRoZQogICAgICAgICAgLy8gd2luZG93IHRvIGdldHRpbmcgdGhhdCBmaXhlZCBtYXkgYmUgbG9uZy4KICAgICAgICAgIGlmICh3aW5kb3cuYWRkRXZlbnRMaXN0ZW5lcikgewogICAgICAgICAgICAvLyBJdCdzIE9LIHRvIGxpbWl0IHRoaXMgdG8gd2luZG93LmFkZEV2ZW50TGlzdGVuZXIKICAgICAgICAgICAgLy8gYnJvd3NlcnMgYmVjYXVzZSBpb3NsaWRlcyBpdHNlbGYgb25seSBzdXBwb3J0cwogICAgICAgICAgICAvLyBzdWNoIGJyb3dzZXJzLgogICAgICAgICAgICBvbihkb2N1bWVudCwgInNsaWRlZW50ZXIiLCByZXNpemVIYW5kbGVyKTsKICAgICAgICAgICAgb24oZG9jdW1lbnQsICJzbGlkZWxlYXZlIiwgcmVzaXplSGFuZGxlcik7CiAgICAgICAgICB9CiAgICAgICAgfQoKICAgICAgICB2YXIgc2NyaXB0RGF0YSA9IGRvY3VtZW50LnF1ZXJ5U2VsZWN0b3IoInNjcmlwdFtkYXRhLWZvcj0nIiArIGVsLmlkICsgIiddW3R5cGU9J2FwcGxpY2F0aW9uL2pzb24nXSIpOwogICAgICAgIGlmIChzY3JpcHREYXRhKSB7CiAgICAgICAgICB2YXIgZGF0YSA9IEpTT04ucGFyc2Uoc2NyaXB0RGF0YS50ZXh0Q29udGVudCB8fCBzY3JpcHREYXRhLnRleHQpOwogICAgICAgICAgLy8gUmVzb2x2ZSBzdHJpbmdzIG1hcmtlZCBhcyBqYXZhc2NyaXB0IGxpdGVyYWxzIHRvIG9iamVjdHMKICAgICAgICAgIGlmICghKGRhdGEuZXZhbHMgaW5zdGFuY2VvZiBBcnJheSkpIGRhdGEuZXZhbHMgPSBbZGF0YS5ldmFsc107CiAgICAgICAgICBmb3IgKHZhciBrID0gMDsgZGF0YS5ldmFscyAmJiBrIDwgZGF0YS5ldmFscy5sZW5ndGg7IGsrKykgewogICAgICAgICAgICB3aW5kb3cuSFRNTFdpZGdldHMuZXZhbHVhdGVTdHJpbmdNZW1iZXIoZGF0YS54LCBkYXRhLmV2YWxzW2tdKTsKICAgICAgICAgIH0KICAgICAgICAgIGJpbmRpbmcucmVuZGVyVmFsdWUoZWwsIGRhdGEueCwgaW5pdFJlc3VsdCk7CiAgICAgICAgICBldmFsQW5kUnVuKGRhdGEuanNIb29rcy5yZW5kZXIsIGluaXRSZXN1bHQsIFtlbCwgZGF0YS54XSk7CiAgICAgICAgfQogICAgICB9KTsKICAgIH0pOwoKICAgIGludm9rZVBvc3RSZW5kZXJIYW5kbGVycygpOwogIH0KCiAgLy8gV2FpdCB1bnRpbCBhZnRlciB0aGUgZG9jdW1lbnQgaGFzIGxvYWRlZCB0byByZW5kZXIgdGhlIHdpZGdldHMuCiAgaWYgKGRvY3VtZW50LmFkZEV2ZW50TGlzdGVuZXIpIHsKICAgIGRvY3VtZW50LmFkZEV2ZW50TGlzdGVuZXIoIkRPTUNvbnRlbnRMb2FkZWQiLCBmdW5jdGlvbigpIHsKICAgICAgZG9jdW1lbnQucmVtb3ZlRXZlbnRMaXN0ZW5lcigiRE9NQ29udGVudExvYWRlZCIsIGFyZ3VtZW50cy5jYWxsZWUsIGZhbHNlKTsKICAgICAgd2luZG93LkhUTUxXaWRnZXRzLnN0YXRpY1JlbmRlcigpOwogICAgfSwgZmFsc2UpOwogIH0gZWxzZSBpZiAoZG9jdW1lbnQuYXR0YWNoRXZlbnQpIHsKICAgIGRvY3VtZW50LmF0dGFjaEV2ZW50KCJvbnJlYWR5c3RhdGVjaGFuZ2UiLCBmdW5jdGlvbigpIHsKICAgICAgaWYgKGRvY3VtZW50LnJlYWR5U3RhdGUgPT09ICJjb21wbGV0ZSIpIHsKICAgICAgICBkb2N1bWVudC5kZXRhY2hFdmVudCgib25yZWFkeXN0YXRlY2hhbmdlIiwgYXJndW1lbnRzLmNhbGxlZSk7CiAgICAgICAgd2luZG93LkhUTUxXaWRnZXRzLnN0YXRpY1JlbmRlcigpOwogICAgICB9CiAgICB9KTsKICB9CgoKICB3aW5kb3cuSFRNTFdpZGdldHMuZ2V0QXR0YWNobWVudFVybCA9IGZ1bmN0aW9uKGRlcG5hbWUsIGtleSkgewogICAgLy8gSWYgbm8ga2V5LCBkZWZhdWx0IHRvIHRoZSBmaXJzdCBpdGVtCiAgICBpZiAodHlwZW9mKGtleSkgPT09ICJ1bmRlZmluZWQiKQogICAgICBrZXkgPSAxOwoKICAgIHZhciBsaW5rID0gZG9jdW1lbnQuZ2V0RWxlbWVudEJ5SWQoZGVwbmFtZSArICItIiArIGtleSArICItYXR0YWNobWVudCIpOwogICAgaWYgKCFsaW5rKSB7CiAgICAgIHRocm93IG5ldyBFcnJvcigiQXR0YWNobWVudCAiICsgZGVwbmFtZSArICIvIiArIGtleSArICIgbm90IGZvdW5kIGluIGRvY3VtZW50Iik7CiAgICB9CiAgICByZXR1cm4gbGluay5nZXRBdHRyaWJ1dGUoImhyZWYiKTsKICB9OwoKICB3aW5kb3cuSFRNTFdpZGdldHMuZGF0YWZyYW1lVG9EMyA9IGZ1bmN0aW9uKGRmKSB7CiAgICB2YXIgbmFtZXMgPSBbXTsKICAgIHZhciBsZW5ndGg7CiAgICBmb3IgKHZhciBuYW1lIGluIGRmKSB7CiAgICAgICAgaWYgKGRmLmhhc093blByb3BlcnR5KG5hbWUpKQogICAgICAgICAgICBuYW1lcy5wdXNoKG5hbWUpOwogICAgICAgIGlmICh0eXBlb2YoZGZbbmFtZV0pICE9PSAib2JqZWN0IiB8fCB0eXBlb2YoZGZbbmFtZV0ubGVuZ3RoKSA9PT0gInVuZGVmaW5lZCIpIHsKICAgICAgICAgICAgdGhyb3cgbmV3IEVycm9yKCJBbGwgZmllbGRzIG11c3QgYmUgYXJyYXlzIik7CiAgICAgICAgfSBlbHNlIGlmICh0eXBlb2YobGVuZ3RoKSAhPT0gInVuZGVmaW5lZCIgJiYgbGVuZ3RoICE9PSBkZltuYW1lXS5sZW5ndGgpIHsKICAgICAgICAgICAgdGhyb3cgbmV3IEVycm9yKCJBbGwgZmllbGRzIG11c3QgYmUgYXJyYXlzIG9mIHRoZSBzYW1lIGxlbmd0aCIpOwogICAgICAgIH0KICAgICAgICBsZW5ndGggPSBkZltuYW1lXS5sZW5ndGg7CiAgICB9CiAgICB2YXIgcmVzdWx0cyA9IFtdOwogICAgdmFyIGl0ZW07CiAgICBmb3IgKHZhciByb3cgPSAwOyByb3cgPCBsZW5ndGg7IHJvdysrKSB7CiAgICAgICAgaXRlbSA9IHt9OwogICAgICAgIGZvciAodmFyIGNvbCA9IDA7IGNvbCA8IG5hbWVzLmxlbmd0aDsgY29sKyspIHsKICAgICAgICAgICAgaXRlbVtuYW1lc1tjb2xdXSA9IGRmW25hbWVzW2NvbF1dW3Jvd107CiAgICAgICAgfQogICAgICAgIHJlc3VsdHMucHVzaChpdGVtKTsKICAgIH0KICAgIHJldHVybiByZXN1bHRzOwogIH07CgogIHdpbmRvdy5IVE1MV2lkZ2V0cy50cmFuc3Bvc2VBcnJheTJEID0gZnVuY3Rpb24oYXJyYXkpIHsKICAgICAgaWYgKGFycmF5Lmxlbmd0aCA9PT0gMCkgcmV0dXJuIGFycmF5OwogICAgICB2YXIgbmV3QXJyYXkgPSBhcnJheVswXS5tYXAoZnVuY3Rpb24oY29sLCBpKSB7CiAgICAgICAgICByZXR1cm4gYXJyYXkubWFwKGZ1bmN0aW9uKHJvdykgewogICAgICAgICAgICAgIHJldHVybiByb3dbaV0KICAgICAgICAgIH0pCiAgICAgIH0pOwogICAgICByZXR1cm4gbmV3QXJyYXk7CiAgfTsKICAvLyBTcGxpdCB2YWx1ZSBhdCBzcGxpdENoYXIsIGJ1dCBhbGxvdyBzcGxpdENoYXIgdG8gYmUgZXNjYXBlZAogIC8vIHVzaW5nIGVzY2FwZUNoYXIuIEFueSBvdGhlciBjaGFyYWN0ZXJzIGVzY2FwZWQgYnkgZXNjYXBlQ2hhcgogIC8vIHdpbGwgYmUgaW5jbHVkZWQgYXMgdXN1YWwgKGluY2x1ZGluZyBlc2NhcGVDaGFyIGl0c2VsZikuCiAgZnVuY3Rpb24gc3BsaXRXaXRoRXNjYXBlKHZhbHVlLCBzcGxpdENoYXIsIGVzY2FwZUNoYXIpIHsKICAgIHZhciByZXN1bHRzID0gW107CiAgICB2YXIgZXNjYXBlTW9kZSA9IGZhbHNlOwogICAgdmFyIGN1cnJlbnRSZXN1bHQgPSAiIjsKICAgIGZvciAodmFyIHBvcyA9IDA7IHBvcyA8IHZhbHVlLmxlbmd0aDsgcG9zKyspIHsKICAgICAgaWYgKCFlc2NhcGVNb2RlKSB7CiAgICAgICAgaWYgKHZhbHVlW3Bvc10gPT09IHNwbGl0Q2hhcikgewogICAgICAgICAgcmVzdWx0cy5wdXNoKGN1cnJlbnRSZXN1bHQpOwogICAgICAgICAgY3VycmVudFJlc3VsdCA9ICIiOwogICAgICAgIH0gZWxzZSBpZiAodmFsdWVbcG9zXSA9PT0gZXNjYXBlQ2hhcikgewogICAgICAgICAgZXNjYXBlTW9kZSA9IHRydWU7CiAgICAgICAgfSBlbHNlIHsKICAgICAgICAgIGN1cnJlbnRSZXN1bHQgKz0gdmFsdWVbcG9zXTsKICAgICAgICB9CiAgICAgIH0gZWxzZSB7CiAgICAgICAgY3VycmVudFJlc3VsdCArPSB2YWx1ZVtwb3NdOwogICAgICAgIGVzY2FwZU1vZGUgPSBmYWxzZTsKICAgICAgfQogICAgfQogICAgaWYgKGN1cnJlbnRSZXN1bHQgIT09ICIiKSB7CiAgICAgIHJlc3VsdHMucHVzaChjdXJyZW50UmVzdWx0KTsKICAgIH0KICAgIHJldHVybiByZXN1bHRzOwogIH0KICAvLyBGdW5jdGlvbiBhdXRob3JlZCBieSBZaWh1aS9KSiBBbGxhaXJlCiAgd2luZG93LkhUTUxXaWRnZXRzLmV2YWx1YXRlU3RyaW5nTWVtYmVyID0gZnVuY3Rpb24obywgbWVtYmVyKSB7CiAgICB2YXIgcGFydHMgPSBzcGxpdFdpdGhFc2NhcGUobWVtYmVyLCAnLicsICdcXCcpOwogICAgZm9yICh2YXIgaSA9IDAsIGwgPSBwYXJ0cy5sZW5ndGg7IGkgPCBsOyBpKyspIHsKICAgICAgdmFyIHBhcnQgPSBwYXJ0c1tpXTsKICAgICAgLy8gcGFydCBtYXkgYmUgYSBjaGFyYWN0ZXIgb3IgJ251bWVyaWMnIG1lbWJlciBuYW1lCiAgICAgIGlmIChvICE9PSBudWxsICYmIHR5cGVvZiBvID09PSAib2JqZWN0IiAmJiBwYXJ0IGluIG8pIHsKICAgICAgICBpZiAoaSA9PSAobCAtIDEpKSB7IC8vIGlmIHdlIGFyZSBhdCB0aGUgZW5kIG9mIHRoZSBsaW5lIHRoZW4gZXZhbHVsYXRlCiAgICAgICAgICBpZiAodHlwZW9mIG9bcGFydF0gPT09ICJzdHJpbmciKQogICAgICAgICAgICBvW3BhcnRdID0gZXZhbCgiKCIgKyBvW3BhcnRdICsgIikiKTsKICAgICAgICB9IGVsc2UgeyAvLyBvdGhlcndpc2UgY29udGludWUgdG8gbmV4dCBlbWJlZGRlZCBvYmplY3QKICAgICAgICAgIG8gPSBvW3BhcnRdOwogICAgICAgIH0KICAgICAgfQogICAgfQogIH07CgogIC8vIFJldHJpZXZlIHRoZSBIVE1MV2lkZ2V0IGluc3RhbmNlIChpLmUuIHRoZSByZXR1cm4gdmFsdWUgb2YgYW4KICAvLyBIVE1MV2lkZ2V0IGJpbmRpbmcncyBpbml0aWFsaXplKCkgb3IgZmFjdG9yeSgpIGZ1bmN0aW9uKQogIC8vIGFzc29jaWF0ZWQgd2l0aCBhbiBlbGVtZW50LCBvciBudWxsIGlmIG5vbmUuCiAgd2luZG93LkhUTUxXaWRnZXRzLmdldEluc3RhbmNlID0gZnVuY3Rpb24oZWwpIHsKICAgIHJldHVybiBlbGVtZW50RGF0YShlbCwgImluaXRfcmVzdWx0Iik7CiAgfTsKCiAgLy8gRmluZHMgdGhlIGZpcnN0IGVsZW1lbnQgaW4gdGhlIHNjb3BlIHRoYXQgbWF0Y2hlcyB0aGUgc2VsZWN0b3IsCiAgLy8gYW5kIHJldHVybnMgdGhlIEhUTUxXaWRnZXQgaW5zdGFuY2UgKGkuZS4gdGhlIHJldHVybiB2YWx1ZSBvZgogIC8vIGFuIEhUTUxXaWRnZXQgYmluZGluZydzIGluaXRpYWxpemUoKSBvciBmYWN0b3J5KCkgZnVuY3Rpb24pCiAgLy8gYXNzb2NpYXRlZCB3aXRoIHRoYXQgZWxlbWVudCwgaWYgYW55LiBJZiBubyBlbGVtZW50IG1hdGNoZXMgdGhlCiAgLy8gc2VsZWN0b3IsIG9yIHRoZSBmaXJzdCBtYXRjaGluZyBlbGVtZW50IGhhcyBubyBIVE1MV2lkZ2V0CiAgLy8gaW5zdGFuY2UgYXNzb2NpYXRlZCB3aXRoIGl0LCB0aGVuIG51bGwgaXMgcmV0dXJuZWQuCiAgLy8KICAvLyBUaGUgc2NvcGUgYXJndW1lbnQgaXMgb3B0aW9uYWwsIGFuZCBkZWZhdWx0cyB0byB3aW5kb3cuZG9jdW1lbnQuCiAgd2luZG93LkhUTUxXaWRnZXRzLmZpbmQgPSBmdW5jdGlvbihzY29wZSwgc2VsZWN0b3IpIHsKICAgIGlmIChhcmd1bWVudHMubGVuZ3RoID09IDEpIHsKICAgICAgc2VsZWN0b3IgPSBzY29wZTsKICAgICAgc2NvcGUgPSBkb2N1bWVudDsKICAgIH0KCiAgICB2YXIgZWwgPSBzY29wZS5xdWVyeVNlbGVjdG9yKHNlbGVjdG9yKTsKICAgIGlmIChlbCA9PT0gbnVsbCkgewogICAgICByZXR1cm4gbnVsbDsKICAgIH0gZWxzZSB7CiAgICAgIHJldHVybiB3aW5kb3cuSFRNTFdpZGdldHMuZ2V0SW5zdGFuY2UoZWwpOwogICAgfQogIH07CgogIC8vIEZpbmRzIGFsbCBlbGVtZW50cyBpbiB0aGUgc2NvcGUgdGhhdCBtYXRjaCB0aGUgc2VsZWN0b3IsIGFuZAogIC8vIHJldHVybnMgdGhlIEhUTUxXaWRnZXQgaW5zdGFuY2VzIChpLmUuIHRoZSByZXR1cm4gdmFsdWVzIG9mCiAgLy8gYW4gSFRNTFdpZGdldCBiaW5kaW5nJ3MgaW5pdGlhbGl6ZSgpIG9yIGZhY3RvcnkoKSBmdW5jdGlvbikKICAvLyBhc3NvY2lhdGVkIHdpdGggdGhlIGVsZW1lbnRzLCBpbiBhbiBhcnJheS4gSWYgZWxlbWVudHMgdGhhdAogIC8vIG1hdGNoIHRoZSBzZWxlY3RvciBkb24ndCBoYXZlIGFuIGFzc29jaWF0ZWQgSFRNTFdpZGdldAogIC8vIGluc3RhbmNlLCB0aGUgcmV0dXJuZWQgYXJyYXkgd2lsbCBjb250YWluIG51bGxzLgogIC8vCiAgLy8gVGhlIHNjb3BlIGFyZ3VtZW50IGlzIG9wdGlvbmFsLCBhbmQgZGVmYXVsdHMgdG8gd2luZG93LmRvY3VtZW50LgogIHdpbmRvdy5IVE1MV2lkZ2V0cy5maW5kQWxsID0gZnVuY3Rpb24oc2NvcGUsIHNlbGVjdG9yKSB7CiAgICBpZiAoYXJndW1lbnRzLmxlbmd0aCA9PSAxKSB7CiAgICAgIHNlbGVjdG9yID0gc2NvcGU7CiAgICAgIHNjb3BlID0gZG9jdW1lbnQ7CiAgICB9CgogICAgdmFyIG5vZGVzID0gc2NvcGUucXVlcnlTZWxlY3RvckFsbChzZWxlY3Rvcik7CiAgICB2YXIgcmVzdWx0cyA9IFtdOwogICAgZm9yICh2YXIgaSA9IDA7IGkgPCBub2Rlcy5sZW5ndGg7IGkrKykgewogICAgICByZXN1bHRzLnB1c2god2luZG93LkhUTUxXaWRnZXRzLmdldEluc3RhbmNlKG5vZGVzW2ldKSk7CiAgICB9CiAgICByZXR1cm4gcmVzdWx0czsKICB9OwoKICB2YXIgcG9zdFJlbmRlckhhbmRsZXJzID0gW107CiAgZnVuY3Rpb24gaW52b2tlUG9zdFJlbmRlckhhbmRsZXJzKCkgewogICAgd2hpbGUgKHBvc3RSZW5kZXJIYW5kbGVycy5sZW5ndGgpIHsKICAgICAgdmFyIGhhbmRsZXIgPSBwb3N0UmVuZGVySGFuZGxlcnMuc2hpZnQoKTsKICAgICAgaWYgKGhhbmRsZXIpIHsKICAgICAgICBoYW5kbGVyKCk7CiAgICAgIH0KICAgIH0KICB9CgogIC8vIFJlZ2lzdGVyIHRoZSBnaXZlbiBjYWxsYmFjayBmdW5jdGlvbiB0byBiZSBpbnZva2VkIGFmdGVyIHRoZQogIC8vIG5leHQgdGltZSBzdGF0aWMgd2lkZ2V0cyBhcmUgcmVuZGVyZWQuCiAgd2luZG93LkhUTUxXaWRnZXRzLmFkZFBvc3RSZW5kZXJIYW5kbGVyID0gZnVuY3Rpb24oY2FsbGJhY2spIHsKICAgIHBvc3RSZW5kZXJIYW5kbGVycy5wdXNoKGNhbGxiYWNrKTsKICB9OwoKICAvLyBUYWtlcyBhIG5ldy1zdHlsZSBpbnN0YW5jZS1ib3VuZCBkZWZpbml0aW9uLCBhbmQgcmV0dXJucyBhbgogIC8vIG9sZC1zdHlsZSBjbGFzcy1ib3VuZCBkZWZpbml0aW9uLiBUaGlzIHNhdmVzIHVzIGZyb20gaGF2aW5nCiAgLy8gdG8gcmV3cml0ZSBhbGwgdGhlIGxvZ2ljIGluIHRoaXMgZmlsZSB0byBhY2NvbW9kYXRlIGJvdGgKICAvLyB0eXBlcyBvZiBkZWZpbml0aW9ucy4KICBmdW5jdGlvbiBjcmVhdGVMZWdhY3lEZWZpbml0aW9uQWRhcHRlcihkZWZuKSB7CiAgICB2YXIgcmVzdWx0ID0gewogICAgICBuYW1lOiBkZWZuLm5hbWUsCiAgICAgIHR5cGU6IGRlZm4udHlwZSwKICAgICAgaW5pdGlhbGl6ZTogZnVuY3Rpb24oZWwsIHdpZHRoLCBoZWlnaHQpIHsKICAgICAgICByZXR1cm4gZGVmbi5mYWN0b3J5KGVsLCB3aWR0aCwgaGVpZ2h0KTsKICAgICAgfSwKICAgICAgcmVuZGVyVmFsdWU6IGZ1bmN0aW9uKGVsLCB4LCBpbnN0YW5jZSkgewogICAgICAgIHJldHVybiBpbnN0YW5jZS5yZW5kZXJWYWx1ZSh4KTsKICAgICAgfSwKICAgICAgcmVzaXplOiBmdW5jdGlvbihlbCwgd2lkdGgsIGhlaWdodCwgaW5zdGFuY2UpIHsKICAgICAgICByZXR1cm4gaW5zdGFuY2UucmVzaXplKHdpZHRoLCBoZWlnaHQpOwogICAgICB9CiAgICB9OwoKICAgIGlmIChkZWZuLmZpbmQpCiAgICAgIHJlc3VsdC5maW5kID0gZGVmbi5maW5kOwogICAgaWYgKGRlZm4ucmVuZGVyRXJyb3IpCiAgICAgIHJlc3VsdC5yZW5kZXJFcnJvciA9IGRlZm4ucmVuZGVyRXJyb3I7CiAgICBpZiAoZGVmbi5jbGVhckVycm9yKQogICAgICByZXN1bHQuY2xlYXJFcnJvciA9IGRlZm4uY2xlYXJFcnJvcjsKCiAgICByZXR1cm4gcmVzdWx0OwogIH0KfSkoKTsKCg==\"></script>\n",
       "<link href=\"data:text/css;charset=utf-8,%2Estr%5Fview%20ul%2C%20%2Estr%5Fview%20li%20%7B%0Alist%2Dstyle%3A%20none%3B%0Apadding%3A%200%3B%0Amargin%3A%200%2E5em%200%3B%0Afont%2Dfamily%3A%20monospace%3B%0A%7D%0A%2Estr%5Fview%20%2Ematch%20%7B%0Aborder%3A%201px%20solid%20%23ccc%3B%0Abackground%2Dcolor%3A%20%23eee%3B%0A%7D%0A\" rel=\"stylesheet\" />\n",
       "<script src=\"data:application/x-javascript;base64,SFRNTFdpZGdldHMud2lkZ2V0KHsKCiAgbmFtZTogJ3N0cl92aWV3JywKCiAgdHlwZTogJ291dHB1dCcsCgogIGluaXRpYWxpemU6IGZ1bmN0aW9uKGVsLCB3aWR0aCwgaGVpZ2h0KSB7CiAgfSwKCiAgcmVuZGVyVmFsdWU6IGZ1bmN0aW9uKGVsLCB4LCBpbnN0YW5jZSkgewogICAgZWwuaW5uZXJIVE1MID0geC5odG1sOwogIH0sCgogIHJlc2l6ZTogZnVuY3Rpb24oZWwsIHdpZHRoLCBoZWlnaHQsIGluc3RhbmNlKSB7CiAgfQoKfSk7Cg==\"></script>\n",
       "</head>\n",
       "<body style=\"background-color:white;\">\n",
       "<div id=\"htmlwidget_container\">\n",
       "<div id=\"htmlwidget-90de245c26df1ed4db00\" class=\"str_view html-widget\" style=\"width:960px;height:auto;\">\n",
       "\n",
       "</div>\n",
       "</div>\n",
       "<script type=\"application/json\" data-for=\"htmlwidget-90de245c26df1ed4db00\">{\"x\":{\"html\":\"<ul>\\n  <li><span class='match'>xyx<\\/span>y<span class='match'>xyx<\\/span><\\/li>\\n<\\/ul>\"},\"evals\":[],\"jsHooks\":[]}</script>\n",
       "<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-90de245c26df1ed4db00\">{\"viewer\":{\"width\":450,\"height\":\"auto\",\"padding\":15,\"fill\":true},\"browser\":{\"width\":960,\"height\":\"auto\",\"padding\":40,\"fill\":false}}</script>\n",
       "</body>\n",
       "</html>\n"
      ],
      "text/plain": [
       "HTML widgets cannot be represented in plain text (need html)"
      ]
     },
     "metadata": {
      "text/html": {
       "isolated": true
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_view_all(\"xyxyxyx\", \"xyx\") # not how matches don't overlap"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "2"
      ],
      "text/latex": [
       "2"
      ],
      "text/markdown": [
       "2"
      ],
      "text/plain": [
       "[1] 2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_count(\"xyxyxyx\", \"xyx\") # gives the number of matches"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "# A tibble: 980 x 4\n",
      "       word     i num_vowels num_consonants\n",
      "      <chr> <int>      <int>          <int>\n",
      " 1        a     1          1              0\n",
      " 2     able     2          2              2\n",
      " 3    about     3          3              2\n",
      " 4 absolute     4          4              4\n",
      " 5   accept     5          2              4\n",
      " 6  account     6          3              4\n",
      " 7  achieve     7          4              3\n",
      " 8   across     8          2              4\n",
      " 9      act     9          1              2\n",
      "10   active    10          3              3\n",
      "# ... with 970 more rows\n"
     ]
    }
   ],
   "source": [
    "df <- df %>% # mutate with str_count\n",
    "            mutate(num_vowels = str_count(word, \"[aeiou]\"),\n",
    "                   num_consonants = str_count(word, \"[^aeiou]\"))\n",
    "print(df)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "# A tibble: 980 x 5\n",
      "       word     i num_vowels num_consonants vowel_prop\n",
      "      <chr> <int>      <int>          <int>      <dbl>\n",
      " 1        a     1          1              0  1.0000000\n",
      " 2     able     2          2              2  0.5000000\n",
      " 3    about     3          3              2  0.6000000\n",
      " 4 absolute     4          4              4  0.5000000\n",
      " 5   accept     5          2              4  0.3333333\n",
      " 6  account     6          3              4  0.4285714\n",
      " 7  achieve     7          4              3  0.5714286\n",
      " 8   across     8          2              4  0.3333333\n",
      " 9      act     9          1              2  0.3333333\n",
      "10   active    10          3              3  0.5000000\n",
      "# ... with 970 more rows\n"
     ]
    }
   ],
   "source": [
    "df <- df %>% # compute a new column having proportion of vowels in the words\n",
    "            mutate(vowel_prop = num_vowels / str_length(word)) \n",
    "print(df)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>word</th><th scope=col>i</th><th scope=col>num_vowels</th><th scope=col>num_consonants</th><th scope=col>vowel_prop</th></tr></thead>\n",
       "<tbody>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " word & i & num\\_vowels & num\\_consonants & vowel\\_prop\\\\\n",
       "\\hline\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "word | i | num_vowels | num_consonants | vowel_prop | \n",
       "||\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     word i num_vowels num_consonants vowel_prop"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "filter(df, str_detect(word, \"a\"), str_detect(word, \"e\"), str_detect(word, \"i\"),\n",
    "       str_detect(word, \"o\"), str_detect(word, \"u\")) # words containing all vowels"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>word</th><th scope=col>i</th><th scope=col>num_vowels</th><th scope=col>num_consonants</th><th scope=col>vowel_prop</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>absolute   </td><td>  4        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>appropriate</td><td> 48        </td><td>5          </td><td>6          </td><td>0.4545455  </td></tr>\n",
       "\t<tr><td>associate  </td><td> 57        </td><td>5          </td><td>4          </td><td>0.5555556  </td></tr>\n",
       "\t<tr><td>authority  </td><td> 61        </td><td>4          </td><td>5          </td><td>0.4444444  </td></tr>\n",
       "\t<tr><td>colleague  </td><td>166        </td><td>5          </td><td>4          </td><td>0.5555556  </td></tr>\n",
       "\t<tr><td>continue   </td><td>186        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>encourage  </td><td>268        </td><td>5          </td><td>4          </td><td>0.5555556  </td></tr>\n",
       "\t<tr><td>introduce  </td><td>431        </td><td>4          </td><td>5          </td><td>0.4444444  </td></tr>\n",
       "\t<tr><td>organize   </td><td>585        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>previous   </td><td>644        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>question   </td><td>667        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>relation   </td><td>695        </td><td>4          </td><td>4          </td><td>0.5000000  </td></tr>\n",
       "\t<tr><td>serious    </td><td>741        </td><td>4          </td><td>3          </td><td>0.5714286  </td></tr>\n",
       "\t<tr><td>situate    </td><td>771        </td><td>4          </td><td>3          </td><td>0.5714286  </td></tr>\n",
       "\t<tr><td>various    </td><td>915        </td><td>4          </td><td>3          </td><td>0.5714286  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " word & i & num\\_vowels & num\\_consonants & vowel\\_prop\\\\\n",
       "\\hline\n",
       "\t absolute    &   4         & 4           & 4           & 0.5000000  \\\\\n",
       "\t appropriate &  48         & 5           & 6           & 0.4545455  \\\\\n",
       "\t associate   &  57         & 5           & 4           & 0.5555556  \\\\\n",
       "\t authority   &  61         & 4           & 5           & 0.4444444  \\\\\n",
       "\t colleague   & 166         & 5           & 4           & 0.5555556  \\\\\n",
       "\t continue    & 186         & 4           & 4           & 0.5000000  \\\\\n",
       "\t encourage   & 268         & 5           & 4           & 0.5555556  \\\\\n",
       "\t introduce   & 431         & 4           & 5           & 0.4444444  \\\\\n",
       "\t organize    & 585         & 4           & 4           & 0.5000000  \\\\\n",
       "\t previous    & 644         & 4           & 4           & 0.5000000  \\\\\n",
       "\t question    & 667         & 4           & 4           & 0.5000000  \\\\\n",
       "\t relation    & 695         & 4           & 4           & 0.5000000  \\\\\n",
       "\t serious     & 741         & 4           & 3           & 0.5714286  \\\\\n",
       "\t situate     & 771         & 4           & 3           & 0.5714286  \\\\\n",
       "\t various     & 915         & 4           & 3           & 0.5714286  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "word | i | num_vowels | num_consonants | vowel_prop | \n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| absolute    |   4         | 4           | 4           | 0.5000000   | \n",
       "| appropriate |  48         | 5           | 6           | 0.4545455   | \n",
       "| associate   |  57         | 5           | 4           | 0.5555556   | \n",
       "| authority   |  61         | 4           | 5           | 0.4444444   | \n",
       "| colleague   | 166         | 5           | 4           | 0.5555556   | \n",
       "| continue    | 186         | 4           | 4           | 0.5000000   | \n",
       "| encourage   | 268         | 5           | 4           | 0.5555556   | \n",
       "| introduce   | 431         | 4           | 5           | 0.4444444   | \n",
       "| organize    | 585         | 4           | 4           | 0.5000000   | \n",
       "| previous    | 644         | 4           | 4           | 0.5000000   | \n",
       "| question    | 667         | 4           | 4           | 0.5000000   | \n",
       "| relation    | 695         | 4           | 4           | 0.5000000   | \n",
       "| serious     | 741         | 4           | 3           | 0.5714286   | \n",
       "| situate     | 771         | 4           | 3           | 0.5714286   | \n",
       "| various     | 915         | 4           | 3           | 0.5714286   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "   word        i   num_vowels num_consonants vowel_prop\n",
       "1  absolute      4 4          4              0.5000000 \n",
       "2  appropriate  48 5          6              0.4545455 \n",
       "3  associate    57 5          4              0.5555556 \n",
       "4  authority    61 4          5              0.4444444 \n",
       "5  colleague   166 5          4              0.5555556 \n",
       "6  continue    186 4          4              0.5000000 \n",
       "7  encourage   268 5          4              0.5555556 \n",
       "8  introduce   431 4          5              0.4444444 \n",
       "9  organize    585 4          4              0.5000000 \n",
       "10 previous    644 4          4              0.5000000 \n",
       "11 question    667 4          4              0.5000000 \n",
       "12 relation    695 4          4              0.5000000 \n",
       "13 serious     741 4          3              0.5714286 \n",
       "14 situate     771 4          3              0.5714286 \n",
       "15 various     915 4          3              0.5714286 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# words with at least 4 different vowels\n",
    "filter(df, str_detect(word, \"a\") + str_detect(word, \"e\") + str_detect(word, \"i\") +\n",
    "       str_detect(word, \"o\") + str_detect(word, \"u\") >= 4)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": true
   },
   "source": [
    "# Extract matches"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"[aeiou][aeiou][^aeiou][aeiou]\"\n"
     ]
    }
   ],
   "source": [
    "v <- \"[aeiou]\"\n",
    "c <- \"[^aeiou]\"\n",
    "vvcv <- str_c(v, v, c, v)\n",
    "print(vvcv)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'achieve'</li>\n",
       "\t<li>'appropriate'</li>\n",
       "\t<li>'associate'</li>\n",
       "\t<li>'available'</li>\n",
       "\t<li>'because'</li>\n",
       "\t<li>'believe'</li>\n",
       "\t<li>'cause'</li>\n",
       "\t<li>'choice'</li>\n",
       "\t<li>'choose'</li>\n",
       "\t<li>'colleague'</li>\n",
       "\t<li>'create'</li>\n",
       "\t<li>'encourage'</li>\n",
       "\t<li>'europe'</li>\n",
       "\t<li>'house'</li>\n",
       "\t<li>'increase'</li>\n",
       "\t<li>'language'</li>\n",
       "\t<li>'leave'</li>\n",
       "\t<li>'meaning'</li>\n",
       "\t<li>'measure'</li>\n",
       "\t<li>'piece'</li>\n",
       "\t<li>'please'</li>\n",
       "\t<li>'quality'</li>\n",
       "\t<li>'quite'</li>\n",
       "\t<li>'raise'</li>\n",
       "\t<li>'realise'</li>\n",
       "\t<li>'reason'</li>\n",
       "\t<li>'receive'</li>\n",
       "\t<li>'require'</li>\n",
       "\t<li>'situate'</li>\n",
       "\t<li>'square'</li>\n",
       "\t<li>'thousand'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'achieve'\n",
       "\\item 'appropriate'\n",
       "\\item 'associate'\n",
       "\\item 'available'\n",
       "\\item 'because'\n",
       "\\item 'believe'\n",
       "\\item 'cause'\n",
       "\\item 'choice'\n",
       "\\item 'choose'\n",
       "\\item 'colleague'\n",
       "\\item 'create'\n",
       "\\item 'encourage'\n",
       "\\item 'europe'\n",
       "\\item 'house'\n",
       "\\item 'increase'\n",
       "\\item 'language'\n",
       "\\item 'leave'\n",
       "\\item 'meaning'\n",
       "\\item 'measure'\n",
       "\\item 'piece'\n",
       "\\item 'please'\n",
       "\\item 'quality'\n",
       "\\item 'quite'\n",
       "\\item 'raise'\n",
       "\\item 'realise'\n",
       "\\item 'reason'\n",
       "\\item 'receive'\n",
       "\\item 'require'\n",
       "\\item 'situate'\n",
       "\\item 'square'\n",
       "\\item 'thousand'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'achieve'\n",
       "2. 'appropriate'\n",
       "3. 'associate'\n",
       "4. 'available'\n",
       "5. 'because'\n",
       "6. 'believe'\n",
       "7. 'cause'\n",
       "8. 'choice'\n",
       "9. 'choose'\n",
       "10. 'colleague'\n",
       "11. 'create'\n",
       "12. 'encourage'\n",
       "13. 'europe'\n",
       "14. 'house'\n",
       "15. 'increase'\n",
       "16. 'language'\n",
       "17. 'leave'\n",
       "18. 'meaning'\n",
       "19. 'measure'\n",
       "20. 'piece'\n",
       "21. 'please'\n",
       "22. 'quality'\n",
       "23. 'quite'\n",
       "24. 'raise'\n",
       "25. 'realise'\n",
       "26. 'reason'\n",
       "27. 'receive'\n",
       "28. 'require'\n",
       "29. 'situate'\n",
       "30. 'square'\n",
       "31. 'thousand'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"achieve\"     \"appropriate\" \"associate\"   \"available\"   \"because\"    \n",
       " [6] \"believe\"     \"cause\"       \"choice\"      \"choose\"      \"colleague\"  \n",
       "[11] \"create\"      \"encourage\"   \"europe\"      \"house\"       \"increase\"   \n",
       "[16] \"language\"    \"leave\"       \"meaning\"     \"measure\"     \"piece\"      \n",
       "[21] \"please\"      \"quality\"     \"quite\"       \"raise\"       \"realise\"    \n",
       "[26] \"reason\"      \"receive\"     \"require\"     \"situate\"     \"square\"     \n",
       "[31] \"thousand\"   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "(vvcv_words <- str_subset(words, vvcv)) # words containing the pattern vvcv"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'ieve'</li>\n",
       "\t<li>'iate'</li>\n",
       "\t<li>'iate'</li>\n",
       "\t<li>'aila'</li>\n",
       "\t<li>'ause'</li>\n",
       "\t<li>'ieve'</li>\n",
       "\t<li>'ause'</li>\n",
       "\t<li>'oice'</li>\n",
       "\t<li>'oose'</li>\n",
       "\t<li>'eagu'</li>\n",
       "\t<li>'eate'</li>\n",
       "\t<li>'oura'</li>\n",
       "\t<li>'euro'</li>\n",
       "\t<li>'ouse'</li>\n",
       "\t<li>'ease'</li>\n",
       "\t<li>'uage'</li>\n",
       "\t<li>'eave'</li>\n",
       "\t<li>'eani'</li>\n",
       "\t<li>'easu'</li>\n",
       "\t<li>'iece'</li>\n",
       "\t<li>'ease'</li>\n",
       "\t<li>'uali'</li>\n",
       "\t<li>'uite'</li>\n",
       "\t<li>'aise'</li>\n",
       "\t<li>'eali'</li>\n",
       "\t<li>'easo'</li>\n",
       "\t<li>'eive'</li>\n",
       "\t<li>'uire'</li>\n",
       "\t<li>'uate'</li>\n",
       "\t<li>'uare'</li>\n",
       "\t<li>'ousa'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'ieve'\n",
       "\\item 'iate'\n",
       "\\item 'iate'\n",
       "\\item 'aila'\n",
       "\\item 'ause'\n",
       "\\item 'ieve'\n",
       "\\item 'ause'\n",
       "\\item 'oice'\n",
       "\\item 'oose'\n",
       "\\item 'eagu'\n",
       "\\item 'eate'\n",
       "\\item 'oura'\n",
       "\\item 'euro'\n",
       "\\item 'ouse'\n",
       "\\item 'ease'\n",
       "\\item 'uage'\n",
       "\\item 'eave'\n",
       "\\item 'eani'\n",
       "\\item 'easu'\n",
       "\\item 'iece'\n",
       "\\item 'ease'\n",
       "\\item 'uali'\n",
       "\\item 'uite'\n",
       "\\item 'aise'\n",
       "\\item 'eali'\n",
       "\\item 'easo'\n",
       "\\item 'eive'\n",
       "\\item 'uire'\n",
       "\\item 'uate'\n",
       "\\item 'uare'\n",
       "\\item 'ousa'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'ieve'\n",
       "2. 'iate'\n",
       "3. 'iate'\n",
       "4. 'aila'\n",
       "5. 'ause'\n",
       "6. 'ieve'\n",
       "7. 'ause'\n",
       "8. 'oice'\n",
       "9. 'oose'\n",
       "10. 'eagu'\n",
       "11. 'eate'\n",
       "12. 'oura'\n",
       "13. 'euro'\n",
       "14. 'ouse'\n",
       "15. 'ease'\n",
       "16. 'uage'\n",
       "17. 'eave'\n",
       "18. 'eani'\n",
       "19. 'easu'\n",
       "20. 'iece'\n",
       "21. 'ease'\n",
       "22. 'uali'\n",
       "23. 'uite'\n",
       "24. 'aise'\n",
       "25. 'eali'\n",
       "26. 'easo'\n",
       "27. 'eive'\n",
       "28. 'uire'\n",
       "29. 'uate'\n",
       "30. 'uare'\n",
       "31. 'ousa'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"ieve\" \"iate\" \"iate\" \"aila\" \"ause\" \"ieve\" \"ause\" \"oice\" \"oose\" \"eagu\"\n",
       "[11] \"eate\" \"oura\" \"euro\" \"ouse\" \"ease\" \"uage\" \"eave\" \"eani\" \"easu\" \"iece\"\n",
       "[21] \"ease\" \"uali\" \"uite\" \"aise\" \"eali\" \"easo\" \"eive\" \"uire\" \"uate\" \"uare\"\n",
       "[31] \"ousa\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_extract(vvcv_words, vvcv) # the patterns themselves"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"[^aeiou][aeiou][aeiou][^aeiou]\"\n"
     ]
    }
   ],
   "source": [
    "cvvc <- str_c(c, v, v, c)\n",
    "print(cvvc)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'about'</li>\n",
       "\t<li>'account'</li>\n",
       "\t<li>'achieve'</li>\n",
       "\t<li>'actual'</li>\n",
       "\t<li>'afternoon'</li>\n",
       "\t<li>'again'</li>\n",
       "\t<li>'against'</li>\n",
       "\t<li>'already'</li>\n",
       "\t<li>'although'</li>\n",
       "\t<li>'amount'</li>\n",
       "\t<li>'appear'</li>\n",
       "\t<li>'appoint'</li>\n",
       "\t<li>'approach'</li>\n",
       "\t<li>'appropriate'</li>\n",
       "\t<li>'around'</li>\n",
       "\t<li>'associate'</li>\n",
       "\t<li>'available'</li>\n",
       "\t<li>'bear'</li>\n",
       "\t<li>'beat'</li>\n",
       "\t<li>'because'</li>\n",
       "\t<li>'believe'</li>\n",
       "\t<li>'between'</li>\n",
       "\t<li>'blood'</li>\n",
       "\t<li>'board'</li>\n",
       "\t<li>'boat'</li>\n",
       "\t<li>'book'</li>\n",
       "\t<li>'break'</li>\n",
       "\t<li>'brief'</li>\n",
       "\t<li>'brilliant'</li>\n",
       "\t<li>'britain'</li>\n",
       "\t<li>'build'</li>\n",
       "\t<li>'cause'</li>\n",
       "\t<li>'certain'</li>\n",
       "\t<li>'chair'</li>\n",
       "\t<li>'chairman'</li>\n",
       "\t<li>'cheap'</li>\n",
       "\t<li>'choice'</li>\n",
       "\t<li>'choose'</li>\n",
       "\t<li>'claim'</li>\n",
       "\t<li>'clean'</li>\n",
       "\t<li>'clear'</li>\n",
       "\t<li>'client'</li>\n",
       "\t<li>'colleague'</li>\n",
       "\t<li>'colour'</li>\n",
       "\t<li>'condition'</li>\n",
       "\t<li>'cook'</li>\n",
       "\t<li>'could'</li>\n",
       "\t<li>'council'</li>\n",
       "\t<li>'count'</li>\n",
       "\t<li>'country'</li>\n",
       "\t<li>'county'</li>\n",
       "\t<li>'couple'</li>\n",
       "\t<li>'course'</li>\n",
       "\t<li>'court'</li>\n",
       "\t<li>'create'</li>\n",
       "\t<li>'dead'</li>\n",
       "\t<li>'deal'</li>\n",
       "\t<li>'dear'</li>\n",
       "\t<li>'decision'</li>\n",
       "\t<li>'deep'</li>\n",
       "\t<li>'detail'</li>\n",
       "\t<li>'door'</li>\n",
       "\t<li>'double'</li>\n",
       "\t<li>'doubt'</li>\n",
       "\t<li>'encourage'</li>\n",
       "\t<li>'enough'</li>\n",
       "\t<li>'equal'</li>\n",
       "\t<li>'especial'</li>\n",
       "\t<li>'experience'</li>\n",
       "\t<li>'explain'</li>\n",
       "\t<li>'fair'</li>\n",
       "\t<li>'favour'</li>\n",
       "\t<li>'feed'</li>\n",
       "\t<li>'feel'</li>\n",
       "\t<li>'field'</li>\n",
       "\t<li>'floor'</li>\n",
       "\t<li>'food'</li>\n",
       "\t<li>'foot'</li>\n",
       "\t<li>'four'</li>\n",
       "\t<li>'friend'</li>\n",
       "\t<li>'function'</li>\n",
       "\t<li>'good'</li>\n",
       "\t<li>'goodbye'</li>\n",
       "\t<li>'great'</li>\n",
       "\t<li>'green'</li>\n",
       "\t<li>'ground'</li>\n",
       "\t<li>'group'</li>\n",
       "\t<li>'guess'</li>\n",
       "\t<li>'hair'</li>\n",
       "\t<li>'head'</li>\n",
       "\t<li>'health'</li>\n",
       "\t<li>'hear'</li>\n",
       "\t<li>'heart'</li>\n",
       "\t<li>'heat'</li>\n",
       "\t<li>'heavy'</li>\n",
       "\t<li>'hour'</li>\n",
       "\t<li>'house'</li>\n",
       "\t<li>'increase'</li>\n",
       "\t<li>'indeed'</li>\n",
       "\t<li>'individual'</li>\n",
       "\t<li>'instead'</li>\n",
       "\t<li>'join'</li>\n",
       "\t<li>'keep'</li>\n",
       "\t<li>'labour'</li>\n",
       "\t<li>'language'</li>\n",
       "\t<li>'laugh'</li>\n",
       "\t<li>'lead'</li>\n",
       "\t<li>'learn'</li>\n",
       "\t<li>'leave'</li>\n",
       "\t<li>'load'</li>\n",
       "\t<li>'look'</li>\n",
       "\t<li>'main'</li>\n",
       "\t<li>'mean'</li>\n",
       "\t<li>'meaning'</li>\n",
       "\t<li>'measure'</li>\n",
       "\t<li>'meet'</li>\n",
       "\t<li>'mention'</li>\n",
       "\t<li>'million'</li>\n",
       "\t<li>'motion'</li>\n",
       "\t<li>'nation'</li>\n",
       "\t<li>'near'</li>\n",
       "\t<li>'need'</li>\n",
       "\t<li>'occasion'</li>\n",
       "\t<li>'paint'</li>\n",
       "\t<li>'pair'</li>\n",
       "\t<li>'pension'</li>\n",
       "\t<li>'people'</li>\n",
       "\t<li>'period'</li>\n",
       "\t<li>'piece'</li>\n",
       "\t<li>'please'</li>\n",
       "\t<li>'point'</li>\n",
       "\t<li>'poor'</li>\n",
       "\t<li>'position'</li>\n",
       "\t<li>'pound'</li>\n",
       "\t<li>'proceed'</li>\n",
       "\t<li>'quality'</li>\n",
       "\t<li>'quarter'</li>\n",
       "\t<li>'question'</li>\n",
       "\t<li>'quick'</li>\n",
       "\t<li>'quid'</li>\n",
       "\t<li>'quite'</li>\n",
       "\t<li>'rail'</li>\n",
       "\t<li>'raise'</li>\n",
       "\t<li>'read'</li>\n",
       "\t<li>'ready'</li>\n",
       "\t<li>'real'</li>\n",
       "\t<li>'realise'</li>\n",
       "\t<li>'really'</li>\n",
       "\t<li>'reason'</li>\n",
       "\t<li>'receive'</li>\n",
       "\t<li>'region'</li>\n",
       "\t<li>'relation'</li>\n",
       "\t<li>'require'</li>\n",
       "\t<li>'research'</li>\n",
       "\t<li>'resource'</li>\n",
       "\t<li>'road'</li>\n",
       "\t<li>'room'</li>\n",
       "\t<li>'round'</li>\n",
       "\t<li>'school'</li>\n",
       "\t<li>'science'</li>\n",
       "\t<li>'seat'</li>\n",
       "\t<li>'section'</li>\n",
       "\t<li>'seem'</li>\n",
       "\t<li>'sheet'</li>\n",
       "\t<li>'shoot'</li>\n",
       "\t<li>'should'</li>\n",
       "\t<li>'situate'</li>\n",
       "\t<li>'sleep'</li>\n",
       "\t<li>'social'</li>\n",
       "\t<li>'society'</li>\n",
       "\t<li>'soon'</li>\n",
       "\t<li>'sound'</li>\n",
       "\t<li>'south'</li>\n",
       "\t<li>'speak'</li>\n",
       "\t<li>'special'</li>\n",
       "\t<li>'speed'</li>\n",
       "\t<li>'square'</li>\n",
       "\t<li>'stairs'</li>\n",
       "\t<li>'station'</li>\n",
       "\t<li>'straight'</li>\n",
       "\t<li>'street'</li>\n",
       "\t<li>'succeed'</li>\n",
       "\t<li>'suit'</li>\n",
       "\t<li>'teach'</li>\n",
       "\t<li>'team'</li>\n",
       "\t<li>'television'</li>\n",
       "\t<li>'thirteen'</li>\n",
       "\t<li>'though'</li>\n",
       "\t<li>'thousand'</li>\n",
       "\t<li>'through'</li>\n",
       "\t<li>'touch'</li>\n",
       "\t<li>'train'</li>\n",
       "\t<li>'treat'</li>\n",
       "\t<li>'trouble'</li>\n",
       "\t<li>'tuesday'</li>\n",
       "\t<li>'union'</li>\n",
       "\t<li>'usual'</li>\n",
       "\t<li>'view'</li>\n",
       "\t<li>'wait'</li>\n",
       "\t<li>'wear'</li>\n",
       "\t<li>'week'</li>\n",
       "\t<li>'weigh'</li>\n",
       "\t<li>'without'</li>\n",
       "\t<li>'wood'</li>\n",
       "\t<li>'would'</li>\n",
       "\t<li>'year'</li>\n",
       "\t<li>'young'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'about'\n",
       "\\item 'account'\n",
       "\\item 'achieve'\n",
       "\\item 'actual'\n",
       "\\item 'afternoon'\n",
       "\\item 'again'\n",
       "\\item 'against'\n",
       "\\item 'already'\n",
       "\\item 'although'\n",
       "\\item 'amount'\n",
       "\\item 'appear'\n",
       "\\item 'appoint'\n",
       "\\item 'approach'\n",
       "\\item 'appropriate'\n",
       "\\item 'around'\n",
       "\\item 'associate'\n",
       "\\item 'available'\n",
       "\\item 'bear'\n",
       "\\item 'beat'\n",
       "\\item 'because'\n",
       "\\item 'believe'\n",
       "\\item 'between'\n",
       "\\item 'blood'\n",
       "\\item 'board'\n",
       "\\item 'boat'\n",
       "\\item 'book'\n",
       "\\item 'break'\n",
       "\\item 'brief'\n",
       "\\item 'brilliant'\n",
       "\\item 'britain'\n",
       "\\item 'build'\n",
       "\\item 'cause'\n",
       "\\item 'certain'\n",
       "\\item 'chair'\n",
       "\\item 'chairman'\n",
       "\\item 'cheap'\n",
       "\\item 'choice'\n",
       "\\item 'choose'\n",
       "\\item 'claim'\n",
       "\\item 'clean'\n",
       "\\item 'clear'\n",
       "\\item 'client'\n",
       "\\item 'colleague'\n",
       "\\item 'colour'\n",
       "\\item 'condition'\n",
       "\\item 'cook'\n",
       "\\item 'could'\n",
       "\\item 'council'\n",
       "\\item 'count'\n",
       "\\item 'country'\n",
       "\\item 'county'\n",
       "\\item 'couple'\n",
       "\\item 'course'\n",
       "\\item 'court'\n",
       "\\item 'create'\n",
       "\\item 'dead'\n",
       "\\item 'deal'\n",
       "\\item 'dear'\n",
       "\\item 'decision'\n",
       "\\item 'deep'\n",
       "\\item 'detail'\n",
       "\\item 'door'\n",
       "\\item 'double'\n",
       "\\item 'doubt'\n",
       "\\item 'encourage'\n",
       "\\item 'enough'\n",
       "\\item 'equal'\n",
       "\\item 'especial'\n",
       "\\item 'experience'\n",
       "\\item 'explain'\n",
       "\\item 'fair'\n",
       "\\item 'favour'\n",
       "\\item 'feed'\n",
       "\\item 'feel'\n",
       "\\item 'field'\n",
       "\\item 'floor'\n",
       "\\item 'food'\n",
       "\\item 'foot'\n",
       "\\item 'four'\n",
       "\\item 'friend'\n",
       "\\item 'function'\n",
       "\\item 'good'\n",
       "\\item 'goodbye'\n",
       "\\item 'great'\n",
       "\\item 'green'\n",
       "\\item 'ground'\n",
       "\\item 'group'\n",
       "\\item 'guess'\n",
       "\\item 'hair'\n",
       "\\item 'head'\n",
       "\\item 'health'\n",
       "\\item 'hear'\n",
       "\\item 'heart'\n",
       "\\item 'heat'\n",
       "\\item 'heavy'\n",
       "\\item 'hour'\n",
       "\\item 'house'\n",
       "\\item 'increase'\n",
       "\\item 'indeed'\n",
       "\\item 'individual'\n",
       "\\item 'instead'\n",
       "\\item 'join'\n",
       "\\item 'keep'\n",
       "\\item 'labour'\n",
       "\\item 'language'\n",
       "\\item 'laugh'\n",
       "\\item 'lead'\n",
       "\\item 'learn'\n",
       "\\item 'leave'\n",
       "\\item 'load'\n",
       "\\item 'look'\n",
       "\\item 'main'\n",
       "\\item 'mean'\n",
       "\\item 'meaning'\n",
       "\\item 'measure'\n",
       "\\item 'meet'\n",
       "\\item 'mention'\n",
       "\\item 'million'\n",
       "\\item 'motion'\n",
       "\\item 'nation'\n",
       "\\item 'near'\n",
       "\\item 'need'\n",
       "\\item 'occasion'\n",
       "\\item 'paint'\n",
       "\\item 'pair'\n",
       "\\item 'pension'\n",
       "\\item 'people'\n",
       "\\item 'period'\n",
       "\\item 'piece'\n",
       "\\item 'please'\n",
       "\\item 'point'\n",
       "\\item 'poor'\n",
       "\\item 'position'\n",
       "\\item 'pound'\n",
       "\\item 'proceed'\n",
       "\\item 'quality'\n",
       "\\item 'quarter'\n",
       "\\item 'question'\n",
       "\\item 'quick'\n",
       "\\item 'quid'\n",
       "\\item 'quite'\n",
       "\\item 'rail'\n",
       "\\item 'raise'\n",
       "\\item 'read'\n",
       "\\item 'ready'\n",
       "\\item 'real'\n",
       "\\item 'realise'\n",
       "\\item 'really'\n",
       "\\item 'reason'\n",
       "\\item 'receive'\n",
       "\\item 'region'\n",
       "\\item 'relation'\n",
       "\\item 'require'\n",
       "\\item 'research'\n",
       "\\item 'resource'\n",
       "\\item 'road'\n",
       "\\item 'room'\n",
       "\\item 'round'\n",
       "\\item 'school'\n",
       "\\item 'science'\n",
       "\\item 'seat'\n",
       "\\item 'section'\n",
       "\\item 'seem'\n",
       "\\item 'sheet'\n",
       "\\item 'shoot'\n",
       "\\item 'should'\n",
       "\\item 'situate'\n",
       "\\item 'sleep'\n",
       "\\item 'social'\n",
       "\\item 'society'\n",
       "\\item 'soon'\n",
       "\\item 'sound'\n",
       "\\item 'south'\n",
       "\\item 'speak'\n",
       "\\item 'special'\n",
       "\\item 'speed'\n",
       "\\item 'square'\n",
       "\\item 'stairs'\n",
       "\\item 'station'\n",
       "\\item 'straight'\n",
       "\\item 'street'\n",
       "\\item 'succeed'\n",
       "\\item 'suit'\n",
       "\\item 'teach'\n",
       "\\item 'team'\n",
       "\\item 'television'\n",
       "\\item 'thirteen'\n",
       "\\item 'though'\n",
       "\\item 'thousand'\n",
       "\\item 'through'\n",
       "\\item 'touch'\n",
       "\\item 'train'\n",
       "\\item 'treat'\n",
       "\\item 'trouble'\n",
       "\\item 'tuesday'\n",
       "\\item 'union'\n",
       "\\item 'usual'\n",
       "\\item 'view'\n",
       "\\item 'wait'\n",
       "\\item 'wear'\n",
       "\\item 'week'\n",
       "\\item 'weigh'\n",
       "\\item 'without'\n",
       "\\item 'wood'\n",
       "\\item 'would'\n",
       "\\item 'year'\n",
       "\\item 'young'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'about'\n",
       "2. 'account'\n",
       "3. 'achieve'\n",
       "4. 'actual'\n",
       "5. 'afternoon'\n",
       "6. 'again'\n",
       "7. 'against'\n",
       "8. 'already'\n",
       "9. 'although'\n",
       "10. 'amount'\n",
       "11. 'appear'\n",
       "12. 'appoint'\n",
       "13. 'approach'\n",
       "14. 'appropriate'\n",
       "15. 'around'\n",
       "16. 'associate'\n",
       "17. 'available'\n",
       "18. 'bear'\n",
       "19. 'beat'\n",
       "20. 'because'\n",
       "21. 'believe'\n",
       "22. 'between'\n",
       "23. 'blood'\n",
       "24. 'board'\n",
       "25. 'boat'\n",
       "26. 'book'\n",
       "27. 'break'\n",
       "28. 'brief'\n",
       "29. 'brilliant'\n",
       "30. 'britain'\n",
       "31. 'build'\n",
       "32. 'cause'\n",
       "33. 'certain'\n",
       "34. 'chair'\n",
       "35. 'chairman'\n",
       "36. 'cheap'\n",
       "37. 'choice'\n",
       "38. 'choose'\n",
       "39. 'claim'\n",
       "40. 'clean'\n",
       "41. 'clear'\n",
       "42. 'client'\n",
       "43. 'colleague'\n",
       "44. 'colour'\n",
       "45. 'condition'\n",
       "46. 'cook'\n",
       "47. 'could'\n",
       "48. 'council'\n",
       "49. 'count'\n",
       "50. 'country'\n",
       "51. 'county'\n",
       "52. 'couple'\n",
       "53. 'course'\n",
       "54. 'court'\n",
       "55. 'create'\n",
       "56. 'dead'\n",
       "57. 'deal'\n",
       "58. 'dear'\n",
       "59. 'decision'\n",
       "60. 'deep'\n",
       "61. 'detail'\n",
       "62. 'door'\n",
       "63. 'double'\n",
       "64. 'doubt'\n",
       "65. 'encourage'\n",
       "66. 'enough'\n",
       "67. 'equal'\n",
       "68. 'especial'\n",
       "69. 'experience'\n",
       "70. 'explain'\n",
       "71. 'fair'\n",
       "72. 'favour'\n",
       "73. 'feed'\n",
       "74. 'feel'\n",
       "75. 'field'\n",
       "76. 'floor'\n",
       "77. 'food'\n",
       "78. 'foot'\n",
       "79. 'four'\n",
       "80. 'friend'\n",
       "81. 'function'\n",
       "82. 'good'\n",
       "83. 'goodbye'\n",
       "84. 'great'\n",
       "85. 'green'\n",
       "86. 'ground'\n",
       "87. 'group'\n",
       "88. 'guess'\n",
       "89. 'hair'\n",
       "90. 'head'\n",
       "91. 'health'\n",
       "92. 'hear'\n",
       "93. 'heart'\n",
       "94. 'heat'\n",
       "95. 'heavy'\n",
       "96. 'hour'\n",
       "97. 'house'\n",
       "98. 'increase'\n",
       "99. 'indeed'\n",
       "100. 'individual'\n",
       "101. 'instead'\n",
       "102. 'join'\n",
       "103. 'keep'\n",
       "104. 'labour'\n",
       "105. 'language'\n",
       "106. 'laugh'\n",
       "107. 'lead'\n",
       "108. 'learn'\n",
       "109. 'leave'\n",
       "110. 'load'\n",
       "111. 'look'\n",
       "112. 'main'\n",
       "113. 'mean'\n",
       "114. 'meaning'\n",
       "115. 'measure'\n",
       "116. 'meet'\n",
       "117. 'mention'\n",
       "118. 'million'\n",
       "119. 'motion'\n",
       "120. 'nation'\n",
       "121. 'near'\n",
       "122. 'need'\n",
       "123. 'occasion'\n",
       "124. 'paint'\n",
       "125. 'pair'\n",
       "126. 'pension'\n",
       "127. 'people'\n",
       "128. 'period'\n",
       "129. 'piece'\n",
       "130. 'please'\n",
       "131. 'point'\n",
       "132. 'poor'\n",
       "133. 'position'\n",
       "134. 'pound'\n",
       "135. 'proceed'\n",
       "136. 'quality'\n",
       "137. 'quarter'\n",
       "138. 'question'\n",
       "139. 'quick'\n",
       "140. 'quid'\n",
       "141. 'quite'\n",
       "142. 'rail'\n",
       "143. 'raise'\n",
       "144. 'read'\n",
       "145. 'ready'\n",
       "146. 'real'\n",
       "147. 'realise'\n",
       "148. 'really'\n",
       "149. 'reason'\n",
       "150. 'receive'\n",
       "151. 'region'\n",
       "152. 'relation'\n",
       "153. 'require'\n",
       "154. 'research'\n",
       "155. 'resource'\n",
       "156. 'road'\n",
       "157. 'room'\n",
       "158. 'round'\n",
       "159. 'school'\n",
       "160. 'science'\n",
       "161. 'seat'\n",
       "162. 'section'\n",
       "163. 'seem'\n",
       "164. 'sheet'\n",
       "165. 'shoot'\n",
       "166. 'should'\n",
       "167. 'situate'\n",
       "168. 'sleep'\n",
       "169. 'social'\n",
       "170. 'society'\n",
       "171. 'soon'\n",
       "172. 'sound'\n",
       "173. 'south'\n",
       "174. 'speak'\n",
       "175. 'special'\n",
       "176. 'speed'\n",
       "177. 'square'\n",
       "178. 'stairs'\n",
       "179. 'station'\n",
       "180. 'straight'\n",
       "181. 'street'\n",
       "182. 'succeed'\n",
       "183. 'suit'\n",
       "184. 'teach'\n",
       "185. 'team'\n",
       "186. 'television'\n",
       "187. 'thirteen'\n",
       "188. 'though'\n",
       "189. 'thousand'\n",
       "190. 'through'\n",
       "191. 'touch'\n",
       "192. 'train'\n",
       "193. 'treat'\n",
       "194. 'trouble'\n",
       "195. 'tuesday'\n",
       "196. 'union'\n",
       "197. 'usual'\n",
       "198. 'view'\n",
       "199. 'wait'\n",
       "200. 'wear'\n",
       "201. 'week'\n",
       "202. 'weigh'\n",
       "203. 'without'\n",
       "204. 'wood'\n",
       "205. 'would'\n",
       "206. 'year'\n",
       "207. 'young'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  [1] \"about\"       \"account\"     \"achieve\"     \"actual\"      \"afternoon\"  \n",
       "  [6] \"again\"       \"against\"     \"already\"     \"although\"    \"amount\"     \n",
       " [11] \"appear\"      \"appoint\"     \"approach\"    \"appropriate\" \"around\"     \n",
       " [16] \"associate\"   \"available\"   \"bear\"        \"beat\"        \"because\"    \n",
       " [21] \"believe\"     \"between\"     \"blood\"       \"board\"       \"boat\"       \n",
       " [26] \"book\"        \"break\"       \"brief\"       \"brilliant\"   \"britain\"    \n",
       " [31] \"build\"       \"cause\"       \"certain\"     \"chair\"       \"chairman\"   \n",
       " [36] \"cheap\"       \"choice\"      \"choose\"      \"claim\"       \"clean\"      \n",
       " [41] \"clear\"       \"client\"      \"colleague\"   \"colour\"      \"condition\"  \n",
       " [46] \"cook\"        \"could\"       \"council\"     \"count\"       \"country\"    \n",
       " [51] \"county\"      \"couple\"      \"course\"      \"court\"       \"create\"     \n",
       " [56] \"dead\"        \"deal\"        \"dear\"        \"decision\"    \"deep\"       \n",
       " [61] \"detail\"      \"door\"        \"double\"      \"doubt\"       \"encourage\"  \n",
       " [66] \"enough\"      \"equal\"       \"especial\"    \"experience\"  \"explain\"    \n",
       " [71] \"fair\"        \"favour\"      \"feed\"        \"feel\"        \"field\"      \n",
       " [76] \"floor\"       \"food\"        \"foot\"        \"four\"        \"friend\"     \n",
       " [81] \"function\"    \"good\"        \"goodbye\"     \"great\"       \"green\"      \n",
       " [86] \"ground\"      \"group\"       \"guess\"       \"hair\"        \"head\"       \n",
       " [91] \"health\"      \"hear\"        \"heart\"       \"heat\"        \"heavy\"      \n",
       " [96] \"hour\"        \"house\"       \"increase\"    \"indeed\"      \"individual\" \n",
       "[101] \"instead\"     \"join\"        \"keep\"        \"labour\"      \"language\"   \n",
       "[106] \"laugh\"       \"lead\"        \"learn\"       \"leave\"       \"load\"       \n",
       "[111] \"look\"        \"main\"        \"mean\"        \"meaning\"     \"measure\"    \n",
       "[116] \"meet\"        \"mention\"     \"million\"     \"motion\"      \"nation\"     \n",
       "[121] \"near\"        \"need\"        \"occasion\"    \"paint\"       \"pair\"       \n",
       "[126] \"pension\"     \"people\"      \"period\"      \"piece\"       \"please\"     \n",
       "[131] \"point\"       \"poor\"        \"position\"    \"pound\"       \"proceed\"    \n",
       "[136] \"quality\"     \"quarter\"     \"question\"    \"quick\"       \"quid\"       \n",
       "[141] \"quite\"       \"rail\"        \"raise\"       \"read\"        \"ready\"      \n",
       "[146] \"real\"        \"realise\"     \"really\"      \"reason\"      \"receive\"    \n",
       "[151] \"region\"      \"relation\"    \"require\"     \"research\"    \"resource\"   \n",
       "[156] \"road\"        \"room\"        \"round\"       \"school\"      \"science\"    \n",
       "[161] \"seat\"        \"section\"     \"seem\"        \"sheet\"       \"shoot\"      \n",
       "[166] \"should\"      \"situate\"     \"sleep\"       \"social\"      \"society\"    \n",
       "[171] \"soon\"        \"sound\"       \"south\"       \"speak\"       \"special\"    \n",
       "[176] \"speed\"       \"square\"      \"stairs\"      \"station\"     \"straight\"   \n",
       "[181] \"street\"      \"succeed\"     \"suit\"        \"teach\"       \"team\"       \n",
       "[186] \"television\"  \"thirteen\"    \"though\"      \"thousand\"    \"through\"    \n",
       "[191] \"touch\"       \"train\"       \"treat\"       \"trouble\"     \"tuesday\"    \n",
       "[196] \"union\"       \"usual\"       \"view\"        \"wait\"        \"wear\"       \n",
       "[201] \"week\"        \"weigh\"       \"without\"     \"wood\"        \"would\"      \n",
       "[206] \"year\"        \"young\"      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "(cvvc_words <- str_subset(words, cvvc)) # words containing the pattern cvvc"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'bout'</li>\n",
       "\t<li>'coun'</li>\n",
       "\t<li>'hiev'</li>\n",
       "\t<li>'tual'</li>\n",
       "\t<li>'noon'</li>\n",
       "\t<li>'gain'</li>\n",
       "\t<li>'gain'</li>\n",
       "\t<li>'read'</li>\n",
       "\t<li>'houg'</li>\n",
       "\t<li>'moun'</li>\n",
       "\t<li>'pear'</li>\n",
       "\t<li>'poin'</li>\n",
       "\t<li>'roac'</li>\n",
       "\t<li>'riat'</li>\n",
       "\t<li>'roun'</li>\n",
       "\t<li>'ciat'</li>\n",
       "\t<li>'vail'</li>\n",
       "\t<li>'bear'</li>\n",
       "\t<li>'beat'</li>\n",
       "\t<li>'caus'</li>\n",
       "\t<li>'liev'</li>\n",
       "\t<li>'ween'</li>\n",
       "\t<li>'lood'</li>\n",
       "\t<li>'boar'</li>\n",
       "\t<li>'boat'</li>\n",
       "\t<li>'book'</li>\n",
       "\t<li>'reak'</li>\n",
       "\t<li>'rief'</li>\n",
       "\t<li>'lian'</li>\n",
       "\t<li>'tain'</li>\n",
       "\t<li>'buil'</li>\n",
       "\t<li>'caus'</li>\n",
       "\t<li>'tain'</li>\n",
       "\t<li>'hair'</li>\n",
       "\t<li>'hair'</li>\n",
       "\t<li>'heap'</li>\n",
       "\t<li>'hoic'</li>\n",
       "\t<li>'hoos'</li>\n",
       "\t<li>'laim'</li>\n",
       "\t<li>'lean'</li>\n",
       "\t<li>'lear'</li>\n",
       "\t<li>'lien'</li>\n",
       "\t<li>'leag'</li>\n",
       "\t<li>'lour'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'cook'</li>\n",
       "\t<li>'coul'</li>\n",
       "\t<li>'coun'</li>\n",
       "\t<li>'coun'</li>\n",
       "\t<li>'coun'</li>\n",
       "\t<li>'coun'</li>\n",
       "\t<li>'coup'</li>\n",
       "\t<li>'cour'</li>\n",
       "\t<li>'cour'</li>\n",
       "\t<li>'reat'</li>\n",
       "\t<li>'dead'</li>\n",
       "\t<li>'deal'</li>\n",
       "\t<li>'dear'</li>\n",
       "\t<li>'sion'</li>\n",
       "\t<li>'deep'</li>\n",
       "\t<li>'tail'</li>\n",
       "\t<li>'door'</li>\n",
       "\t<li>'doub'</li>\n",
       "\t<li>'doub'</li>\n",
       "\t<li>'cour'</li>\n",
       "\t<li>'noug'</li>\n",
       "\t<li>'qual'</li>\n",
       "\t<li>'cial'</li>\n",
       "\t<li>'rien'</li>\n",
       "\t<li>'lain'</li>\n",
       "\t<li>'fair'</li>\n",
       "\t<li>'vour'</li>\n",
       "\t<li>'feed'</li>\n",
       "\t<li>'feel'</li>\n",
       "\t<li>'fiel'</li>\n",
       "\t<li>'loor'</li>\n",
       "\t<li>'food'</li>\n",
       "\t<li>'foot'</li>\n",
       "\t<li>'four'</li>\n",
       "\t<li>'rien'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'good'</li>\n",
       "\t<li>'good'</li>\n",
       "\t<li>'reat'</li>\n",
       "\t<li>'reen'</li>\n",
       "\t<li>'roun'</li>\n",
       "\t<li>'roup'</li>\n",
       "\t<li>'gues'</li>\n",
       "\t<li>'hair'</li>\n",
       "\t<li>'head'</li>\n",
       "\t<li>'heal'</li>\n",
       "\t<li>'hear'</li>\n",
       "\t<li>'hear'</li>\n",
       "\t<li>'heat'</li>\n",
       "\t<li>'heav'</li>\n",
       "\t<li>'hour'</li>\n",
       "\t<li>'hous'</li>\n",
       "\t<li>'reas'</li>\n",
       "\t<li>'deed'</li>\n",
       "\t<li>'dual'</li>\n",
       "\t<li>'tead'</li>\n",
       "\t<li>'join'</li>\n",
       "\t<li>'keep'</li>\n",
       "\t<li>'bour'</li>\n",
       "\t<li>'guag'</li>\n",
       "\t<li>'laug'</li>\n",
       "\t<li>'lead'</li>\n",
       "\t<li>'lear'</li>\n",
       "\t<li>'leav'</li>\n",
       "\t<li>'load'</li>\n",
       "\t<li>'look'</li>\n",
       "\t<li>'main'</li>\n",
       "\t<li>'mean'</li>\n",
       "\t<li>'mean'</li>\n",
       "\t<li>'meas'</li>\n",
       "\t<li>'meet'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'lion'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'near'</li>\n",
       "\t<li>'need'</li>\n",
       "\t<li>'sion'</li>\n",
       "\t<li>'pain'</li>\n",
       "\t<li>'pair'</li>\n",
       "\t<li>'sion'</li>\n",
       "\t<li>'peop'</li>\n",
       "\t<li>'riod'</li>\n",
       "\t<li>'piec'</li>\n",
       "\t<li>'leas'</li>\n",
       "\t<li>'poin'</li>\n",
       "\t<li>'poor'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'poun'</li>\n",
       "\t<li>'ceed'</li>\n",
       "\t<li>'qual'</li>\n",
       "\t<li>'quar'</li>\n",
       "\t<li>'ques'</li>\n",
       "\t<li>'quic'</li>\n",
       "\t<li>'quid'</li>\n",
       "\t<li>'quit'</li>\n",
       "\t<li>'rail'</li>\n",
       "\t<li>'rais'</li>\n",
       "\t<li>'read'</li>\n",
       "\t<li>'read'</li>\n",
       "\t<li>'real'</li>\n",
       "\t<li>'real'</li>\n",
       "\t<li>'real'</li>\n",
       "\t<li>'reas'</li>\n",
       "\t<li>'ceiv'</li>\n",
       "\t<li>'gion'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'quir'</li>\n",
       "\t<li>'sear'</li>\n",
       "\t<li>'sour'</li>\n",
       "\t<li>'road'</li>\n",
       "\t<li>'room'</li>\n",
       "\t<li>'roun'</li>\n",
       "\t<li>'hool'</li>\n",
       "\t<li>'cien'</li>\n",
       "\t<li>'seat'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'seem'</li>\n",
       "\t<li>'heet'</li>\n",
       "\t<li>'hoot'</li>\n",
       "\t<li>'houl'</li>\n",
       "\t<li>'tuat'</li>\n",
       "\t<li>'leep'</li>\n",
       "\t<li>'cial'</li>\n",
       "\t<li>'ciet'</li>\n",
       "\t<li>'soon'</li>\n",
       "\t<li>'soun'</li>\n",
       "\t<li>'sout'</li>\n",
       "\t<li>'peak'</li>\n",
       "\t<li>'cial'</li>\n",
       "\t<li>'peed'</li>\n",
       "\t<li>'quar'</li>\n",
       "\t<li>'tair'</li>\n",
       "\t<li>'tion'</li>\n",
       "\t<li>'raig'</li>\n",
       "\t<li>'reet'</li>\n",
       "\t<li>'ceed'</li>\n",
       "\t<li>'suit'</li>\n",
       "\t<li>'teac'</li>\n",
       "\t<li>'team'</li>\n",
       "\t<li>'sion'</li>\n",
       "\t<li>'teen'</li>\n",
       "\t<li>'houg'</li>\n",
       "\t<li>'hous'</li>\n",
       "\t<li>'roug'</li>\n",
       "\t<li>'touc'</li>\n",
       "\t<li>'rain'</li>\n",
       "\t<li>'reat'</li>\n",
       "\t<li>'roub'</li>\n",
       "\t<li>'tues'</li>\n",
       "\t<li>'nion'</li>\n",
       "\t<li>'sual'</li>\n",
       "\t<li>'view'</li>\n",
       "\t<li>'wait'</li>\n",
       "\t<li>'wear'</li>\n",
       "\t<li>'week'</li>\n",
       "\t<li>'weig'</li>\n",
       "\t<li>'hout'</li>\n",
       "\t<li>'wood'</li>\n",
       "\t<li>'woul'</li>\n",
       "\t<li>'year'</li>\n",
       "\t<li>'youn'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'bout'\n",
       "\\item 'coun'\n",
       "\\item 'hiev'\n",
       "\\item 'tual'\n",
       "\\item 'noon'\n",
       "\\item 'gain'\n",
       "\\item 'gain'\n",
       "\\item 'read'\n",
       "\\item 'houg'\n",
       "\\item 'moun'\n",
       "\\item 'pear'\n",
       "\\item 'poin'\n",
       "\\item 'roac'\n",
       "\\item 'riat'\n",
       "\\item 'roun'\n",
       "\\item 'ciat'\n",
       "\\item 'vail'\n",
       "\\item 'bear'\n",
       "\\item 'beat'\n",
       "\\item 'caus'\n",
       "\\item 'liev'\n",
       "\\item 'ween'\n",
       "\\item 'lood'\n",
       "\\item 'boar'\n",
       "\\item 'boat'\n",
       "\\item 'book'\n",
       "\\item 'reak'\n",
       "\\item 'rief'\n",
       "\\item 'lian'\n",
       "\\item 'tain'\n",
       "\\item 'buil'\n",
       "\\item 'caus'\n",
       "\\item 'tain'\n",
       "\\item 'hair'\n",
       "\\item 'hair'\n",
       "\\item 'heap'\n",
       "\\item 'hoic'\n",
       "\\item 'hoos'\n",
       "\\item 'laim'\n",
       "\\item 'lean'\n",
       "\\item 'lear'\n",
       "\\item 'lien'\n",
       "\\item 'leag'\n",
       "\\item 'lour'\n",
       "\\item 'tion'\n",
       "\\item 'cook'\n",
       "\\item 'coul'\n",
       "\\item 'coun'\n",
       "\\item 'coun'\n",
       "\\item 'coun'\n",
       "\\item 'coun'\n",
       "\\item 'coup'\n",
       "\\item 'cour'\n",
       "\\item 'cour'\n",
       "\\item 'reat'\n",
       "\\item 'dead'\n",
       "\\item 'deal'\n",
       "\\item 'dear'\n",
       "\\item 'sion'\n",
       "\\item 'deep'\n",
       "\\item 'tail'\n",
       "\\item 'door'\n",
       "\\item 'doub'\n",
       "\\item 'doub'\n",
       "\\item 'cour'\n",
       "\\item 'noug'\n",
       "\\item 'qual'\n",
       "\\item 'cial'\n",
       "\\item 'rien'\n",
       "\\item 'lain'\n",
       "\\item 'fair'\n",
       "\\item 'vour'\n",
       "\\item 'feed'\n",
       "\\item 'feel'\n",
       "\\item 'fiel'\n",
       "\\item 'loor'\n",
       "\\item 'food'\n",
       "\\item 'foot'\n",
       "\\item 'four'\n",
       "\\item 'rien'\n",
       "\\item 'tion'\n",
       "\\item 'good'\n",
       "\\item 'good'\n",
       "\\item 'reat'\n",
       "\\item 'reen'\n",
       "\\item 'roun'\n",
       "\\item 'roup'\n",
       "\\item 'gues'\n",
       "\\item 'hair'\n",
       "\\item 'head'\n",
       "\\item 'heal'\n",
       "\\item 'hear'\n",
       "\\item 'hear'\n",
       "\\item 'heat'\n",
       "\\item 'heav'\n",
       "\\item 'hour'\n",
       "\\item 'hous'\n",
       "\\item 'reas'\n",
       "\\item 'deed'\n",
       "\\item 'dual'\n",
       "\\item 'tead'\n",
       "\\item 'join'\n",
       "\\item 'keep'\n",
       "\\item 'bour'\n",
       "\\item 'guag'\n",
       "\\item 'laug'\n",
       "\\item 'lead'\n",
       "\\item 'lear'\n",
       "\\item 'leav'\n",
       "\\item 'load'\n",
       "\\item 'look'\n",
       "\\item 'main'\n",
       "\\item 'mean'\n",
       "\\item 'mean'\n",
       "\\item 'meas'\n",
       "\\item 'meet'\n",
       "\\item 'tion'\n",
       "\\item 'lion'\n",
       "\\item 'tion'\n",
       "\\item 'tion'\n",
       "\\item 'near'\n",
       "\\item 'need'\n",
       "\\item 'sion'\n",
       "\\item 'pain'\n",
       "\\item 'pair'\n",
       "\\item 'sion'\n",
       "\\item 'peop'\n",
       "\\item 'riod'\n",
       "\\item 'piec'\n",
       "\\item 'leas'\n",
       "\\item 'poin'\n",
       "\\item 'poor'\n",
       "\\item 'tion'\n",
       "\\item 'poun'\n",
       "\\item 'ceed'\n",
       "\\item 'qual'\n",
       "\\item 'quar'\n",
       "\\item 'ques'\n",
       "\\item 'quic'\n",
       "\\item 'quid'\n",
       "\\item 'quit'\n",
       "\\item 'rail'\n",
       "\\item 'rais'\n",
       "\\item 'read'\n",
       "\\item 'read'\n",
       "\\item 'real'\n",
       "\\item 'real'\n",
       "\\item 'real'\n",
       "\\item 'reas'\n",
       "\\item 'ceiv'\n",
       "\\item 'gion'\n",
       "\\item 'tion'\n",
       "\\item 'quir'\n",
       "\\item 'sear'\n",
       "\\item 'sour'\n",
       "\\item 'road'\n",
       "\\item 'room'\n",
       "\\item 'roun'\n",
       "\\item 'hool'\n",
       "\\item 'cien'\n",
       "\\item 'seat'\n",
       "\\item 'tion'\n",
       "\\item 'seem'\n",
       "\\item 'heet'\n",
       "\\item 'hoot'\n",
       "\\item 'houl'\n",
       "\\item 'tuat'\n",
       "\\item 'leep'\n",
       "\\item 'cial'\n",
       "\\item 'ciet'\n",
       "\\item 'soon'\n",
       "\\item 'soun'\n",
       "\\item 'sout'\n",
       "\\item 'peak'\n",
       "\\item 'cial'\n",
       "\\item 'peed'\n",
       "\\item 'quar'\n",
       "\\item 'tair'\n",
       "\\item 'tion'\n",
       "\\item 'raig'\n",
       "\\item 'reet'\n",
       "\\item 'ceed'\n",
       "\\item 'suit'\n",
       "\\item 'teac'\n",
       "\\item 'team'\n",
       "\\item 'sion'\n",
       "\\item 'teen'\n",
       "\\item 'houg'\n",
       "\\item 'hous'\n",
       "\\item 'roug'\n",
       "\\item 'touc'\n",
       "\\item 'rain'\n",
       "\\item 'reat'\n",
       "\\item 'roub'\n",
       "\\item 'tues'\n",
       "\\item 'nion'\n",
       "\\item 'sual'\n",
       "\\item 'view'\n",
       "\\item 'wait'\n",
       "\\item 'wear'\n",
       "\\item 'week'\n",
       "\\item 'weig'\n",
       "\\item 'hout'\n",
       "\\item 'wood'\n",
       "\\item 'woul'\n",
       "\\item 'year'\n",
       "\\item 'youn'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'bout'\n",
       "2. 'coun'\n",
       "3. 'hiev'\n",
       "4. 'tual'\n",
       "5. 'noon'\n",
       "6. 'gain'\n",
       "7. 'gain'\n",
       "8. 'read'\n",
       "9. 'houg'\n",
       "10. 'moun'\n",
       "11. 'pear'\n",
       "12. 'poin'\n",
       "13. 'roac'\n",
       "14. 'riat'\n",
       "15. 'roun'\n",
       "16. 'ciat'\n",
       "17. 'vail'\n",
       "18. 'bear'\n",
       "19. 'beat'\n",
       "20. 'caus'\n",
       "21. 'liev'\n",
       "22. 'ween'\n",
       "23. 'lood'\n",
       "24. 'boar'\n",
       "25. 'boat'\n",
       "26. 'book'\n",
       "27. 'reak'\n",
       "28. 'rief'\n",
       "29. 'lian'\n",
       "30. 'tain'\n",
       "31. 'buil'\n",
       "32. 'caus'\n",
       "33. 'tain'\n",
       "34. 'hair'\n",
       "35. 'hair'\n",
       "36. 'heap'\n",
       "37. 'hoic'\n",
       "38. 'hoos'\n",
       "39. 'laim'\n",
       "40. 'lean'\n",
       "41. 'lear'\n",
       "42. 'lien'\n",
       "43. 'leag'\n",
       "44. 'lour'\n",
       "45. 'tion'\n",
       "46. 'cook'\n",
       "47. 'coul'\n",
       "48. 'coun'\n",
       "49. 'coun'\n",
       "50. 'coun'\n",
       "51. 'coun'\n",
       "52. 'coup'\n",
       "53. 'cour'\n",
       "54. 'cour'\n",
       "55. 'reat'\n",
       "56. 'dead'\n",
       "57. 'deal'\n",
       "58. 'dear'\n",
       "59. 'sion'\n",
       "60. 'deep'\n",
       "61. 'tail'\n",
       "62. 'door'\n",
       "63. 'doub'\n",
       "64. 'doub'\n",
       "65. 'cour'\n",
       "66. 'noug'\n",
       "67. 'qual'\n",
       "68. 'cial'\n",
       "69. 'rien'\n",
       "70. 'lain'\n",
       "71. 'fair'\n",
       "72. 'vour'\n",
       "73. 'feed'\n",
       "74. 'feel'\n",
       "75. 'fiel'\n",
       "76. 'loor'\n",
       "77. 'food'\n",
       "78. 'foot'\n",
       "79. 'four'\n",
       "80. 'rien'\n",
       "81. 'tion'\n",
       "82. 'good'\n",
       "83. 'good'\n",
       "84. 'reat'\n",
       "85. 'reen'\n",
       "86. 'roun'\n",
       "87. 'roup'\n",
       "88. 'gues'\n",
       "89. 'hair'\n",
       "90. 'head'\n",
       "91. 'heal'\n",
       "92. 'hear'\n",
       "93. 'hear'\n",
       "94. 'heat'\n",
       "95. 'heav'\n",
       "96. 'hour'\n",
       "97. 'hous'\n",
       "98. 'reas'\n",
       "99. 'deed'\n",
       "100. 'dual'\n",
       "101. 'tead'\n",
       "102. 'join'\n",
       "103. 'keep'\n",
       "104. 'bour'\n",
       "105. 'guag'\n",
       "106. 'laug'\n",
       "107. 'lead'\n",
       "108. 'lear'\n",
       "109. 'leav'\n",
       "110. 'load'\n",
       "111. 'look'\n",
       "112. 'main'\n",
       "113. 'mean'\n",
       "114. 'mean'\n",
       "115. 'meas'\n",
       "116. 'meet'\n",
       "117. 'tion'\n",
       "118. 'lion'\n",
       "119. 'tion'\n",
       "120. 'tion'\n",
       "121. 'near'\n",
       "122. 'need'\n",
       "123. 'sion'\n",
       "124. 'pain'\n",
       "125. 'pair'\n",
       "126. 'sion'\n",
       "127. 'peop'\n",
       "128. 'riod'\n",
       "129. 'piec'\n",
       "130. 'leas'\n",
       "131. 'poin'\n",
       "132. 'poor'\n",
       "133. 'tion'\n",
       "134. 'poun'\n",
       "135. 'ceed'\n",
       "136. 'qual'\n",
       "137. 'quar'\n",
       "138. 'ques'\n",
       "139. 'quic'\n",
       "140. 'quid'\n",
       "141. 'quit'\n",
       "142. 'rail'\n",
       "143. 'rais'\n",
       "144. 'read'\n",
       "145. 'read'\n",
       "146. 'real'\n",
       "147. 'real'\n",
       "148. 'real'\n",
       "149. 'reas'\n",
       "150. 'ceiv'\n",
       "151. 'gion'\n",
       "152. 'tion'\n",
       "153. 'quir'\n",
       "154. 'sear'\n",
       "155. 'sour'\n",
       "156. 'road'\n",
       "157. 'room'\n",
       "158. 'roun'\n",
       "159. 'hool'\n",
       "160. 'cien'\n",
       "161. 'seat'\n",
       "162. 'tion'\n",
       "163. 'seem'\n",
       "164. 'heet'\n",
       "165. 'hoot'\n",
       "166. 'houl'\n",
       "167. 'tuat'\n",
       "168. 'leep'\n",
       "169. 'cial'\n",
       "170. 'ciet'\n",
       "171. 'soon'\n",
       "172. 'soun'\n",
       "173. 'sout'\n",
       "174. 'peak'\n",
       "175. 'cial'\n",
       "176. 'peed'\n",
       "177. 'quar'\n",
       "178. 'tair'\n",
       "179. 'tion'\n",
       "180. 'raig'\n",
       "181. 'reet'\n",
       "182. 'ceed'\n",
       "183. 'suit'\n",
       "184. 'teac'\n",
       "185. 'team'\n",
       "186. 'sion'\n",
       "187. 'teen'\n",
       "188. 'houg'\n",
       "189. 'hous'\n",
       "190. 'roug'\n",
       "191. 'touc'\n",
       "192. 'rain'\n",
       "193. 'reat'\n",
       "194. 'roub'\n",
       "195. 'tues'\n",
       "196. 'nion'\n",
       "197. 'sual'\n",
       "198. 'view'\n",
       "199. 'wait'\n",
       "200. 'wear'\n",
       "201. 'week'\n",
       "202. 'weig'\n",
       "203. 'hout'\n",
       "204. 'wood'\n",
       "205. 'woul'\n",
       "206. 'year'\n",
       "207. 'youn'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  [1] \"bout\" \"coun\" \"hiev\" \"tual\" \"noon\" \"gain\" \"gain\" \"read\" \"houg\" \"moun\"\n",
       " [11] \"pear\" \"poin\" \"roac\" \"riat\" \"roun\" \"ciat\" \"vail\" \"bear\" \"beat\" \"caus\"\n",
       " [21] \"liev\" \"ween\" \"lood\" \"boar\" \"boat\" \"book\" \"reak\" \"rief\" \"lian\" \"tain\"\n",
       " [31] \"buil\" \"caus\" \"tain\" \"hair\" \"hair\" \"heap\" \"hoic\" \"hoos\" \"laim\" \"lean\"\n",
       " [41] \"lear\" \"lien\" \"leag\" \"lour\" \"tion\" \"cook\" \"coul\" \"coun\" \"coun\" \"coun\"\n",
       " [51] \"coun\" \"coup\" \"cour\" \"cour\" \"reat\" \"dead\" \"deal\" \"dear\" \"sion\" \"deep\"\n",
       " [61] \"tail\" \"door\" \"doub\" \"doub\" \"cour\" \"noug\" \"qual\" \"cial\" \"rien\" \"lain\"\n",
       " [71] \"fair\" \"vour\" \"feed\" \"feel\" \"fiel\" \"loor\" \"food\" \"foot\" \"four\" \"rien\"\n",
       " [81] \"tion\" \"good\" \"good\" \"reat\" \"reen\" \"roun\" \"roup\" \"gues\" \"hair\" \"head\"\n",
       " [91] \"heal\" \"hear\" \"hear\" \"heat\" \"heav\" \"hour\" \"hous\" \"reas\" \"deed\" \"dual\"\n",
       "[101] \"tead\" \"join\" \"keep\" \"bour\" \"guag\" \"laug\" \"lead\" \"lear\" \"leav\" \"load\"\n",
       "[111] \"look\" \"main\" \"mean\" \"mean\" \"meas\" \"meet\" \"tion\" \"lion\" \"tion\" \"tion\"\n",
       "[121] \"near\" \"need\" \"sion\" \"pain\" \"pair\" \"sion\" \"peop\" \"riod\" \"piec\" \"leas\"\n",
       "[131] \"poin\" \"poor\" \"tion\" \"poun\" \"ceed\" \"qual\" \"quar\" \"ques\" \"quic\" \"quid\"\n",
       "[141] \"quit\" \"rail\" \"rais\" \"read\" \"read\" \"real\" \"real\" \"real\" \"reas\" \"ceiv\"\n",
       "[151] \"gion\" \"tion\" \"quir\" \"sear\" \"sour\" \"road\" \"room\" \"roun\" \"hool\" \"cien\"\n",
       "[161] \"seat\" \"tion\" \"seem\" \"heet\" \"hoot\" \"houl\" \"tuat\" \"leep\" \"cial\" \"ciet\"\n",
       "[171] \"soon\" \"soun\" \"sout\" \"peak\" \"cial\" \"peed\" \"quar\" \"tair\" \"tion\" \"raig\"\n",
       "[181] \"reet\" \"ceed\" \"suit\" \"teac\" \"team\" \"sion\" \"teen\" \"houg\" \"hous\" \"roug\"\n",
       "[191] \"touc\" \"rain\" \"reat\" \"roub\" \"tues\" \"nion\" \"sual\" \"view\" \"wait\" \"wear\"\n",
       "[201] \"week\" \"weig\" \"hout\" \"wood\" \"woul\" \"year\" \"youn\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_extract(cvvc_words, cvvc) # the patterns themselves"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'quality'</li>\n",
       "\t<li>'quarter'</li>\n",
       "\t<li>'question'</li>\n",
       "\t<li>'quick'</li>\n",
       "\t<li>'quid'</li>\n",
       "\t<li>'quiet'</li>\n",
       "\t<li>'quite'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'quality'\n",
       "\\item 'quarter'\n",
       "\\item 'question'\n",
       "\\item 'quick'\n",
       "\\item 'quid'\n",
       "\\item 'quiet'\n",
       "\\item 'quite'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'quality'\n",
       "2. 'quarter'\n",
       "3. 'question'\n",
       "4. 'quick'\n",
       "5. 'quid'\n",
       "6. 'quiet'\n",
       "7. 'quite'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"quality\"  \"quarter\"  \"question\" \"quick\"    \"quid\"     \"quiet\"    \"quite\"   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "(q_words <- str_subset(words, \"^q\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'u'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\item 'u'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'u'\n",
       "2. 'u'\n",
       "3. 'u'\n",
       "4. 'u'\n",
       "5. 'u'\n",
       "6. 'u'\n",
       "7. 'u'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"u\" \"u\" \"u\" \"u\" \"u\" \"u\" \"u\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_extract(q_words, v) # extracts only the first match"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'a'</li>\n",
       "\t<li>'i'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'a'</li>\n",
       "\t<li>'e'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'e'</li>\n",
       "\t<li>'i'</li>\n",
       "\t<li>'o'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'i'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'i'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'i'</li>\n",
       "\t<li>'e'</li>\n",
       "</ol>\n",
       "</li>\n",
       "\t<li><ol class=list-inline>\n",
       "\t<li>'u'</li>\n",
       "\t<li>'i'</li>\n",
       "\t<li>'e'</li>\n",
       "</ol>\n",
       "</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate}\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'a'\n",
       "\\item 'i'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'a'\n",
       "\\item 'e'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'e'\n",
       "\\item 'i'\n",
       "\\item 'o'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'i'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'i'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'i'\n",
       "\\item 'e'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item \\begin{enumerate*}\n",
       "\\item 'u'\n",
       "\\item 'i'\n",
       "\\item 'e'\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\end{enumerate}\n"
      ],
      "text/markdown": [
       "1. 1. 'u'\n",
       "2. 'a'\n",
       "3. 'i'\n",
       "\n",
       "\n",
       "\n",
       "2. 1. 'u'\n",
       "2. 'a'\n",
       "3. 'e'\n",
       "\n",
       "\n",
       "\n",
       "3. 1. 'u'\n",
       "2. 'e'\n",
       "3. 'i'\n",
       "4. 'o'\n",
       "\n",
       "\n",
       "\n",
       "4. 1. 'u'\n",
       "2. 'i'\n",
       "\n",
       "\n",
       "\n",
       "5. 1. 'u'\n",
       "2. 'i'\n",
       "\n",
       "\n",
       "\n",
       "6. 1. 'u'\n",
       "2. 'i'\n",
       "3. 'e'\n",
       "\n",
       "\n",
       "\n",
       "7. 1. 'u'\n",
       "2. 'i'\n",
       "3. 'e'\n",
       "\n",
       "\n",
       "\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[[1]]\n",
       "[1] \"u\" \"a\" \"i\"\n",
       "\n",
       "[[2]]\n",
       "[1] \"u\" \"a\" \"e\"\n",
       "\n",
       "[[3]]\n",
       "[1] \"u\" \"e\" \"i\" \"o\"\n",
       "\n",
       "[[4]]\n",
       "[1] \"u\" \"i\"\n",
       "\n",
       "[[5]]\n",
       "[1] \"u\" \"i\"\n",
       "\n",
       "[[6]]\n",
       "[1] \"u\" \"i\" \"e\"\n",
       "\n",
       "[[7]]\n",
       "[1] \"u\" \"i\" \"e\"\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_extract_all(q_words, v) # extracts all matches"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Setting `simplify = TRUE` returns a matrix with shorter matches expanded to match the length of the longest"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>u</td><td>a</td><td>i</td><td> </td></tr>\n",
       "\t<tr><td>u</td><td>a</td><td>e</td><td> </td></tr>\n",
       "\t<tr><td>u</td><td>e</td><td>i</td><td>o</td></tr>\n",
       "\t<tr><td>u</td><td>i</td><td> </td><td> </td></tr>\n",
       "\t<tr><td>u</td><td>i</td><td> </td><td> </td></tr>\n",
       "\t<tr><td>u</td><td>i</td><td>e</td><td> </td></tr>\n",
       "\t<tr><td>u</td><td>i</td><td>e</td><td> </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{llll}\n",
       "\t u & a & i &  \\\\\n",
       "\t u & a & e &  \\\\\n",
       "\t u & e & i & o\\\\\n",
       "\t u & i &   &  \\\\\n",
       "\t u & i &   &  \\\\\n",
       "\t u & i & e &  \\\\\n",
       "\t u & i & e &  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| u | a | i |   | \n",
       "| u | a | e |   | \n",
       "| u | e | i | o | \n",
       "| u | i |   |   | \n",
       "| u | i |   |   | \n",
       "| u | i | e |   | \n",
       "| u | i | e |   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2] [,3] [,4]\n",
       "[1,] u    a    i        \n",
       "[2,] u    a    e        \n",
       "[3,] u    e    i    o   \n",
       "[4,] u    i             \n",
       "[5,] u    i             \n",
       "[6,] u    i    e        \n",
       "[7,] u    i    e        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str_extract_all(q_words, v, simplify = TRUE)"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.4.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}