Work optimization: typo model

[vkatsuba]

1> timer:tc(sheldon, check, [base64:encode(crypto:strong_rand_bytes(100))]).
{14639,
 #{bazinga => <<"Too bad, I'll have a virgin Cuba Libre.">>,
   misspelled_words =>
       [#{candidates => [],line_number => 1,
          word =>
              "yq4crT65D8fC6M89BXcrWj6XNPPwZo9NWqtN8AUkJD7iYNfAJeUwIgY7kp1bFGZl8Na+/ZBzZk1gBlQkFrTGumirN9SuvwPADhkzecou1H7UfWaPSWGdkFbBK8fJAeDM1yIGZA=="}]}}

1> LongWord = base64:encode(crypto:strong_rand_bytes(100)).
<<"m4o4qFgAPW+eWhrvWb34qXo9oRJEei2jEigEcVbkeO0F6chyzSZeUu1FlPJ+FK4FAQKsDMStj06D7wAEcLbC7/VXsF0okLtd/bJ/QCVK0Q4EjKO3kXTO"...>>
2> [begin {T, _} = timer:tc(sheldon, check, [LongWord]), T end || _ <- lists:seq(1, 10)].
[3333,1443,1579,1323,1235,1215,1302,1273,1232,1201]

1> LongWord = base64:encode(crypto:strong_rand_bytes(100)).
2> [begin {T, _} = timer:tc(sheldon, check, [LongWord]), T end || _ <- lists:seq(1, 100)].
[2181,1756,689,484,471,510,480,451,444,424,416,426,438,400,
 459,453,429,432,477,435,402,419,398,408,372,440,646,634,420|...]

40> sheldon:check("spelFing is wrong, should suggest spelling among others").
#{bazinga =>
      <<"I know the real reason you never made progress with that idea. You thought of it September 22nd 2007. Two days l"...>>,
  misspelled_words =>
      [#{candidates =>
             ["speeling","speiling","spelding","spelling","sperling",
              "spieling"],
         line_number => 1,word => "spelFing"}]}

36> timer:tc(fun() -> [begin {T, _} = timer:tc(sheldon, check, [LongWord]), T end || _ <- lists:seq(1, 2000)] end).  
{1109351,
 [2955,2360,2285,2378,2998,2711,2743,2411,2547,2756,2681,
  2373,1683,2393,2229,1551,1532,1149,799,1541,1326,1130,877,
  1142,834,737,802|...]}