unless(fboundp(‘ycFilpList)
	procedure(ycFilpList(list)
		prog((length output)
			length = length(list)
			for(x 0 length - 1
				output = append1(output nth((length - 1 - x) list))
			)
			return(output)
		)
	)
)
describe
输入一个list,会根据索引号来翻转输出新的list。
example
ycFilpList(list(1 2 3 4 5))
=>(5 4 3 2 1)
原文:https://www.cnblogs.com/yeungchie/p/12906050.html