lib/exercises-in-programming-style
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

I'm liking loops in Forth.

Browse Source
This commit is contained in:
Crista Lopes
2013-11-07 16:43:35 -08:00
parent b52c783b32
commit 20b925d954
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
02-go-forth/tf-02.py
View File

@@ -102,7 +102,10 @@ stack.append(sys.argv[1])
read_file(); filter_chars(); scan(); remove_stop_words() read_file(); filter_chars(); scan(); remove_stop_words()
frequencies(); sort() frequencies(); sort()
for i in range(0, 25): stack.append(0)
(w, f) = stack.pop() while stack[-1] < 25:
print w, ' - ', f heap['i'] = stack.pop()
(w, f) = stack.pop(); print w, ' - ', f
stack.append(heap['i']); stack.append(1)
stack.append(stack.pop() + stack.pop())