(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     49480,       1314]
NotebookOptionsPosition[     39317,       1127]
NotebookOutlinePosition[     41582,       1179]
CellTagsIndexPosition[     41504,       1174]
WindowTitle->ElectrumV1MnemonicQ
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "4f315425-7ea9-45d3-8d4d-2b29bd512d2e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "2e107b10-29a2-486e-b3fe-21f72d364669"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "b2917b62-45ce-43e1-8e46-711a631a1257"]
         }],ExpressionUUID->"f008b131-08cf-4c14-928a-7f5ada99ae0b"],
         StripOnInput->False],{
        StyleBox[
          "\"ElectrumSeedVersion\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion"], 
         StyleBox[
          "\"ElectrumV1Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed"], 
         StyleBox[
          "\"ElectrumV1Mnemonic\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic"], 
         StyleBox[
          "\"$ElectrumV1Words\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words"], 
         StyleBox[
          "\"BIP39MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3fd7435b-535c-44d1-be24-c5f490a46d60"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "112b1c7e-4045-4e63-a157-1eb26d64c8e4"]
         }],ExpressionUUID->"570428fd-43a7-40ce-88a6-47ecd8e71f32"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d377f03e-927d-4876-bbaf-61d3469eca67"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "a1e12bd2-150a-4ead-9866-8b97ab161e5b"]
         }],ExpressionUUID->"fc9f57de-db5d-4ef0-875b-c2dad6b11c23"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ"], 
         Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/ElectrumV1MnemonicQ.html"], StandardForm]], "Input", 
                 TextClipboardType -> "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "95b39d88-5970-47c3-9600-5bb49b5a1aca"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "34f84e83-c9c9-4634-a3c0-1d3a17cd1458"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"3af2bbe7-1017-4632-b7c5-78ad7c54f4f7"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c597a3c1-75cd-4b30-97bf-530143357131"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ElectrumV1MnemonicQ", "ObjectName",ExpressionUUID->
      "66140c35-a0a1-4ce7-802f-f25947ff5933"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"bc91aa7b-c16c-4128-a0a2-0b656ef75b5a"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "bb327fca-dc30-418a-85c8-698e9915d726"]
    }],ExpressionUUID->"4d516b2d-3412-4642-b842-60fffe755d43"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"dd9fee7d-1371-42ec-ae87-\
572a6fdd140f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumV1MnemonicQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["mnemonic", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "7cca714d-609c-4e21-8160-594cb952066b"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["True"]], "paclet:ref/True"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "6659be35-076c-4b7f-a801-ffb86c5cbe20"],
     " if ",
     StyleBox["mnemonic", "TI"],
     " is an Electrum version 1 mnemonic."
    }],ExpressionUUID->"9f6f1c5f-e80e-474f-a888-e778e26c41c3"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumV1MnemonicQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "1", "$"}], ",", " ", 
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "2", "$"}], ",", " ", "\[Ellipsis]"}], "}"}],
        "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "28b39e59-23c7-433c-864a-409a707521dd"],
     "\[LineSeparator]",
     "takes the mnemonic as a list of words."
    }],ExpressionUUID->"aebaa02a-6709-4c93-8cf6-e4d8dd01f236"]}
  }]], "Usage",ExpressionUUID->"0417ed96-30e1-4895-b890-4fe89a7dc2a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"8e0bd149-58ec-498b-b4c9-18c5a4f7c9e9"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"d949e68d-06d7-4f0e-b829-44f105bc63cf"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "46646fbe-4494-4b54-bc2b-999daa0f277a"]],ExpressionUUID->"f5ac7418-5a78-\
4dc9-93c9-7ba27a033759"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1268181061,ExpressionUUID->"3d4c76a3-baca-4eb1-b1a7-b624d375589a"],

Cell[TextData[{
 "The test is Electrum's own, from the word branch of ",
 Cell[BoxData[
  RowBox[{"is_old", "_seed"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d5446924-4cc8-4757-b292-a9ae2b6d1ffc"],
 ": the mnemonic has 12 or 24 words and every word is in ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ElectrumV1Words"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1c20a082-539b-45ac-8606-9bb66d40eb68"],
 "."
}], "Notes",ExpressionUUID->"4f054112-bf3f-4c78-9135-77dfa6e16428"],

Cell[TextData[{
 "There is no checksum in the version 1 scheme, so that is the whole test. \
About one twelve-word phrase in ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{
    StyleBox["(",
     SpanMaxSize->1], 
    RowBox[{"1626", "/", "2048"}], 
    StyleBox[")",
     SpanMaxSize->1]}], "12"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6df950a7-383e-44af-9865-e783877e1e50"],
 " drawn from the BIP39 list would pass by accident; the scheme offers no \
protection against a wrong word."
}], "Notes",ExpressionUUID->"89e7f61e-799f-40a7-bd21-544844182a87"],

Cell["\<\
The mnemonic is normalized first: NFKD, lowercase, combining marks dropped, \
whitespace collapsed. Mixed case and extra spaces are therefore harmless.\
\>", "Notes",ExpressionUUID->"59251477-bd1b-42c0-80af-4c1d22130a2a"],

Cell[TextData[{
 "Word counts other than 12 and 24 give ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["False"]], "paclet:ref/False"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "36b5dd8c-77c4-4654-b920-a231fc401f9a"],
 ", even multiples of three that ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1Seed"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f7f7d23e-b3a2-4f3b-ada5-38767c030530"],
 " would decode."
}], "Notes",ExpressionUUID->"583e6d40-9e08-4708-8676-9062b83b5515"],

Cell[TextData[{
 "Anything that is not a string or a list of strings gives ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["False"]], "paclet:ref/False"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "5a3e9006-a50b-45f5-acbb-e126d245c6c0"],
 "; the predicate is never left unevaluated and never returns a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "76590461-b2be-4a66-8dd1-94e7aae11148"],
 "."
}], "Notes",ExpressionUUID->"087ba0c6-4475-436c-83a8-3a506376dd3c"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumSeedVersion"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8838e370-cce6-49ad-b96f-73736d596dc4"],
 " is the fuller classifier: it also recognizes a bare hexadecimal seed as \
version 1 and names the version 2 kinds."
}], "Notes",ExpressionUUID->"e1ff360c-4812-4756-9be9-b35e6a1e8e5e"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"28a8bfb1-093a-4220-810b-94d1012740b2"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"1eac5b75-c5f2-4212-9857-d34a1d2929f5"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6e974ddc-78c0-4405-aebd-424d83c81434"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "32ca2fd6-8a26-48a2-95cc-6f3ce23fa61b"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->543895752,ExpressionUUID->"e81e116e-6569-4d85-867b-3d9651c61ddb"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"12e5ecca-0cc3-4435-bdc5-7b81fdbda57e"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "8cd8a66e-5b09-4a89-b9e4-85b0031bff53"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4640e634-404d-4a3c-8176-f0eda33c4892"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "8c5eedbb-541e-49d9-815b-ae5b0ceed37d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1565502232,ExpressionUUID->"0758ecb6-576f-4a5c-9a4b-ccef5c3b0026"],

Cell["The published Electrum old-seed vector:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"e69ce189-e11c-4768-9f31-6e49fe0dd84a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", 
  "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3ebfd633-d388-4e04-82cc-2e4037c36da7"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2eab6828-85df-4cd3-a769-477224e0f3f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8049932b-b6d5-40e2-b8e6-4e7a8d46084f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6975512a-6c6c-4f1e-\
ac95-e085ac4d401b"],

Cell["\<\
Twelve repetitions of a single wordlist word pass, because there is no \
checksum to fail:\
\>", "ExampleText",ExpressionUUID->"67a95437-a77a-4b5e-9231-0bfffdf12c37"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"\"\<like\>\"", ",", " ", "12"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"87777a34-987c-412d-bc7a-01760730f5ed"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f78c3a51-a7f0-450f-8596-a0fbc233f13b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cab86b8c-8a8d-48a5-b988-29997f9ae0c4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7e073ccd-9f56-4706-\
ae7a-d22b5e7ccfe9"],

Cell["\<\
Eighteen words is not an admitted count, so the same word fails at that \
length:\
\>", "ExampleText",ExpressionUUID->"cf582806-641d-46a8-bf45-f7564a030a77"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"\"\<like\>\"", ",", " ", "18"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7313ee43-1971-4f99-a746-ec6751b86d69"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4fa27ebd-ab43-4a5e-847c-0b986caa6aba"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "57f9360c-afcf-43cf-86c5-5c717a4758b6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a96bd7f1-e964-466d-8006-247f372948c2"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "4d9fc6b6-6ceb-4fa5-aa8e-ea7524665b05"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"bcab0ce1-6c95-49ff-bfda-66db92b8c104"],

Cell["Twenty-four words is the other admitted count:", "ExampleText",ExpressionUUID->"946aebe3-dc7c-44eb-b5db-31f8be7ab1c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"\"\<like\>\"", ",", " ", "24"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7c0e252c-ab99-4a38-badf-283b66496d7f"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"175fb87d-de82-420c-af42-457ff6f930c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6892a57c-eade-4b65-a0fe-9e3f1c22ca09"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"799bf56a-1e90-4a68-\
b79d-0073e6917bec"],

Cell["The mnemonic may be given as a list of words:", "ExampleText",ExpressionUUID->"fb9fc3de-5398-458d-a846-cd5f922f98fe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<hardly\>\"", ",", " ", "\"\<point\>\"", ",", 
    " ", "\"\<goal\>\"", ",", " ", "\"\<hallway\>\"", ",", 
    " ", "\"\<patience\>\"", ",", " ", "\"\<key\>\"", ",", 
    " ", "\"\<stone\>\"", ",", " ", "\"\<difference\>\"", ",", 
    " ", "\"\<ready\>\"", ",", " ", "\"\<caught\>\"", ",", 
    " ", "\"\<listen\>\"", ",", " ", "\"\<fact\>\""}], "}"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"27188b9d-1761-48ca-a67b-021c9311ed25"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bfcaaf68-350f-4d56-8543-5aece19592b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5849ea10-741e-485a-a971-7003c288f08b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d0ec4cda-2911-42c2-\
81f3-4c2513b3297c"],

Cell["Case and spacing are normalized away first:", "ExampleText",ExpressionUUID->"556d9e15-4bd9-43ab-86f7-1af3eceb58ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", 
  "[", "\"\<  HaRdLy  point goal hallway patience key stone difference ready \
caught listen FACT \>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2d056998-56f0-4f1e-84ad-b68f5ffee7ef"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ad060382-f4d3-417d-bc9e-90119f4f0775"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fb12f0be-478e-45e1-9815-dd775629644f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b526d379-b699-4038-\
b22e-78ba567eae51"],

Cell[TextData[{
 "Anything that is not a phrase gives ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["False"]], "paclet:ref/False"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8f9ac52d-98ce-47ed-937b-1137d4c847f4"],
 " rather than an error:"
}], "ExampleText",ExpressionUUID->"86aca22e-e959-427c-8c8e-e6df205af15e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", "42", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b65a6f4c-5f3b-4caf-a8a3-200974f10427"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"df9c8a72-ae09-4c67-9fc2-5640232cb644"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "f1c314aa-afb7-408d-91e9-83864c8103e2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6398f3f6-a2a5-46bb-8d37-101db496b916"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "1ea98b62-bd8b-4542-a087-f884dcfd0b38"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"16950f4a-33d3-4ed9-8685-ca0bb65ccef1"],

Cell["\<\
Telling a legacy Electrum phrase from a BIP39 phrase is a pair of membership \
tests:\
\>", "ExampleText",ExpressionUUID->"026cdfa2-4b3f-407f-8abf-04543b45c612"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "ElectrumV1MnemonicQ", 
    "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}], ",", " ", 
   RowBox[{
   "BIP39MnemonicQ", 
    "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a4ebf588-16fa-43c5-8a35-6271ce3554da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "False"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"07ec523d-9ea6-4e50-a9d9-3d1ea5cd0354"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "10bcd80a-afb8-48a2-8b2d-decb7826d048"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"88c6757b-3290-44aa-\
97e9-8863d3cddf92"],

Cell["\<\
A BIP39 mnemonic is almost never a version 1 mnemonic, because most BIP39 \
words are not in the version 1 list:\
\>", "ExampleText",ExpressionUUID->"ab041a06-8e34-49a6-b338-43837454bad8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", 
  "[", "\"\<abandon abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon about\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9b97f0fb-74cf-4000-b256-185f633ef508"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b34d5f07-a7f1-443c-b46e-5228821a39e8"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "d2262879-0075-4228-982d-4196af7aa5ff"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3a312e6e-adb4-400a-a440-6ac25cf5d7ac"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "7e39d86b-cfaf-4275-8249-d5cfc7e037f9"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"3d511d2c-53a1-46dc-808f-6262eb168852"],

Cell[TextData[{
 "Everything ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1Mnemonic"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bba64877-be71-4436-b58b-ad3320e26a63"],
 " produces at 32 or 64 digits passes:"
}], "ExampleText",ExpressionUUID->"fff49895-2e9d-4523-b2c6-35256668ecb9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ElectrumV1MnemonicQ", "[", 
    RowBox[{
    "ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"", 
     "]"}], "]"}], ",", " ", 
   RowBox[{"ElectrumV1MnemonicQ", "[", 
    RowBox[{
    "ElectrumV1Mnemonic", 
     "[", "\"\<\
0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\>\"", "]"}], 
    "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0c58d623-3013-4258-a164-ec1d165035e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"073d622b-43c3-466d-99c7-5e67eb527b2e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c88c25dc-6a8e-4edc-805f-63214995f407"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a388d83a-7753-4ca9-\
a422-b4449630a91f"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumSeedVersion"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0276b19c-00a7-4415-9273-4df49f2e710c"],
 " reports the same phrases as ",
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b66ebccc-202e-4525-a1f2-9b071027279d"],
 ":"
}], "ExampleText",ExpressionUUID->"a6433044-86a2-4c3d-b292-feb859c372fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", 
  "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fb5cf326-8484-4cd0-ac75-bb6341561442"],

Cell[BoxData["\<\"Old\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fefba0d6-2522-409a-af66-f7d6e4b1bf3b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "0130178c-46df-4118-8d59-19a65b54d796"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"117d5069-289e-43f3-b751-7dd7c726b419"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "3777d5db-e98e-45be-8fde-271146ea50be"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"c38b6aee-b856-40e0-b00c-bc9bc18bd777"],

Cell[TextData[{
 "A nine-word phrase decodes perfectly well but is not an Electrum seed, so \
this is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["False"]], "paclet:ref/False"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "99fece78-1883-4d66-b0f4-7e899f2481cb"],
 " where ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1Seed"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "79901fea-f3fb-45a2-8d85-dfb11501be1f"],
 " succeeds:"
}], "ExampleText",ExpressionUUID->"95de3b44-938f-4f97-8f9b-5cfd3653c90a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "ElectrumV1MnemonicQ", 
    "[", "\"\<hardly point goal hallway patience key stone difference ready\>\
\"", "]"}], ",", " ", 
   RowBox[{"StringQ", "[", 
    RowBox[{
    "ElectrumV1Seed", 
     "[", "\"\<hardly point goal hallway patience key stone difference \
ready\>\"", "]"}], "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f06f05dc-8d12-42d4-b28d-441c7e377b66"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"False", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7383866e-37fe-4ac6-bac0-92a16209f2e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8e7b64e7-3a23-4358-8fb6-bbf572f3ef4f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"680e02f4-a19d-444e-\
93d8-dd92e1a7a90e"],

Cell["\<\
Passing means only that the words are in the list; it is no evidence that the \
phrase was ever a wallet:\
\>", "ExampleText",ExpressionUUID->"148edf33-3c3f-4312-856b-4b3875becd79"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"Take", "[", 
    RowBox[{"$ElectrumV1Words", ",", " ", "12"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ded7aa01-33eb-41d7-81b9-91b4be950a40"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a859f318-c6a2-4e58-8090-3a2651e6379e"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumSeedVersion"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4da2bd5b-28e8-4fb2-bd32-8dd01265019f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1Seed"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f29fed5f-e83f-4afb-9754-671b92830191"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1Mnemonic"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c39a16ce-c34f-454c-827f-fcba1f85ea48"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ElectrumV1Words"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "de7ae640-a8a2-4829-a301-7cacf174b547"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39MnemonicQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "72168739-800b-42a4-9e18-fd90de293293"]
       }], "SeeAlso",ExpressionUUID->"279e0ac7-7905-49fb-8b4b-380bae5788e5"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"4216e3eb-1464-4817-91f9-\
03bda50cf0b9"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Seeds"]], "paclet:WolframInstitute/Puzzles/guide/Seeds"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "d8ea3970-cad5-4ed6-adda-91bc05640185"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"f8a8fe41-f110-4731-8dd0-\
983e97b717be"],

Cell[" ", "FooterCell",ExpressionUUID->"7f251bc9-243c-48ab-b247-237193dec1c3"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ElectrumV1MnemonicQ",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 48.091316}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ElectrumV1MnemonicQ, paclet : \
WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ, WolframInstitute/Puzzles \
Package Symbol][mnemonic] gives True if mnemonic is an Electrum version 1 \
mnemonic. PackageLink[ElectrumV1MnemonicQ, paclet : \
WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ, WolframInstitute/Puzzles \
Package Symbol][{word_ 1 $, word_ 2 $, ...}] takes the mnemonic as a list of \
words.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "ElectrumV1MnemonicQ", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "ElectrumV1MnemonicQ", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"ae91e155-5157-43ff-a12a-980793360e2a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[17363, 476, 149, 2, 70, "ExampleText",ExpressionUUID->"e69ce189-e11c-4768-9f31-6e49fe0dd84a",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 41347, 1168}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 5852, 143, 70, "AnchorBarGrid",ExpressionUUID->"3af2bbe7-1017-4632-b7c5-78ad7c54f4f7",
 CellID->1],
Cell[6442, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c597a3c1-75cd-4b30-97bf-530143357131"],
Cell[CellGroupData[{
Cell[6574, 170, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"dd9fee7d-1371-42ec-ae87-572a6fdd140f"],
Cell[7139, 186, 2033, 56, 70, "Usage",ExpressionUUID->"0417ed96-30e1-4895-b890-4fe89a7dc2a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9209, 247, 1444, 34, 70, "NotesSection",ExpressionUUID->"3d4c76a3-baca-4eb1-b1a7-b624d375589a",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1268181061],
Cell[10656, 283, 762, 20, 70, "Notes",ExpressionUUID->"4f054112-bf3f-4c78-9135-77dfa6e16428"],
Cell[11421, 305, 613, 16, 70, "Notes",ExpressionUUID->"89e7f61e-799f-40a7-bd21-544844182a87"],
Cell[12037, 323, 231, 3, 70, "Notes",ExpressionUUID->"59251477-bd1b-42c0-80af-4c1d22130a2a"],
Cell[12271, 328, 793, 23, 70, "Notes",ExpressionUUID->"583e6d40-9e08-4708-8676-9062b83b5515"],
Cell[13067, 353, 707, 20, 70, "Notes",ExpressionUUID->"087ba0c6-4475-436c-83a8-3a506376dd3c"],
Cell[13777, 375, 582, 14, 70, "Notes",ExpressionUUID->"e1ff360c-4812-4756-9be9-b35e6a1e8e5e"]
}, Closed]],
Cell[14374, 392, 80, 0, 70, "PageDelimiter",ExpressionUUID->"28a8bfb1-093a-4220-810b-94d1012740b2"],
Cell[CellGroupData[{
Cell[14479, 396, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"e81e116e-6569-4d85-867b-3d9651c61ddb",
 CellID->543895752],
Cell[15883, 435, 216, 4, 70, "Input",ExpressionUUID->"12e5ecca-0cc3-4435-bdc5-7b81fdbda57e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16124, 443, 1236, 31, 70, "ExampleSection",ExpressionUUID->"0758ecb6-576f-4a5c-9a4b-ccef5c3b0026",
 CellID->1565502232],
Cell[17363, 476, 149, 2, 70, "ExampleText",ExpressionUUID->"e69ce189-e11c-4768-9f31-6e49fe0dd84a",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17537, 482, 291, 5, 70, "Input",ExpressionUUID->"3ebfd633-d388-4e04-82cc-2e4037c36da7"],
Cell[17831, 489, 110, 1, 70, "Output",ExpressionUUID->"2eab6828-85df-4cd3-a769-477224e0f3f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17978, 495, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6975512a-6c6c-4f1e-ac95-e085ac4d401b"],
Cell[18205, 502, 176, 3, 70, "ExampleText",ExpressionUUID->"67a95437-a77a-4b5e-9231-0bfffdf12c37"],
Cell[CellGroupData[{
Cell[18406, 509, 321, 6, 70, "Input",ExpressionUUID->"87777a34-987c-412d-bc7a-01760730f5ed"],
Cell[18730, 517, 110, 1, 70, "Output",ExpressionUUID->"f78c3a51-a7f0-450f-8596-a0fbc233f13b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18889, 524, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7e073ccd-9f56-4706-ae7a-d22b5e7ccfe9"],
Cell[19116, 531, 167, 3, 70, "ExampleText",ExpressionUUID->"cf582806-641d-46a8-bf45-f7564a030a77"],
Cell[CellGroupData[{
Cell[19308, 538, 321, 6, 70, "Input",ExpressionUUID->"7313ee43-1971-4f99-a746-ec6751b86d69"],
Cell[19632, 546, 111, 1, 70, "Output",ExpressionUUID->"4fa27ebd-ab43-4a5e-847c-0b986caa6aba"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19804, 554, 1227, 31, 70, "ExampleSection",ExpressionUUID->"bcab0ce1-6c95-49ff-bfda-66db92b8c104",
 CellID->1293636265],
Cell[21034, 587, 124, 0, 70, "ExampleText",ExpressionUUID->"946aebe3-dc7c-44eb-b5db-31f8be7ab1c1"],
Cell[CellGroupData[{
Cell[21183, 591, 321, 6, 70, "Input",ExpressionUUID->"7c0e252c-ab99-4a38-badf-283b66496d7f"],
Cell[21507, 599, 110, 1, 70, "Output",ExpressionUUID->"175fb87d-de82-420c-af42-457ff6f930c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21654, 605, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"799bf56a-1e90-4a68-b79d-0073e6917bec"],
Cell[21881, 612, 123, 0, 70, "ExampleText",ExpressionUUID->"fb9fc3de-5398-458d-a846-cd5f922f98fe"],
Cell[CellGroupData[{
Cell[22029, 616, 581, 11, 70, "Input",ExpressionUUID->"27188b9d-1761-48ca-a67b-021c9311ed25"],
Cell[22613, 629, 110, 1, 70, "Output",ExpressionUUID->"bfcaaf68-350f-4d56-8543-5aece19592b8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22772, 636, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d0ec4cda-2911-42c2-81f3-4c2513b3297c"],
Cell[22999, 643, 121, 0, 70, "ExampleText",ExpressionUUID->"556d9e15-4bd9-43ab-86f7-1af3eceb58ae"],
Cell[CellGroupData[{
Cell[23145, 647, 295, 5, 70, "Input",ExpressionUUID->"2d056998-56f0-4f1e-84ad-b68f5ffee7ef"],
Cell[23443, 654, 110, 1, 70, "Output",ExpressionUUID->"ad060382-f4d3-417d-bc9e-90119f4f0775"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23602, 661, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b526d379-b699-4038-b22e-78ba567eae51"],
Cell[23829, 668, 399, 11, 70, "ExampleText",ExpressionUUID->"86aca22e-e959-427c-8c8e-e6df205af15e"],
Cell[CellGroupData[{
Cell[24253, 683, 200, 3, 70, "Input",ExpressionUUID->"b65a6f4c-5f3b-4caf-a8a3-200974f10427"],
Cell[24456, 688, 111, 1, 70, "Output",ExpressionUUID->"df9c8a72-ae09-4c67-9fc2-5640232cb644"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24628, 696, 1233, 31, 70, "ExampleSection",ExpressionUUID->"16950f4a-33d3-4ed9-8685-ca0bb65ccef1",
 CellID->258228157],
Cell[25864, 729, 171, 3, 70, "ExampleText",ExpressionUUID->"026cdfa2-4b3f-407f-8abf-04543b45c612"],
Cell[CellGroupData[{
Cell[26060, 736, 489, 12, 70, "Input",ExpressionUUID->"a4ebf588-16fa-43c5-8a35-6271ce3554da"],
Cell[26552, 750, 159, 3, 70, "Output",ExpressionUUID->"07ec523d-9ea6-4e50-a9d9-3d1ea5cd0354"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26748, 758, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"88c6757b-3290-44aa-97e9-8863d3cddf92"],
Cell[26975, 765, 198, 3, 70, "ExampleText",ExpressionUUID->"ab041a06-8e34-49a6-b338-43837454bad8"],
Cell[CellGroupData[{
Cell[27198, 772, 304, 5, 70, "Input",ExpressionUUID->"9b97f0fb-74cf-4000-b256-185f633ef508"],
Cell[27505, 779, 111, 1, 70, "Output",ExpressionUUID->"b34d5f07-a7f1-443c-b46e-5228821a39e8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27677, 787, 1244, 31, 70, "ExampleSection",ExpressionUUID->"3d511d2c-53a1-46dc-808f-6262eb168852",
 CellID->2123667759],
Cell[28924, 820, 523, 14, 70, "ExampleText",ExpressionUUID->"fff49895-2e9d-4523-b2c6-35256668ecb9"],
Cell[CellGroupData[{
Cell[29472, 838, 531, 14, 70, "Input",ExpressionUUID->"0c58d623-3013-4258-a164-ec1d165035e8"],
Cell[30006, 854, 158, 3, 70, "Output",ExpressionUUID->"073d622b-43c3-466d-99c7-5e67eb527b2e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30201, 862, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a388d83a-7753-4ca9-a422-b4449630a91f"],
Cell[30428, 869, 674, 18, 70, "ExampleText",ExpressionUUID->"a6433044-86a2-4c3d-b292-feb859c372fa"],
Cell[CellGroupData[{
Cell[31127, 891, 291, 5, 70, "Input",ExpressionUUID->"fb5cf326-8484-4cd0-ac75-bb6341561442"],
Cell[31421, 898, 117, 1, 70, "Output",ExpressionUUID->"fefba0d6-2522-409a-af66-f7d6e4b1bf3b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[31599, 906, 1237, 31, 70, "ExampleSection",ExpressionUUID->"c38b6aee-b856-40e0-b00c-bc9bc18bd777",
 CellID->1305812373],
Cell[32839, 939, 817, 24, 70, "ExampleText",ExpressionUUID->"95de3b44-938f-4f97-8f9b-5cfd3653c90a"],
Cell[CellGroupData[{
Cell[33681, 967, 489, 13, 70, "Input",ExpressionUUID->"f06f05dc-8d12-42d4-b28d-441c7e377b66"],
Cell[34173, 982, 159, 3, 70, "Output",ExpressionUUID->"7383866e-37fe-4ac6-bac0-92a16209f2e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34369, 990, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"680e02f4-a19d-444e-93d8-dd92e1a7a90e"],
Cell[34596, 997, 191, 3, 70, "ExampleText",ExpressionUUID->"148edf33-3c3f-4312-856b-4b3875becd79"],
Cell[CellGroupData[{
Cell[34812, 1004, 319, 7, 70, "Input",ExpressionUUID->"ded7aa01-33eb-41d7-81b9-91b4be950a40"],
Cell[35134, 1013, 110, 1, 70, "Output",ExpressionUUID->"a859f318-c6a2-4e58-8090-3a2651e6379e"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[35295, 1020, 3208, 83, 70, "SeeAlsoSection",ExpressionUUID->"4216e3eb-1464-4817-91f9-03bda50cf0b9"],
Cell[38506, 1105, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"f8a8fe41-f110-4731-8dd0-983e97b717be"],
Cell[39235, 1125, 78, 0, 70, "FooterCell",ExpressionUUID->"7f251bc9-243c-48ab-b247-237193dec1c3"]
}
]
*)

(* End of internal cache information *)

