我正在通过Norvig's book on AIP。在编写跨产品功能时有一个练习 -
(defun cross-product (fn list-1 list-2)
(mappend #'(lambda (y)
(mapcar #'(lambda (x)
(funcall fn y x))
list-2))
list-1))
(defun mappend (fn the-list)
(if (null the-list)
nil
(append (funcall fn (first the-list))
(mappend fn (rest the-list)))))
我正在尝试用Java编写实现 -
interface Function<T1, T2, T3> {
public T3 function(T1 t1, T2 t2);
}
public class CrossProduct<T1, T2> {
private List<T1> list1;
private List<T2> list2;
public CrossProduct(List<T1> t1, List<T2> t2) {
this.list1 = t1;
this.list2 = t2;
}
public <T3> List<T3> calculate(Function<T1, T2, T3> fn) {
List product = new ArrayList();
for (int i = 0; i < list1.size(); i++)
for (int j = 0; j < list2.size(); j++)
product.add(fn.function(list1.get(i), list2.get(j)));
return product;
}
}
用法 -
@Test
public void testWithStrings() {
List<String> list1 = new ArrayList<String>();
list1.add("6");
list1.add("8");
List<String> list2 = new ArrayList<String>();
list2.add("2");
list2.add("3");
List<String> product = new CrossProduct<String, String>(list1, list2)
.<String> calculate(new Function<String, String, String>() {
public String function(String x, String y) {
return (String) x + (String) y;
}
});
Assert.assertEquals("62", product.get(0));
Assert.assertEquals("63", product.get(1));
Assert.assertEquals("82", product.get(2));
Assert.assertEquals("83", product.get(3));
}
有更好的方法吗?
答案 0 :(得分:1)
我不确切地知道您希望改进哪些参数。但是,我会说我不喜欢N * M列表大小,因为它可能太大了。如果我知道结果列表可以是不可变的,那么我将实现我自己的List,它只在调用product(l1(i), l2(j))
时计算result.get(i*M+j-1)
。所以我没有保留一个长列表(如果需要,可能只是一个小缓存)。
答案 1 :(得分:1)
以这种方式定义你的CrossProduct
类似乎有点武断:为什么列表是args成员变量,而fn
是方法参数?事实上,为什么CrossProduct
一个类?一个交叉产品is a
列表,但它不是列表的子类型,因为给定的列表都可以
crossproduct
函数构建。将“跨产品”视为一种类型的IMO是不自然的。
我可能会做类似
的事情public class ListFunctions {
public static <T1, T2, T3> List<T3> crossProduct(List<T1> list1, List<T2> list2, Function<T1, T2, T3> fn) {
List<T3> product = new ArrayList<T3>();
for (int i = 0; i < list1.size(); i++)
for (int j = 0; j < list2.size(); j++)
product.add(fn.function(list1.get(i), list2.get(j)));
return product;
}
}
如果你确实想要出于某种原因定义类CrossProduct
(例如,如salman建议的那样实现延迟评估),我会说将所有三个args作为成员变量并且具有类实现更为OO List
,例如
public class CrossProduct<T1, T2, T3> implements List<T3> {
public CrossProduct(T1 list1, T2 list2, Function<T1, T2, T3> fn) {
// remember args...
}
// etc...
}