N-grams: Difference between revisions
Content added Content deleted
m (→{{header|jq}}: fix) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 23: | Line 23: | ||
;* [[Sorensen–Dice_coefficient|Related task: Sorensen–Dice coefficient]] |
;* [[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}}== |
=={{header|Common Lisp}}== |