Sync
This commit is contained in:
Ingy döt Net
parent
6f050a029e
commit
776bba907c
3887 changed files with 59894 additions and 7280 deletions
|
|
@ -1,142 +1,8 @@
|
|||
import java.math.BigInteger;
|
||||
import java.util.Arrays;
|
||||
import java.util.ArrayList;
|
||||
import java.util.Collections;
|
||||
import java.util.HashMap;
|
||||
import java.util.List;
|
||||
import java.util.Map;
|
||||
import java.util.function.Function;
|
||||
|
||||
interface Function<INPUT, OUTPUT> {
|
||||
public static final List<Void> NIL = Collections.emptyList();
|
||||
public OUTPUT call(List<? extends INPUT> input);
|
||||
}
|
||||
|
||||
class Functions {
|
||||
public static <OUTPUT> OUTPUT call(
|
||||
Function<Void, OUTPUT> f) {
|
||||
return f.call(Function.NIL);
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> OUTPUT call(
|
||||
Function<INPUT, OUTPUT> f,
|
||||
INPUT input) {
|
||||
return f.call(Collections.singletonList(input));
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> OUTPUT call(
|
||||
Function<INPUT, OUTPUT> f,
|
||||
INPUT... input) {
|
||||
return f.call(Arrays.asList(input));
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> OUTPUT call(
|
||||
Function<INPUT, OUTPUT> f,
|
||||
Class<INPUT> type,
|
||||
INPUT... input) {
|
||||
List<INPUT> i = Collections.checkedList(new ArrayList<INPUT>(), type);
|
||||
i.addAll(Arrays.asList(input));
|
||||
return f.call(i);
|
||||
}
|
||||
|
||||
public static <T> T input(
|
||||
List<T> input, int index) {
|
||||
return input.size() > index
|
||||
? input.get(index)
|
||||
: null;
|
||||
}
|
||||
|
||||
public static <INPUT, INPUT_OUTPUT, OUTPUT> Function<INPUT, OUTPUT> compose(
|
||||
final Function<INPUT_OUTPUT, OUTPUT> f
|
||||
, final Function<INPUT, INPUT_OUTPUT> g) {
|
||||
return new Function<INPUT, OUTPUT>() {
|
||||
@Override
|
||||
public OUTPUT call(List<? extends INPUT> input) {
|
||||
return f.call(Collections.singletonList(g.call(input)));
|
||||
}
|
||||
};
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> Function<INPUT, OUTPUT> y(
|
||||
final Function<Function<INPUT, OUTPUT>, Function<INPUT, OUTPUT>> f) {
|
||||
return new Function<INPUT, OUTPUT>() {
|
||||
@Override
|
||||
public OUTPUT call(List<? extends INPUT> input) {
|
||||
return Functions.call(f, new Function<INPUT, OUTPUT>() {
|
||||
@Override
|
||||
public OUTPUT call(List<? extends INPUT> input) {
|
||||
return y(f).call(input);
|
||||
}
|
||||
}).call(input);
|
||||
}
|
||||
};
|
||||
}
|
||||
}
|
||||
|
||||
public class Y {
|
||||
public static BigInteger TWO = BigInteger.ONE.add(BigInteger.ONE);
|
||||
|
||||
public static void main(String[] args) {
|
||||
Function<Number, Number> fibonacci = Functions.y(
|
||||
new Function<Function<Number, Number>, Function<Number, Number>>() {
|
||||
@Override
|
||||
public Function<Number, Number> call(List<? extends Function<Number, Number>> input) {
|
||||
final Function<Number, Number> f = Functions.input(input, 0);
|
||||
return new Function<Number, Number>() {
|
||||
@Override
|
||||
public Number call(List<? extends Number> input) {
|
||||
BigInteger n = new BigInteger(Functions.input(input, 0).toString());
|
||||
if (n.compareTo(TWO) <= 0) return 1;
|
||||
return new BigInteger(Functions.call(f, n.subtract(BigInteger.ONE)).toString())
|
||||
.add(new BigInteger(Functions.call(f, n.subtract(TWO)).toString()));
|
||||
}
|
||||
};
|
||||
}
|
||||
}
|
||||
);
|
||||
|
||||
Function<Number, Number> factorial = Functions.y(
|
||||
new Function<Function<Number, Number>, Function<Number, Number>>() {
|
||||
@Override
|
||||
public Function<Number, Number> call(List<? extends Function<Number, Number>> input) {
|
||||
final Function<Number, Number> f = Functions.input(input, 0);
|
||||
return new Function<Number, Number>() {
|
||||
@Override
|
||||
public Number call(List<? extends Number> input) {
|
||||
BigInteger n = new BigInteger(Functions.input(input, 0).toString());
|
||||
if (n.compareTo(BigInteger.ONE) <= 0) return 1;
|
||||
return n.multiply(
|
||||
new BigInteger(Functions.call(f, n.subtract(BigInteger.ONE)).toString())
|
||||
);
|
||||
}
|
||||
};
|
||||
}
|
||||
}
|
||||
);
|
||||
|
||||
Function<Number, Number> ackermann = Functions.y(
|
||||
new Function<Function<Number, Number>, Function<Number, Number>>() {
|
||||
@Override
|
||||
public Function<Number, Number> call(List<? extends Function<Number, Number>> input) {
|
||||
final Function<Number, Number> f = Functions.input(input, 0);
|
||||
return new Function<Number, Number>() {
|
||||
@Override
|
||||
public Number call(List<? extends Number> input) {
|
||||
BigInteger m = new BigInteger(Functions.input(input, 0) + "");
|
||||
BigInteger n = new BigInteger(Functions.input(input, 1) + "");
|
||||
return m.equals(BigInteger.ZERO)
|
||||
? n.add(BigInteger.ONE)
|
||||
: Functions.call(f, m.subtract(BigInteger.ONE),
|
||||
n.equals(BigInteger.ZERO)
|
||||
? BigInteger.ONE
|
||||
: Functions.call(f, m, n.subtract(BigInteger.ONE)));
|
||||
}
|
||||
};
|
||||
}
|
||||
}
|
||||
);
|
||||
|
||||
System.out.println("fibonacci(10) = " + Functions.call(fibonacci, 10));
|
||||
System.out.println("factorial(10) = " + Functions.call(factorial, 10));
|
||||
System.out.println("ackermann(3, 7) = " + Functions.call(ackermann, 3, 7));
|
||||
@FunctionalInterface
|
||||
public interface SelfApplicable<OUTPUT> extends Function<SelfApplicable<OUTPUT>, OUTPUT> {
|
||||
public default OUTPUT selfApply() {
|
||||
return apply(this);
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,147 +1,5 @@
|
|||
import java.math.BigInteger;
|
||||
import java.util.Arrays;
|
||||
import java.util.ArrayList;
|
||||
import java.util.Collections;
|
||||
import java.util.HashMap;
|
||||
import java.util.Iterator;
|
||||
import java.util.List;
|
||||
import java.util.Map;
|
||||
import java.util.function.Function;
|
||||
import java.util.function.BiFunction;
|
||||
import java.util.stream.Collectors;
|
||||
import java.util.function.UnaryOperator;
|
||||
|
||||
@FunctionalInterface
|
||||
interface VarargFunction<INPUT, OUTPUT> {
|
||||
public OUTPUT apply(List<? extends INPUT> input);
|
||||
|
||||
public default OUTPUT apply() {
|
||||
return apply(Collections.emptyList());
|
||||
}
|
||||
|
||||
public default OUTPUT apply(INPUT input) {
|
||||
return apply(Collections.singletonList(input));
|
||||
}
|
||||
|
||||
public default OUTPUT apply(INPUT input, INPUT input2) {
|
||||
return apply(Arrays.asList(input, input2));
|
||||
}
|
||||
|
||||
public default OUTPUT apply(INPUT input, INPUT input2, INPUT input3) {
|
||||
return apply(Arrays.asList(input, input2, input3));
|
||||
}
|
||||
|
||||
public default OUTPUT apply(Class<INPUT> type, Object... input) {
|
||||
List<INPUT> i = Collections.checkedList(new ArrayList<>(), type);
|
||||
for (Object object : input) {
|
||||
i.add(type.cast(object));
|
||||
}
|
||||
return apply(i);
|
||||
}
|
||||
|
||||
public default <POST_OUTPUT> VarargFunction<INPUT, POST_OUTPUT> compose(
|
||||
VarargFunction<OUTPUT, POST_OUTPUT> after) {
|
||||
return input -> after.apply(apply(input));
|
||||
}
|
||||
|
||||
public default Function<INPUT, OUTPUT> toFunction() {
|
||||
return input -> apply(input);
|
||||
}
|
||||
|
||||
public default BiFunction<INPUT, INPUT, OUTPUT> toBiFunction() {
|
||||
return (input, input2) -> apply(input, input2);
|
||||
}
|
||||
|
||||
public default <PRE_INPUT> VarargFunction<PRE_INPUT, OUTPUT> transformArguments(Function<PRE_INPUT, INPUT> transformer) {
|
||||
return input -> apply(input.parallelStream().map(transformer).collect(Collectors.toList()));
|
||||
}
|
||||
}
|
||||
|
||||
@FunctionalInterface
|
||||
interface SelfApplicable<OUTPUT> {
|
||||
OUTPUT apply(SelfApplicable<OUTPUT> input);
|
||||
}
|
||||
|
||||
class Utils {
|
||||
public static <T> T input( List<T> input, int index) {
|
||||
return input.size() > index ? input.get(index) : null;
|
||||
}
|
||||
|
||||
/* Based on https://gist.github.com/aruld/3965968/#comment-604392 */
|
||||
|
||||
public static <INPUT, OUTPUT> SelfApplicable<Function<Function<Function<INPUT, OUTPUT>, Function<INPUT, OUTPUT>>, Function<INPUT, OUTPUT>>> y(Class<INPUT> input, Class<OUTPUT> output) {
|
||||
return y -> f -> x -> f.apply(y.apply(y).apply(f)).apply(x);
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> Function<Function<Function<INPUT, OUTPUT>, Function<INPUT, OUTPUT>>, Function<INPUT, OUTPUT>> fix(Class<INPUT> input, Class<OUTPUT> output) {
|
||||
return y(input, output).apply(y(input, output));
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> SelfApplicable<Function<Function<VarargFunction<INPUT, OUTPUT>, VarargFunction<INPUT, OUTPUT>>, VarargFunction<INPUT, OUTPUT>>> yVararg(Class<INPUT> input, Class<OUTPUT> output) {
|
||||
return y -> f -> x -> f.apply(y.apply(y).apply(f)).apply(x);
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> Function<Function<VarargFunction<INPUT, OUTPUT>, VarargFunction<INPUT, OUTPUT>>, VarargFunction<INPUT, OUTPUT>> fixVararg(Class<INPUT> input, Class<OUTPUT> output) {
|
||||
return yVararg(input, output).apply(yVararg(input, output));
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> VarargFunction<INPUT, OUTPUT> toVarargFunction(Function<INPUT, OUTPUT> function) {
|
||||
return input -> function.apply(Utils.input(input, 0));
|
||||
}
|
||||
|
||||
public static <INPUT, OUTPUT> VarargFunction<INPUT, OUTPUT> toVarargFunction(BiFunction<INPUT, INPUT, OUTPUT> function) {
|
||||
return input -> function.apply(Utils.input(input, 0), Utils.input(input, 1));
|
||||
}
|
||||
}
|
||||
|
||||
public class Y {
|
||||
public static final BigInteger TWO = BigInteger.ONE.add(BigInteger.ONE);
|
||||
|
||||
public static final Function<Number, BigInteger> toBigInteger = ((Function<Number, Long>) Number::longValue).compose(BigInteger::valueOf);
|
||||
|
||||
public static void main(String[] args) {
|
||||
VarargFunction<Number, Number> fibonacci = Utils.fixVararg(Number.class, Number.class).apply(
|
||||
f -> Utils.toVarargFunction(
|
||||
toBigInteger.compose(
|
||||
n -> (n.compareTo(TWO) <= 0) ? 1
|
||||
: new BigInteger(f.apply(n.subtract(BigInteger.ONE)).toString())
|
||||
.add(new BigInteger(f.apply(n.subtract(TWO)).toString()))
|
||||
)
|
||||
)
|
||||
);
|
||||
|
||||
VarargFunction<Number, Number> factorial = Utils.fixVararg(Number.class, Number.class).apply(
|
||||
f -> Utils.toVarargFunction(
|
||||
toBigInteger.compose(
|
||||
n -> (n.compareTo(BigInteger.ONE) <= 0) ? 1
|
||||
: n.multiply(new BigInteger(f.apply(n.subtract(BigInteger.ONE)).toString()))
|
||||
)
|
||||
)
|
||||
);
|
||||
|
||||
VarargFunction<Number, Number> ackermann = Utils.fixVararg(Number.class, Number.class).apply(
|
||||
f -> Utils.toVarargFunction(
|
||||
(BigInteger m, BigInteger n) -> m.equals(BigInteger.ZERO) ? n.add(BigInteger.ONE)
|
||||
: f.apply(m.subtract(BigInteger.ONE),
|
||||
n.equals(BigInteger.ZERO)
|
||||
? BigInteger.ONE
|
||||
: f.apply(m, n.subtract(BigInteger.ONE)))
|
||||
).transformArguments(toBigInteger)
|
||||
);
|
||||
|
||||
Map<String, VarargFunction<Number, Number>> functions = new HashMap<>();
|
||||
functions.put("fibonacci", fibonacci);
|
||||
functions.put("factorial", factorial);
|
||||
functions.put("ackermann", ackermann);
|
||||
|
||||
Map<VarargFunction<Number, Number>, List<Number>> arguments = new HashMap<>();
|
||||
arguments.put(functions.get("fibonacci"), Arrays.asList(20));
|
||||
arguments.put(functions.get("factorial"), Arrays.asList(10));
|
||||
arguments.put(functions.get("ackermann"), Arrays.asList(3, 2));
|
||||
|
||||
functions.entrySet().parallelStream().map(
|
||||
entry ->
|
||||
entry.getKey() + arguments.get(entry.getValue()) + " = "
|
||||
+ entry.getValue().apply(arguments.get(entry.getValue()))
|
||||
).forEach(System.out::println);
|
||||
}
|
||||
}
|
||||
public interface FixedPoint<FUNCTION> extends Function<UnaryOperator<FUNCTION>, FUNCTION> {}
|
||||
|
|
|
|||
|
|
@ -1,3 +1,43 @@
|
|||
factorial[10] = 3628800
|
||||
ackermann[3, 2] = 29
|
||||
fibonacci[20] = 6765
|
||||
import java.util.Arrays;
|
||||
import java.util.Optional;
|
||||
import java.util.function.Function;
|
||||
import java.util.function.BiFunction;
|
||||
|
||||
@FunctionalInterface
|
||||
public interface VarargsFunction<INPUTS, OUTPUT> extends Function<INPUTS[], OUTPUT> {
|
||||
@SuppressWarnings("unchecked")
|
||||
public OUTPUT apply(INPUTS... inputs);
|
||||
|
||||
public static <INPUTS, OUTPUT> VarargsFunction<INPUTS, OUTPUT> from(Function<INPUTS[], OUTPUT> function) {
|
||||
return function::apply;
|
||||
}
|
||||
|
||||
public static <INPUTS, OUTPUT> VarargsFunction<INPUTS, OUTPUT> upgrade(Function<INPUTS, OUTPUT> function) {
|
||||
return inputs -> function.apply(inputs[0]);
|
||||
}
|
||||
|
||||
public static <INPUTS, OUTPUT> VarargsFunction<INPUTS, OUTPUT> upgrade(BiFunction<INPUTS, INPUTS, OUTPUT> function) {
|
||||
return inputs -> function.apply(inputs[0], inputs[1]);
|
||||
}
|
||||
|
||||
@SuppressWarnings("unchecked")
|
||||
public default <POST_OUTPUT> VarargsFunction<INPUTS, POST_OUTPUT> andThen(
|
||||
VarargsFunction<OUTPUT, POST_OUTPUT> after) {
|
||||
return inputs -> after.apply(apply(inputs));
|
||||
}
|
||||
|
||||
@SuppressWarnings("unchecked")
|
||||
public default Function<INPUTS, OUTPUT> toFunction() {
|
||||
return input -> apply(input);
|
||||
}
|
||||
|
||||
@SuppressWarnings("unchecked")
|
||||
public default BiFunction<INPUTS, INPUTS, OUTPUT> toBiFunction() {
|
||||
return (input, input2) -> apply(input, input2);
|
||||
}
|
||||
|
||||
@SuppressWarnings("unchecked")
|
||||
public default <PRE_INPUTS> VarargsFunction<PRE_INPUTS, OUTPUT> transformArguments(Function<PRE_INPUTS, INPUTS> transformer) {
|
||||
return inputs -> apply((INPUTS[]) Arrays.stream(inputs).parallel().map(transformer).toArray());
|
||||
}
|
||||
}
|
||||
|
|
|
|||
74
Task/Y-combinator/Java/y-combinator-6.java
Normal file
74
Task/Y-combinator/Java/y-combinator-6.java
Normal file
|
|
@ -0,0 +1,74 @@
|
|||
import java.math.BigDecimal;
|
||||
import java.math.BigInteger;
|
||||
import java.util.Arrays;
|
||||
import java.util.HashMap;
|
||||
import java.util.Map;
|
||||
import java.util.function.Function;
|
||||
import java.util.function.UnaryOperator;
|
||||
import java.util.stream.Collectors;
|
||||
import java.util.stream.LongStream;
|
||||
|
||||
@FunctionalInterface
|
||||
public interface Y<FUNCTION> extends SelfApplicable<FixedPoint<FUNCTION>> {
|
||||
public static void main(String... arguments) {
|
||||
BigInteger TWO = BigInteger.ONE.add(BigInteger.ONE);
|
||||
|
||||
Function<Number, Long> toLong = Number::longValue;
|
||||
Function<Number, BigInteger> toBigInteger = toLong.andThen(BigInteger::valueOf);
|
||||
|
||||
/* Based on https://gist.github.com/aruld/3965968/#comment-604392 */
|
||||
Y<VarargsFunction<Number, Number>> combinator = y -> f -> x -> f.apply(y.selfApply().apply(f)).apply(x);
|
||||
FixedPoint<VarargsFunction<Number, Number>> fixedPoint = combinator.selfApply();
|
||||
|
||||
VarargsFunction<Number, Number> fibonacci = fixedPoint.apply(
|
||||
f -> VarargsFunction.upgrade(
|
||||
toBigInteger.andThen(
|
||||
n -> (n.compareTo(TWO) <= 0)
|
||||
? 1
|
||||
: new BigInteger(f.apply(n.subtract(BigInteger.ONE)).toString())
|
||||
.add(new BigInteger(f.apply(n.subtract(TWO)).toString()))
|
||||
)
|
||||
)
|
||||
);
|
||||
|
||||
VarargsFunction<Number, Number> factorial = fixedPoint.apply(
|
||||
f -> VarargsFunction.upgrade(
|
||||
toBigInteger.andThen(
|
||||
n -> (n.compareTo(BigInteger.ONE) <= 0)
|
||||
? 1
|
||||
: n.multiply(new BigInteger(f.apply(n.subtract(BigInteger.ONE)).toString()))
|
||||
)
|
||||
)
|
||||
);
|
||||
|
||||
VarargsFunction<Number, Number> ackermann = fixedPoint.apply(
|
||||
f -> VarargsFunction.upgrade(
|
||||
(BigInteger m, BigInteger n) -> m.equals(BigInteger.ZERO)
|
||||
? n.add(BigInteger.ONE)
|
||||
: f.apply(
|
||||
m.subtract(BigInteger.ONE),
|
||||
n.equals(BigInteger.ZERO)
|
||||
? BigInteger.ONE
|
||||
: f.apply(m, n.subtract(BigInteger.ONE))
|
||||
)
|
||||
).transformArguments(toBigInteger)
|
||||
);
|
||||
|
||||
Map<String, VarargsFunction<Number, Number>> functions = new HashMap<>();
|
||||
functions.put("fibonacci", fibonacci);
|
||||
functions.put("factorial", factorial);
|
||||
functions.put("ackermann", ackermann);
|
||||
|
||||
Map<VarargsFunction<Number, Number>, Number[]> parameters = new HashMap<>();
|
||||
parameters.put(functions.get("fibonacci"), new Number[]{20});
|
||||
parameters.put(functions.get("factorial"), new Number[]{10});
|
||||
parameters.put(functions.get("ackermann"), new Number[]{3, 2});
|
||||
|
||||
functions.entrySet().stream().parallel().map(
|
||||
entry -> entry.getKey()
|
||||
+ Arrays.toString(parameters.get(entry.getValue()))
|
||||
+ " = "
|
||||
+ entry.getValue().apply(parameters.get(entry.getValue()))
|
||||
).forEach(System.out::println);
|
||||
}
|
||||
}
|
||||
3
Task/Y-combinator/Java/y-combinator-7.java
Normal file
3
Task/Y-combinator/Java/y-combinator-7.java
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
factorial[10] = 3628800
|
||||
ackermann[3, 2] = 29
|
||||
fibonacci[20] = 6765
|
||||
Loading…
Add table
Add a link
Reference in a new issue