26 lines
634 B
Text
26 lines
634 B
Text
source: to :block read arg\0
|
|
frequencies: #[]
|
|
|
|
inspectBlock: function [blk][
|
|
loop blk 'item [
|
|
when [
|
|
word? item [
|
|
sItem: to :string item
|
|
if set? sItem ->
|
|
if function? var sItem [
|
|
switch key? frequencies sItem
|
|
-> set frequencies sItem (get frequencies sItem)+1
|
|
-> set frequencies sItem 1
|
|
]
|
|
]
|
|
|
|
or? block? item
|
|
inline? item ->
|
|
inspectBlock item
|
|
]
|
|
]
|
|
]
|
|
|
|
inspectBlock source
|
|
|
|
inspect frequencies
|