Word frequency: Difference between revisions

m
m (→‎{{header|Perl 6}}: Add a second, much more capable example that goes way above and beyond.)
Line 513:
END;
END;
SAVE; COMMENT LAST WORD ;
END;
INF.CLOSE;
Line 544 ⟶ 545:
FOR I := 1 STEP 1 UNTIL 10 DO
BEGIN
OUTINT(MAXCOUNTSIF MAXWORDS(I), 10);=/= NONE THEN
OUTTEXT(" ");BEGIN
OUTTEXT OUTINT(MAXWORDSMAXCOUNTS(I), QUA TEXTHASHKEY.T10);
OUTIMAGE OUTTEXT(" ");
OUTTEXT(MAXWORDS(I) QUA TEXTHASHKEY.T);
OUTIMAGE;
END;
END;
 
Anonymous user