Merge pull request #2 from ssledz/feature-#1

#1 : Shorthand notations for lambdas

src/fun.sh

@@ -66,10 +66,22 @@ lambda() {
 }
 
 map() {
-  local x
+  if [[ $1 != "λ" ]] && [[ $1 != "lambda" ]]; then
-  while read x; do
+
-    echo "$x" | "$@"
+    local has_dollar=$(list $@ | grep '\$' | wc -l)
-  done
+
+    if [[ $has_dollar -ne 0 ]]; then
+      args=$(echo $@ | sed -e 's/\$/\$a/g')
+      map λ a . $args
+    else
+      map λ a . "$@"' $a'
+    fi
+  else
+    local x
+    while read x; do
+      echo "$x" | "$@"
+    done
+  fi
 }
 
 foldl() {

test/map_test.sh

@@ -30,4 +30,9 @@ testFlatMap() {
     assertEquals "d e h l l l o o r w" "$(list hello world | map lambda x . 'command fold -w 1 <<< $x' | sort | unlist)"
 }
 
+testMapNoLambdaSyntax() {
+  assertEquals "1 2 3" "$(list 1 2 3 | map echo | unlist)"
+  assertEquals "1 is a number 2 is a number 3 is a number" "$(list 1 2 3 | map 'echo $ is a number' | unlist)"
+}
+
 . ./shunit2-init.sh