我有一个数组:
{ "abc" "def" "cba" "fed" "junk" }
我想检查数组中的每个项目是否都有其反转版本作为同一数组中的成员。
在Python中,我将其表达为:
>>> array = ["abc", "def", "cba", "fed", "junk"]
>>> [item for item in array if item[::-1] in array] # [::-1] reverses a string
['abc', 'def', 'cba', 'fed']
甚至:
>>> list(filter(lambda x: x[::-1] in array, array))
['abc', 'def', 'cba', 'fed']
我试过了:
IN: scratchpad dup [ dup reverse swap member? ] filter
--- Data stack:
{ "abc" "def" "cba" "fed" "junk" }
{ }
不,每个项目的报价都失败了。
我确定有一个明显的答案,或者一个有效地完成这项工作的组合和引用。它是什么?
答案 0 :(得分:1)
这里你需要一个闭包。在每个元素上运行的引用需要查看元素本身以外的值。使用fried quotations实现了编写闭包的便捷语法。
E.g:
{ "abc" "def" "cba" "fed" "junk" } dup '[ reverse _ in? ] map
您可以在"外部"中绑定堆栈中的值。到#34;内部的_
点"。您可以使用with
或使用curry
来构造和运行等效的闭包,这是一个更低级别的词:
{ "abc" "def" "cba" "fed" "junk" } dup [ reverse swap in? ] with map
然后添加all?
以检查所有值是否满足谓词:
{ "abc" "def" "cba" "fed" "junk" } dup '[ reverse _ in? ] all?
USE: sets
加载in?
字。