i32 + 'static> {
+ box move |&: x| n + x
+}
+
+fn main() {
+ let adder = add_n(40);
+ println!("The answer to life is {}.", adder(2));
+}
diff --git a/Task/Currying/Standard-ML/currying-1.ml b/Task/Currying/Standard-ML/currying-1.ml
new file mode 100644
index 0000000000..1d9f56b095
--- /dev/null
+++ b/Task/Currying/Standard-ML/currying-1.ml
@@ -0,0 +1,4 @@
+fun addnums (x:int) y = x+y (* declare a curried function *)
+
+val add1 = addnums 1 (* bind the first argument to get another function *)
+add1 42 (* apply to actually compute a result, 43 *)
diff --git a/Task/Currying/Standard-ML/currying-2.ml b/Task/Currying/Standard-ML/currying-2.ml
new file mode 100644
index 0000000000..7890dcd78e
--- /dev/null
+++ b/Task/Currying/Standard-ML/currying-2.ml
@@ -0,0 +1,2 @@
+fun curry f x y = f(x,y)
+(* Type signature: ('a * 'b -> 'c) -> 'a -> 'b -> 'c *)
diff --git a/Task/Currying/Tcl/currying.tcl b/Task/Currying/Tcl/currying.tcl
new file mode 100644
index 0000000000..385d0fb05c
--- /dev/null
+++ b/Task/Currying/Tcl/currying.tcl
@@ -0,0 +1,2 @@
+interp alias {} addone {} ::tcl::mathop::+ 1
+puts [addone 6]; # => 7
diff --git a/Task/Digital-root-Multiplicative-digital-root/00DESCRIPTION b/Task/Digital-root-Multiplicative-digital-root/00DESCRIPTION
new file mode 100644
index 0000000000..f172a98ca6
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/00DESCRIPTION
@@ -0,0 +1,27 @@
+The [[wp:Multiplicative digital root|multiplicative digital root]] (MDR) and multiplicative persistence (MP) of a number, , is calculated rather like the [[Digital root]] except digits are multiplied instead of being added:
+# Set to and to .
+# While has more than one digit:
+#* Find a replacement as the multiplication of the digits of the current value of .
+#* Increment .
+# Return (= MP) and (= MDR)
+
+;Task:
+* Tabulate the MP and MDR of the numbers 123321, 7739, 893, 899998
+* Tabulate MDR versus the first five numbers having that MDR, something like:
+MDR: [n0..n4]
+=== ========
+ 0: [0, 10, 20, 25, 30]
+ 1: [1, 11, 111, 1111, 11111]
+ 2: [2, 12, 21, 26, 34]
+ 3: [3, 13, 31, 113, 131]
+ 4: [4, 14, 22, 27, 39]
+ 5: [5, 15, 35, 51, 53]
+ 6: [6, 16, 23, 28, 32]
+ 7: [7, 17, 71, 117, 171]
+ 8: [8, 18, 24, 29, 36]
+ 9: [9, 19, 33, 91, 119]
+Show all output on this page.
+
+;References:
+* [http://mathworld.wolfram.com/MultiplicativeDigitalRoot.html Multiplicative Digital Root] on Wolfram Mathworld.
+* [http://oeis.org/A031347 Multiplicative digital root] on The On-Line Encyclopedia of Integer Sequences.
diff --git a/Task/Digital-root-Multiplicative-digital-root/00META.yaml b/Task/Digital-root-Multiplicative-digital-root/00META.yaml
new file mode 100644
index 0000000000..aed8ff126a
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/00META.yaml
@@ -0,0 +1,2 @@
+---
+note: Mathematics
diff --git a/Task/Digital-root-Multiplicative-digital-root/ALGOL-68/digital-root-multiplicative-digital-root.alg b/Task/Digital-root-Multiplicative-digital-root/ALGOL-68/digital-root-multiplicative-digital-root.alg
new file mode 100644
index 0000000000..e6c014ea44
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/ALGOL-68/digital-root-multiplicative-digital-root.alg
@@ -0,0 +1,102 @@
+# Multiplicative Digital Roots #
+
+# structure to hold the results of calculating the digital root & persistence #
+MODE DR = STRUCT( INT root, INT persistence );
+
+# calculate the multiplicative digital root and persistence of a number #
+PROC md root = ( INT number )DR:
+BEGIN
+
+ # calculate the product of the digits of a number #
+ PROC digit product = ( INT number )INT:
+ BEGIN
+
+ INT result := 1;
+ INT rest := number;
+
+ WHILE
+ result TIMESAB ( rest MOD 10 );
+ rest OVERAB 10;
+ rest > 0
+ DO
+ SKIP
+ OD;
+
+ result
+ END; # digit product #
+
+ INT mp := 0;
+ INT mdr := ABS number;
+
+ WHILE mdr > 9
+ DO
+ mp +:= 1;
+ mdr := digit product( mdr )
+ OD;
+
+ ( mdr, mp )
+END; # md root #
+
+# prints a number and its MDR and MP #
+PROC print md root = ( INT number )VOID:
+BEGIN
+ DR mdr = md root( number );
+ print( ( whole( number, -6 )
+ , ": MDR: ", whole( root OF mdr, 0 )
+ , ", MP: ", whole( persistence OF mdr, -2 )
+ , newline
+ )
+ )
+END; # print md root #
+
+# prints the first few numbers with each possible Multiplicative Digital #
+# Root. The number of values to print is specified as a parameter #
+PROC tabulate mdr = ( INT number of values )VOID:
+BEGIN
+
+ [ 0 : 9, 1 : number of values ]INT mdr values;
+ [ 0 : 9 ]INT mdr counts;
+ mdr counts[ AT 1 ] := ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 );
+
+ # find the first few numbers with each possible mdr #
+
+ INT values found := 0;
+ INT required values := 10 * number of values;
+
+ FOR value FROM 0 WHILE values found < required values
+ DO
+ DR mdr = md root( value );
+ IF mdr counts[ root OF mdr ] < number of values
+ THEN
+ # need more values with this multiplicative digital root #
+ values found +:= 1;
+ mdr counts[ root OF mdr ] +:= 1;
+ mdr values[ root OF mdr, mdr counts[ root OF mdr ] ] := value
+ FI
+ OD;
+
+ # print the values #
+
+ print( ( "MDR: [n0..n" + whole( number of values - 1, 0 ) + "]", newline ) );
+ print( ( "=== ========", newline ) );
+ FOR mdr pos FROM 1 LWB mdr values TO 1 UPB mdr values
+ DO
+ STRING separator := ": [";
+ print( ( whole( mdr pos, -3 ) ) );
+ FOR val pos FROM 2 LWB mdr values TO 2 UPB mdr values
+ DO
+ print( ( separator + whole( mdr values[ mdr pos, val pos ], 0 ) ) );
+ separator := ", "
+ OD;
+ print( ( "]", newline ) )
+ OD
+
+END; # tabulate mdr #
+
+main:(
+ print md root( 123321 );
+ print md root( 7739 );
+ print md root( 893 );
+ print md root( 899998 );
+ tabulate mdr( 5 )
+)
diff --git a/Task/Digital-root-Multiplicative-digital-root/AWK/digital-root-multiplicative-digital-root.awk b/Task/Digital-root-Multiplicative-digital-root/AWK/digital-root-multiplicative-digital-root.awk
new file mode 100644
index 0000000000..75a963c21b
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/AWK/digital-root-multiplicative-digital-root.awk
@@ -0,0 +1,76 @@
+# Multiplicative Digital Roots
+
+BEGIN {
+
+ printMdrAndMp( 123321 );
+ printMdrAndMp( 7739 );
+ printMdrAndMp( 893 );
+ printMdrAndMp( 899998 );
+
+ tabulateMdr( 5 );
+
+} # BEGIN
+
+function printMdrAndMp( n )
+{
+ calculateMdrAndMp( n );
+ printf( "%6d: MDR: %d, MP: %2d\n", n, MDR, MP );
+} # printMdrAndMp
+
+function calculateMdrAndMp( n, mdrStr, digit )
+{
+
+ MP = 0; # global Multiplicative Persistence
+ MDR = ( n < 0 ? -n : n ); # global Multiplicative Digital Root
+
+ while( MDR > 9 )
+ {
+ MP ++;
+ mdrStr = "" MDR;
+ MDR = 1;
+ for( digit = 1; digit <= length( mdrStr ); digit ++ )
+ {
+ MDR *= ( substr( mdrStr, digit, 1 ) * 1 );
+ } # for digit
+ } # while MDR > 9
+
+} # calculateMdrAndMp
+
+function tabulateMdr( n, rqdValues, valueCount, value, pos )
+{
+
+ # generate a table of the first n numbers with each possible MDR
+
+ rqdValues = n * 10;
+ valueCount = 0;
+
+ for( value = 0; valueCount < rqdValues; value ++ )
+ {
+ calculateMdrAndMp( value );
+ if( mdrCount[ MDR ] < n )
+ {
+ # still need another value with this MDR
+ valueCount ++;
+ mdrCount[ MDR ] ++;
+ mdrValues[ MDR ":" mdrCount[ MDR ] ] = value;
+ } # if mdrCount[ MDR ] < n
+ } # for value
+
+ # print the table
+
+ printf( "MDR: [n0..n%d]\n", n - 1 );
+ printf( "=== ========\n" );
+
+ for( pos = 0; pos < 10; pos ++ )
+ {
+ printf( "%3d:", pos );
+ separator = " [";
+ for( value = 1; value <= n; value ++ )
+ {
+ printf( "%s%d", separator, mdrValues[ pos ":" value ] );
+ separator = ", "
+ } # for value
+ printf( "]\n" );
+ } # for pos
+
+} # tabulateMdr
diff --git a/Task/Digital-root-Multiplicative-digital-root/Ada/digital-root-multiplicative-digital-root.ada b/Task/Digital-root-Multiplicative-digital-root/Ada/digital-root-multiplicative-digital-root.ada
new file mode 100644
index 0000000000..24b7e8d612
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/Ada/digital-root-multiplicative-digital-root.ada
@@ -0,0 +1,47 @@
+with Ada.Text_IO, Generic_Root; use Generic_Root;
+
+procedure Multiplicative_Root is
+
+ procedure Compute is new Compute_Root("*"); -- "*" for multiplicative roots
+
+ package TIO renames Ada.Text_IO;
+ package NIO is new TIO.Integer_IO(Number);
+
+ procedure Print_Numbers(Target_Root: Number; How_Many: Natural) is
+ Current: Number := 0;
+ Root, Pers: Number;
+ begin
+ for I in 1 .. How_Many loop
+ loop
+ Compute(Current, Root, Pers);
+ exit when Root = Target_Root;
+ Current := Current + 1;
+ end loop;
+ NIO.Put(Current, Width => 6);
+ if I < How_Many then
+ TIO.Put(",");
+ end if;
+ Current := Current + 1;
+ end loop;
+ end Print_Numbers;
+
+ Inputs: Number_Array := (123321, 7739, 893, 899998);
+ Root, Pers: Number;
+begin
+ TIO.Put_Line(" Number MDR MP");
+ for I in Inputs'Range loop
+ Compute(Inputs(I), Root, Pers);
+ NIO.Put(Inputs(I), Width => 8);
+ NIO.Put(Root, Width => 6);
+ NIO.Put(Pers, Width => 6);
+ TIO.New_Line;
+ end loop;
+ TIO.New_Line;
+
+ TIO.Put_Line(" MDR first_five_numbers_with_that_MDR");
+ for I in 0 .. 9 loop
+ TIO.Put(" " & Integer'Image(I) & " ");
+ Print_Numbers(Target_Root => Number(I), How_Many => 5);
+ TIO.New_Line;
+ end loop;
+end Multiplicative_Root;
diff --git a/Task/Digital-root-Multiplicative-digital-root/Bracmat/digital-root-multiplicative-digital-root.bracmat b/Task/Digital-root-Multiplicative-digital-root/Bracmat/digital-root-multiplicative-digital-root.bracmat
new file mode 100644
index 0000000000..b4df78b13f
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/Bracmat/digital-root-multiplicative-digital-root.bracmat
@@ -0,0 +1,46 @@
+(
+& ( MP/MDR
+ = prod L n
+ . ( prod
+ = d
+ . @(!arg:%@?d ?arg)&!d*prod$!arg
+ | 1
+ )
+ & !arg:?L
+ & whl
+ ' ( @(!arg:? [>1)
+ & (prod$!arg:?arg) !L:?L
+ )
+ & !L:? [?n
+ & (!n+-1.!arg)
+ )
+& ( test
+ = n
+ . !arg:%?n ?arg
+ & out$(!n "\t:" MP/MDR$!n)
+ & test$!arg
+ |
+ )
+& test$(123321 7739 893 899998)
+& 0:?i
+& 1:?collecting:?done
+& whl
+ ' ( !i+1:?i
+ & MP/MDR$!i:(?MP.?MDR)
+ & ( !done:?*(!MDR.)^((?.)+?)*?
+ | (!MDR.)^(!i.)*!collecting:?collecting
+ & ( !collecting:?A*(!MDR.)^(?is+[5)*?Z
+ & !A*!Z:?collecting
+ & (!MDR.)^!is*!done:?done
+ |
+ )
+ )
+ & !collecting:~1
+ )
+& whl
+ ' ( !done:(?MDR.)^?is*?done
+ & put$(!MDR ":")
+ & whl'(!is:(?i.)+?is&put$(!i " "))
+ & put$\n
+ )
+);
diff --git a/Task/Digital-root-Multiplicative-digital-root/C++/digital-root-multiplicative-digital-root.cpp b/Task/Digital-root-Multiplicative-digital-root/C++/digital-root-multiplicative-digital-root.cpp
new file mode 100644
index 0000000000..3859b2d921
--- /dev/null
+++ b/Task/Digital-root-Multiplicative-digital-root/C++/digital-root-multiplicative-digital-root.cpp
@@ -0,0 +1,59 @@
+#include
+#include