N-grams: Difference between revisions
m
→{{header|ALGOL 68}}: tweak
(Added Algol 68) |
m (→{{header|ALGOL 68}}: tweak) |
||
Line 67:
PROC print ngrams = ( STRING title, text, []NGRAM ngrams )VOID:
BEGIN
print( ( title, "-grams of """, text, """:", newline ) );
FOR g FROM LWB ngrams TO UPB ngrams DO
print( ( " """, ( gram OF ngrams )[ g ] ) );
Line 83:
{{out}}
<pre>
bi-grams of "Live and let live":
"LI": 2
"IV": 2
Line 96:
"ET": 1
"T ": 1
tri-grams of "Live and let live":
"LIV": 2
"IVE": 2
Line 110:
"T L": 1
" LI": 1
quad-grams of "Live and let live":
"LIVE": 2
"IVE ": 1
| |||