{"body":"my @words = (\"Matt\", \"Tomm M\", \"Ben\", \"Omar G.\", \"Wildcard\", \"Devilshakerz\", \"JordanMussi\", \"Starpaul20\", \"Justin\", \"katos\", \"Euan T\", \"noyle\", \"Tom K.\", \"Chris Boulton\", \"andrewjs18\", \".m.\", \"effone\", \"kawaii\");\n\n  sub qgram (\\a, \\b, \\q = (a.chars + b.chars) div 4 ) {\n    my &ngrams = -> \\t, \\n {\n      my \\s = ~ (' ' x n - 1)\n              ~ t\n              ~ (' ' x n - 1);\n      do for ^(t.chars + n) { s.substr: $_, n }\n    }\n    my \\aₙ = &ngrams(a,q).BagHash;\n    my \\bₙ = &ngrams(b,q).BagHash;\n\n    (aₙ ∩ bₙ) / (aₙ ∪ bₙ)\n  }\n\n  my &i  = method ($i) {$i ?? self.fc !! self}\n  my &m  = method ($i) {$i ?? self.samemark(' ') !! self}\n  my &ws = method ($i) {$i ?? self !! self.words.join }\n  my &p  = method ($i) {$i ?? self !! self.split(/<:P>/).join }\n\n\nmy $subject = 'omar';\n\n\n      my @results = @words\n                      .map({\n                          $^word,\n                          qgram\n                              $^word.&i(True),\n                              $subject\n                      })\n                      .sort( *.tail );\n\nmy %r = @results.sort( -*.[1] ).head(1).kv;\nsay %r;\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/mOXSCriu","modified":1610558344,"id":"mOXSCriu","size":1126,"lines":35,"own_paste":false,"theme":"","date":1610558344}