Function frequency: Difference between revisions

Function frequency (view source)

Revision as of 07:17, 16 March 2016

102 bytes added , 8 years ago

J: supply some missing code and count more thoroughly (previously comments would "eat almost everything")

Rdm

6,962

edits

Revision as of 04:50, 16 March 2016 (view source) Catskill549 (talk \| contribs) (→‎{{header\|ACL2}}) ← Older edit		Revision as of 07:17, 16 March 2016 (view source) Rdm (talk \| contribs) (J: supply some missing code and count more thoroughly (previously comments would "eat almost everything")) Newer edit →
Line 912: <lang j> IGNORE=: ;:'y(0)1',CR PRIMITIVES=: ;:'! !. !: " ". ": # #. #: $ $. $: % %. %: & &. &.: &: * . : + +. +: , ,. ,: - -. -: . .. .: / /. /: 0: 1: 2: 3: 4: 5: 6: 7: 8: 9: : :. :: ; ;. ;: < <. <: = =. =: > >. >: ? ?. ...' Filter=: (#~`)(`:6) NB. ~~monad~~extract ~~top10~~tokens .from a ylarge isbody anewline ~~character vector~~terminated of ~~much j source code~~text roughparse=: ;@(<@;: ::(''"_);._2) top10=: 10 {. \:~@:((#;{.)/.~@:(e.&PRIMITIVES Filter@:;:))▼ NB. count frequencies and get the top x ~~top10 JSOURCE NB. JSOURCE are the j Zeckendorf verbs.~~ ▲ ~~top10~~top=: 10top=: {. \:~@:((#;{.)/.~~~@:(e.&PRIMITIVES Filter@:;:)~~) ~~┌─┬──┐~~ ~~│6│=.│~~ NB. read all installed script (.ijs) files and concatenate them ~~├─┼──┤~~ JSOURCE=: ;fread each 1&e.@('.ijs'&E.)@>Filter {."1 dirtree jpath '~install' ~~│5│=:│~~ ~~├─┼──┤~~ 10 top (roughparse JSOURCE)-.IGNORE ~~│4│@:│~~ ┌─────┬──┐ ~~├─┼──┤~~ ~~│3│~~~│49591│, │ ├─────┼──┤ ~~├─┼──┤~~ ~~│3│~~│40473│=: │ ├─────┼──┤ ~~├─┼──┤~~ ~~│3│+~~│35593│; │ ├─────┼──┤ ~~├─┼──┤~~ │34096│=.│ ~~│3│$ │~~ ├─────┼──┤ ~~├─┼──┤~~ │24757│+ │ ~~│2│\|.│~~ ├─────┼──┤ ~~├─┼──┤~~ │18726│" │ ~~│2│i.│~~ ├─────┼──┤ ~~├─┼──┤~~ ~~│2│/~~│18564│< │ ├─────┼──┤ ~~└─┴──┘~~ │18446│/ │ ├─────┼──┤ │16984│> │ ├─────┼──┤ │14655│@ │ └─────┴──┘ </lang>