Letter frequency: Difference between revisions

Line 4,168:

=={{header|Phix}}==

Counts own source or supplied filename

<del>Counts own source or supplied filename</del> Now counts words in unixdict.txt of 17 letters or more (to make it js compatible)

~~without~~ javascript_semantics

with javascript_semantics

sequence lc = repeat(0,#7E)

--string text = get_text(command_line()[$])

⚫

integer fn = ~~open~~(~~command_line~~~~()[$~~]~~,"rb"), ch~~

~~while~~ 1 do

string text = join(unix_dict(17))

ch = ~~getc~~(fn)

for i=1 to length(text) do

⚫

integer ch = text[i]

if ch=-1 then exit end if

if ch>=' ' and ch<#7F then

lc[ch] += 1

end if

end ~~while~~

end for

close(fn)

integer count = 0

Line 4,186:

if lc[i]!=0 then

count = mod(count+1,10)

printf(1,"'%c': %d%s",{i,lc[i],iff(count=0?'\n':~~'\t'~~)})

printf(1,"'%c': %-2d%s",{i,lc[i],iff(count=0?"\n":" ")})

end if

end for

{} = wait_key()

<pre>

' ': 92 '!': 1 '"': 4 '#': 3 '$': 1 '%': 3 ''': 10 '(': 9 ')': 9 '+': 2

' ': 14 'a': 15 'b': 2 'c': 20 'd': 7 'e': 33 'g': 7 'h': 16 'i': 22 'l': 16

',': 8 '-': 1 '0': 5 '1': 6 '7': 3 ':': 2 '<': 1 '=': 12 '>': 1 '?': 1

'm': 5 'n': 14 'o': 27 'p': 15 'r': 26 's': 15 't': 24 'u': 6 'v': 1 'y': 4

'E': 2 'F': 1 '[': 4 '\': 2 ']': 4 '_': 3 'a': 7 'b': 1 'c': 21 'd': 11

'e': 26 'f': 14 'g': 3 'h': 12 'i': 22 'j': 1 'k': 1 'l': 8 'm': 4 'n': 25

'o': 14 'p': 4 'q': 1 'r': 8 's': 6 't': 20 'u': 6 'v': 1 'w': 4 'x': 1

'y': 1 '{': 2 '}': 2

</pre>

@@ Line 4,168: / Line 4,168: @@
 =={{header|Phix}}==
-Counts own source or supplied filename
+<del>Counts own source or supplied filename</del> Now counts words in unixdict.txt of 17 letters or more (to make it js compatible)
-<!--<lang Phix>(notonline)-->
+<!--<lang Phix>(phixonline)-->
- <span style="color: #008080;">without</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
  <span style="color: #004080;">sequence</span> <span style="color: #000000;">lc</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#7E</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000080;font-style:italic;">--string text = get_text(command_line()[$])</span>
- <span style="color: #004080;">integer</span> <span style="color: #000000;">fn</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">open</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">command_line</span><span style="color: #0000FF;">()[$],</span><span style="color: #008000;">"rb"</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">ch</span>
- <span style="color: #008080;">while</span> <span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
+ <span style="color: #004080;">string</span> <span style="color: #000000;">text</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">unix_dict</span><span style="color: #0000FF;">(</span><span style="color: #000000;">17</span><span style="color: #0000FF;">))</span>
-     <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">getc</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fn</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">text</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">text</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span>
      <span style="color: #008080;">if</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">=-</span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
      <span style="color: #008080;">if</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">>=</span><span style="color: #008000;">' '</span> <span style="color: #008080;">and</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;"><</span><span style="color: #000000;">#7F</span> <span style="color: #008080;">then</span>
          <span style="color: #000000;">lc</span><span style="color: #0000FF;">[</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
      <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
- <span style="color: #7060A8;">close</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fn</span><span style="color: #0000FF;">)</span>
  <span style="color: #004080;">integer</span> <span style="color: #000000;">count</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
@@ Line 4,186: / Line 4,186: @@
      <span style="color: #008080;">if</span> <span style="color: #000000;">lc</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]!=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
          <span style="color: #000000;">count</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">mod</span><span style="color: #0000FF;">(</span><span style="color: #000000;">count</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)</span>
-         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"'%c': %d%s"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">lc</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">count</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span><span style="color: #0000FF;">?</span><span style="color: #008000;">'\n'</span><span style="color: #0000FF;">:</span><span style="color: #008000;">'\t'</span><span style="color: #0000FF;">)})</span>
+         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"'%c': %-2d%s"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">lc</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">count</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"  "</span><span style="color: #0000FF;">)})</span>
      <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
  <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
- <span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
 <!--</lang>-->
 {{out}}
 <pre>
-' ': 92 '!': 1  '"': 4  '#': 3  '$': 1  '%': 3  ''': 10 '(': 9  ')': 9  '+': 2
+' ': 14  'a': 15  'b': 2   'c': 20  'd': 7   'e': 33  'g': 7   'h': 16  'i': 22  'l': 16
-',': 8  '-': 1  '0': 5  '1': 6  '7': 3  ':': 2  '<': 1  '=': 12 '>': 1  '?': 1
+'m': 5   'n': 14  'o': 27  'p': 15  'r': 26  's': 15  't': 24  'u': 6   'v': 1   'y': 4
-'E': 2  'F': 1  '[': 4  '\': 2  ']': 4  '_': 3  'a': 7  'b': 1  'c': 21 'd': 11
-'e': 26 'f': 14 'g': 3  'h': 12 'i': 22 'j': 1  'k': 1  'l': 8  'm': 4  'n': 25
-'o': 14 'p': 4  'q': 1  'r': 8  's': 6  't': 20 'u': 6  'v': 1  'w': 4  'x': 1
-'y': 1  '{': 2  '}': 2
 </pre>