((1&{~+/)*./\(=1&{))1 1 1 3 2 4 1
我总是得到索引错误。
关键是输出两个数字,一个与列表中的第一个数字相同,第二个与该数字重复的次数相同。
所以这很有效:
*./\(=1&{)1 1 1 3 2 4 1
1 1 1 0 0 0 0
我将第一个数字与列表的其余部分进行比较。然后我插入一个和压缩 - 只要我有一个完整的 1 字符串,这给我一个 1,一旦它打破和失败并且零出现。
我认为然后我可以添加另一组括号,再次从列表中获取前导元素,并以某种方式记录这些数字,最终的想法是有另一个阶段,我将向量的逆应用于原始列表,并且然后使用 $: 返回相同动词的递归应用。有点像快速排序的例子,我想我有点理解,但我想我不明白。
但我什至无法靠近。我将把它作为一个单独的问题提出,以便人们得到适当的回答。