N-grams: Difference between revisions
added Arturo
m (→{{header|jq}}: fix) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 23:
;* [[Sorensen–Dice_coefficient|Related task: Sorensen–Dice coefficient]]
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">ngrams: function [s :string n :integer][
0..sub size s n | map 'i -> slice upper s i i+n-1
| tally
]
loop [2 3 4] 'n [
print ~"|n|-grams:"
loop ngrams "Live and let live" n [k v] -> print [~{"|k|"} v]
print ""
]</syntaxhighlight>
{{out}}
<pre>2-grams:
"LI" 2
"IV" 2
"VE" 2
"E " 1
" A" 1
"AN" 1
"ND" 1
"D " 1
" L" 2
"LE" 1
"ET" 1
"T " 1
3-grams:
"LIV" 2
"IVE" 2
"VE " 1
"E A" 1
" AN" 1
"AND" 1
"ND " 1
"D L" 1
" LE" 1
"LET" 1
"ET " 1
"T L" 1
" LI" 1
4-grams:
"LIVE" 2
"IVE " 1
"VE A" 1
"E AN" 1
" AND" 1
"AND " 1
"ND L" 1
"D LE" 1
" LET" 1
"LET " 1
"ET L" 1
"T LI" 1
" LIV" 1</pre>
=={{header|Common Lisp}}==
| |||