检查数组的已修改元素是否是同一数组中的成员

时间:2016-03-20 18:17:00

标签: arrays factor-lang

我有一个数组:

{ "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" }
{  }

不,每个项目的报价都失败了。

我确定有一个明显的答案,或者一个有效地完成这项工作的组合和引用。它是什么?

1 个答案:

答案 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?字。