langs a-z

Task/Function-composition/UNIX-Shell/function-composition-1.sh

@@ -0,0 +1,9 @@
+compose() {
+	eval "$1() { $3 | $2; }"
+}
+
+downvowel() { tr AEIOU aeiou; }
+upcase() { tr a-z A-Z; }
+compose c downvowel upcase
+echo 'Cozy lummox gives smart squid who asks for job pen.' | c
+# => CoZY LuMMoX GiVeS SMaRT SQuiD WHo aSKS FoR JoB PeN.

Task/Function-composition/UNIX-Shell/function-composition-2.sh

@@ -0,0 +1,9 @@
+fn compose f g {
+	result @ {$g | $f}
+}
+
+fn downvowel {tr AEIOU aeiou}
+fn upcase {tr a-z A-Z}
+fn-c = <={compose $fn-downvowel $fn-upcase}
+echo 'Cozy lummox gives smart squid who asks for job pen.' | c
+# => CoZY LuMMoX GiVeS SMaRT SQuiD WHo aSKS FoR JoB PeN.

Task/Function-composition/UNIX-Shell/function-composition-3.sh

@@ -0,0 +1,9 @@
+fn compose f g {
+	result @ x {result <={$f <={$g $x}}}
+}
+
+fn downvowel x {result `` '' {tr AEIOU aeiou <<< $x}}
+fn upcase x {result `` '' {tr a-z A-Z <<< $x}}
+fn-c = <={compose $fn-downvowel $fn-upcase}
+echo <={c 'Cozy lummox gives smart squid who asks for job pen.'}
+# => CoZY LuMMoX GiVeS SMaRT SQuiD WHo aSKS FoR JoB PeN.