crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix an issue that was causing memory corruption in the example/Primes.forth

Browse source 
FossilOrigin-Name: 7ea7b110de04a5e330a4ff2dc9bc99414607b4daa8818c945890107ca95ad030
This commit is contained in:
crc 2017-10-23 14:53:44 +00:00
parent 4b537c931b
commit ab1a93a1a8
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
example/Primes.forth
View file

@ -2,23 +2,23 @@ This is a quick and dirty way to find prime numbers in a set.
```` ````
{{ {{
#2 'last var<n> #2 'NextPrime var<n>
:extract (s-s) :extract (s-s)
[ @last dup-pair eq? [ @NextPrime dup-pair eq?
[ drop-pair TRUE ] [ drop-pair TRUE ]
[ mod n:-zero? ] choose ] set:filter ; [ mod n:-zero? ] choose ] set:filter ;
---reveal--- ---reveal---
:get-primes (s-s) :get-primes (s-s)
#2 !last #2 !NextPrime
dup fetch [ extract &last v:inc ] times ; dup fetch [ extract &NextPrime v:inc ] times ;
}} }}
```` ````
And a test: And a test:
```` ````
here :create-set (-a)
#7500 , here #7000 , #2 #7002 [ dup , n:inc ] times drop ;
#2 #7502 [ dup , n:inc ] times drop
get-primes [ putn sp ] set:for-each create-set get-primes [ putn sp ] set:for-each
```` ````