Function frequency: Difference between revisions
Content added Content deleted
(Added Erlang) |
|||
Line 745: | Line 745: | ||
└─┴──┘ |
└─┴──┘ |
||
</lang> |
</lang> |
||
=={{header|LiveCode}}== |
|||
Initially based on [http://lessons.livecode.com/m/2592/l/126343-listing-all-the-handlers-in-a-script Listing all the handlers in a script] |
|||
<lang LiveCode>function handlerNames pScript |
|||
put pScript into pScriptCopy |
|||
filter pScript with regex pattern "^(on|function).*" |
|||
-- add in the built-in commands & functions |
|||
put the commandNames & the functionnames into cmdfunc |
|||
repeat for each line builtin in cmdfunc |
|||
put 0 into handlers[builtin] |
|||
end repeat |
|||
-- add user defined handlers, remove this section of you do not want your own functions included |
|||
repeat with x = 1 to the number of lines of pScript |
|||
put word 2 of line x of pScript into handlername |
|||
put 0 into handlers[handlername] |
|||
end repeat |
|||
-- count handlers used |
|||
repeat with x = 1 to the number of lines of pScriptCopy |
|||
repeat for each key k in handlers |
|||
if k is among the tokens of line x of pScriptCopy then |
|||
add 1 to handlers[k] |
|||
end if |
|||
end repeat |
|||
end repeat |
|||
combine handlers using cr and space |
|||
sort lines of handlers descending by word 2 of each |
|||
put line 1 to 10 of handlers into handlers |
|||
return handlers |
|||
end handlerNames</lang> |
|||
To use<lang LiveCode>put handlerNames(the script of this stack & cr & the script of this card & cr & the script of me)</lang> |
|||
Sample output<lang LiveCode>if 8 |
|||
put 8 |
|||
return 8 |
|||
function 7 |
|||
factorialacc 4 -- user def function for other rosetta task |
|||
factorialr 3 -- user def function for other rosetta task |
|||
handlerNames 3 |
|||
factorial 2 -- user def function for other rosetta task |
|||
factorialit 2 -- user def function for other rosetta task |
|||
mouseUp 2</lang> |
|||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |
||
Line 751: | Line 796: | ||
{{Slot, 3}, {Pattern, 2}, {fn, 2}, {Blank, 2}, {\[Infinity], 1}, {True, 1}, {Tally, 1}, {Take, 1}, {Symbol, 1}, {SortBy, 1}}</pre> |
{{Slot, 3}, {Pattern, 2}, {fn, 2}, {Blank, 2}, {\[Infinity], 1}, {True, 1}, {Tally, 1}, {Take, 1}, {Symbol, 1}, {SortBy, 1}}</pre> |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |