{"body":"use Cro::HTTP::Client;\nuse YAMLish;\n\nmy $request = await Cro::HTTP::Client.get('https://raw.githubusercontent.com/mybb/mybb.com/gh-pages/_data/team_members.yml');\nmy %team = (gather for load-yaml(await $request.body-text)[] {take Pair.new(.<username>, $_); }).Hash;\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 = %team.keys\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/wTnhCbiF","modified":1610556875,"id":"wTnhCbiF","size":1183,"lines":39,"own_paste":false,"theme":"","date":1610556875}