File: bloop.fth

package info (click to toggle)
pforth 21-6
  • links: PTS
  • area: main
  • in suites: potato
  • size: 816 kB
  • ctags: 873
  • sloc: ansic: 5,050; makefile: 104
file content (34 lines) | stat: -rw-r--r-- 326 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 


: BLOOP	 ( n -- n' )
	0 swap 0
	DO
		i +
		i 1 and
		IF
			dup dup	2 +
			swap - drop
		THEN
	LOOP
;


\ ." 	START" cr
\ 8000000 bloop .
\ ." END" cr


: uselocs  { aa bb -- }
	aa bb +
	aa bb -
	- drop
;

: BLOCS  (	N -- )
	0 DO i 77 uselocs LOOP
;


." 	START" cr
2000000 blocs
." END" cr