高手进来一下,有问题请教
提示: 作者被禁止或删除 内容自动屏蔽
程序代码:divert(`-1')
define(`shiftn', `ifelse(`$1', `0', `shift($@)', `$0(decr(`$1'), shift(shift($@)))')')
define(`map', `ifelse(eval(`$# <= 3'), `1', `pushdef(`$1', `$3')`'$2`'popdef(`$1')',
`pushdef(`$1', `$3')`'$2`'popdef(`$1')`'$0(`$1', `$2', shiftn(`3', $@))')')
define(`filter', `_$0(`', $@)')
define(`_filter', `ifelse(eval(`$# <= 3'), `1', `ifelse(`$2', `$3', `', `$1$3')',
`ifelse(`$2', `$3', `$1`'$0(`', `$2', shiftn(`3', $@))',
`$1$3`'$0(`, ', `$2', shiftn(`3', $@))')')')
define(`eq', `ifelse(eval(`$# <= 2'), `1', `($1) == ($2)',
`map(`x', `$0(`$1', `x') || ', filter(`x', shift($@)))
$0(shift($@))')')
divert`'dnl
if (eq(`a', `b', `c', `d', `e', `f'))
{
/* ... */
}