gp.load.karp

来自「标准的GP源代码,由Andy Singleton维护」· KARP 代码 · 共 12 行

rpb	= (adf2 (ifmatch adf3 ARG1 (ifmatch adf3 
			(ifopen ARG1 adf3 adf1) 0 adf1)
			 ARG1))

adf1 = (PROG2 (write max adf3) (PROG2 dec_aux1 (read max)))

adf2 = (PROG2 (write inc_aux1 arg1) arg1)

adf3 = (IFLTE aux1 0 0 (read aux1))

WBL 20 Nov 1995 $Revision: 1.4 $