代码搜索：idel
找到约 314 项符合「idel」的源代码
代码结果 314
www.eeworm.com/read/125133/6032850
idel basics.idel
#define newline '\n' emit
def 0 1 main
(add) newline
(sub) newline
(mul) newline
(umul) newline
(div) newline
(udiv) newline
(and) newline
(or) newline
(xor) newline
(
www.eeworm.com/read/125133/6032853
idel type.idel
def 2 0 type
{ a n -- 0 n < if a c@ emit a 1 + n 1 - type then } ;
www.eeworm.com/read/125133/6032854
idel beer.idel
def 0 1 beer 23 drinking 0 ;
#include "udot.idel"
#include "type.idel"
def 0 0 cr '\n' emit ;
string: no-more "No more bottles"
string: 1-bottle "1 bottle"
string: bottles " bottles"
def 1
www.eeworm.com/read/125133/6032858
idel factor.idel
def 0 1 main 0 2 test-loop u. '\n' emit 0 ;
#include "udot.idel"
def 2 1 divides?
{ divisor n -- n divisor umod 0 = } ;
def 2 1 testing
{ n i -- n i i * u< if
n
www.eeworm.com/read/125133/6032859
idel absorb.idel
def 0 1 main
absorb absorb absorb absorb absorb emit emit emit emit emit
0 ;
www.eeworm.com/read/125133/6032861
idel even.idel
def 0 1 main 42 even? u. '\n' emit 0 ;
#include "udot.idel"
def 0 1 true -1 ;
def 0 1 false 0 ;
def 1 1 even? { n -- n 0 = if true else n 1 - odd? then } ;
def 1 1 odd? { n -- n 0 =
www.eeworm.com/read/125133/6032866
idel qsort.idel
\ Quicksort benchmark.
\ This is unrealistic as a library function for at least two reasons:
\ - specialized to an array of ints
\ - bad worst-case behavior (and already-sorted is the worst case)
b
www.eeworm.com/read/125133/6032872
idel fib.idel
def 0 1 main 34 fib u. '\n' emit 0 ;
#include "../tests/udot.idel"
#include "../tests/fib.idel"
www.eeworm.com/read/125133/6032873
idel sieve.idel
#define eflag 8190
bss-data: flags eflag
def 0 1 main
499 iterations
primes u. '\n' emit 0 ;
def 1 0 iterations
{ i -- i if primes { p -- } i 1 - iterations then } ;
def 0 1 primes
flag
www.eeworm.com/read/125133/6032877
idel hotpo.idel
def 0 1 main 60000
longest { L -- L u. ' ' emit L hotpo-period u. } '\n' emit
0 ;
#include "../tests/udot.idel"
#include "../tests/hotpo.idel"