Skill art函数遍历字典

Posted 2020-12-24 yeungchie

https://www.cnblogs.com/yeungchie/

• code

procedure(ycartGo(length1)
	prog(()
		for(x 1 length1
			printf("
Total length : %d(%d)
" x + 3 x)
			_ycart(x)
		)
		;return()
	)
)
procedure(_ycart(length)
	prog((alphabets Alphabets numbers keys begin end funcends funcend func)
		alphabets = list(
			"a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m"
			"n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"
		)
		Alphabets = list(
			"A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M"
			"N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
		)
		;numbers = list("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
		keys = append(append(alphabets Alphabets) numbers)
		
		begin = ""
		end = ""
		for(x 0 length - 1
			begin = strcat(begin "foreach(key" sprintf(nil "%d " x) "keys ")
			end = strcat(end ")")
		)
		mid = "
			funcends = nil
			for(x 0 length - 1
				funcends = append1(funcends
					strcat("key" sprintf(nil "%d " x))
				)
			)
			funcend = ""
			foreach(x funcends
				funcend = strcat(funcend evalstring(x))
			)
			func = stringToSymbol(strcat("art" funcend))
			if(fboundp(func) then
				printf("I found it ! function - %s\\n" func)
			)
		"
		evalstring(strcat(begin mid end))
	)
)

• describe

1. 用于遍历查找art开头的内置函数。
2. ycartGo(length1),length1指定函数名art后需要查找的位数,从长度为0开始。
3. _ycart(length),length指定函数名art后需要查找的位数,固定长度。

• example

ycartGo(4)