rambda 9.4.2 → 10.0.0-beta.1

package/src/update.js

@@ -1,15 +1,12 @@
 import { cloneList } from './_internals/cloneList.js'
-import { curry } from './curry.js'
 
-export function updateFn(
-  index, newValue, list
-){
-  const clone = cloneList(list)
-  if (index === -1) return clone.fill(newValue, index)
+export function update(index, newValue) {
+  return list => {
+    const clone = cloneList(list)
+    if (index === -1) {
+      return clone.fill(newValue, index)
+    }
 
-  return clone.fill(
-    newValue, index, index + 1
-  )
+    return clone.fill(newValue, index, index + 1)
+  }
 }
-
-export const update = curry(updateFn)

package/src/when.js

@@ -1,11 +1,9 @@
-import { curry } from './curry.js'
+export function when(predicate, whenTrueFn) {
+  return input => {
+    if (!predicate(input)) {
+      return input
+    }
 
-function whenFn(
-  predicate, whenTrueFn, input
-){
-  if (!predicate(input)) return input
-
-  return whenTrueFn(input)
+    return whenTrueFn(input)
+  }
 }
-
-export const when = curry(whenFn)

package/src/zip.js

@@ -1,12 +1,12 @@
-export function zip(left, right){
-  if (arguments.length === 1) return _right => zip(left, _right)
+export function zip(left) {
+  return right => {
+    const result = []
+    const length = Math.min(left.length, right.length)
 
-  const result = []
-  const length = Math.min(left.length, right.length)
+    for (let i = 0; i < length; i++) {
+      result[i] = [left[i], right[i]]
+    }
 
-  for (let i = 0; i < length; i++){
-    result[ i ] = [ left[ i ], right[ i ] ]
+    return result
   }
-
-  return result
 }

package/src/zipWith.js

@@ -1,10 +1,8 @@
-import { curry } from './curry.js'
 import { take } from './take.js'
 
-function zipWithFn(
-  fn, x, y
-){
-  return take(x.length > y.length ? y.length : x.length, x).map((xInstance, i) => fn(xInstance, y[ i ]))
+export function zipWith(fn, x) {
+  return y =>
+    take(x.length > y.length ? y.length : x.length)(x).map((xInstance, i) =>
+      fn(xInstance, y[i]),
+    )
 }
-
-export const zipWith = curry(zipWithFn)

package/src/F.js

@@ -1,3 +0,0 @@
-export function F(){
-  return false
-}

package/src/T.js

@@ -1,3 +0,0 @@
-export function T(){
-  return true
-}

package/src/_internals/_arity.js

@@ -1,64 +0,0 @@
-export function _arity(n, fn){
-  switch (n){
-  case 0:
-    return function (){
-      return fn.apply(this, arguments)
-    }
-  case 1:
-    return function (_1){
-      return fn.apply(this, arguments)
-    }
-  case 2:
-    return function (_1, _2){
-      return fn.apply(this, arguments)
-    }
-  case 3:
-    return function (
-      _1, _2, _3
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 4:
-    return function (
-      _1, _2, _3, _4
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 5:
-    return function (
-      _1, _2, _3, _4, _5
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 6:
-    return function (
-      _1, _2, _3, _4, _5, _6
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 7:
-    return function (
-      _1, _2, _3, _4, _5, _6, _7
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 8:
-    return function (
-      _1, _2, _3, _4, _5, _6, _7, _8
-    ){
-      return fn.apply(this, arguments)
-    }
-  case 9:
-    return function (
-      _1, _2, _3, _4, _5, _6, _7, _8, _9
-    ){
-      return fn.apply(this, arguments)
-    }
-  default:
-    return function (
-      _1, _2, _3, _4, _5, _6, _7, _8, _9, _10
-    ){
-      return fn.apply(this, arguments)
-    }
-  }
-}

package/src/_internals/compare.js

@@ -1,3 +0,0 @@
-export function compare(a, b){
-  return String(a) === String(b)
-}

package/src/_internals/constants.js

@@ -1 +0,0 @@
-export const INCORRECT_ITERABLE_INPUT = 'Incorrect iterable input'

package/src/_internals/createPathInput.js

@@ -1,7 +0,0 @@
-import { isInteger } from './isInteger.js'
-
-export function createPathInput(path){
-  return typeof path === 'string' ?
-    path.split('.').map(x => isInteger(Number(x)) ? Number(x) : x) :
-    path
-}

package/src/_internals/isFalsy.js

@@ -1,13 +0,0 @@
-import { type } from '../type.js'
-import { isArray } from './isArray.js'
-
-export function isFalsy(x){
-  if (isArray(x)){
-    return x.length === 0
-  }
-  if (type(x) === 'Object'){
-    return Object.keys(x).length === 0
-  }
-
-  return !x
-}

package/src/_internals/isInteger.js

@@ -1,10 +0,0 @@
-function _isInteger(n){
-  return n << 0 === n
-}
-
-export const isInteger = Number.isInteger || _isInteger
-
-/**
- * Check if `index` is integer even if it is a string.
- */
-export const isIndexInteger = index => Number.isInteger(Number(index))

package/src/_internals/isIterable.js

@@ -1,5 +0,0 @@
-import { type } from '../type.js'
-
-export function isIterable(input){
-  return Array.isArray(input) || type(input) === 'Object'
-}

package/src/_internals/isObject.js

@@ -1,5 +0,0 @@
-import { type } from '../type.js'
-
-export function isObject(input){
-  return type(input) === 'Object'
-}

package/src/_internals/isTruthy.js

@@ -1,13 +0,0 @@
-import { type } from '../type.js'
-import { isArray } from './isArray.js'
-
-export function isTruthy(x){
-  if (isArray(x)){
-    return x.length > 0
-  }
-  if (type(x) === 'Object'){
-    return Object.keys(x).length > 0
-  }
-
-  return Boolean(x)
-}

package/src/_internals/objectIs.js

@@ -1,9 +0,0 @@
-function _objectIs(a, b){
-  if (a === b){
-    return a !== 0 || 1 / a === 1 / b
-  }
-
-  return a !== a && b !== b
-}
-
-export const objectIs = Object.is || _objectIs

package/src/_internals/utils.js

@@ -1,21 +0,0 @@
-export function _concat(set1, set2){
-  set1 = set1 || []
-  set2 = set2 || []
-  let idx
-  const len1 = set1.length
-  const len2 = set2.length
-  const result = []
-
-  idx = 0
-  while (idx < len1){
-    result[ result.length ] = set1[ idx ]
-    idx += 1
-  }
-  idx = 0
-  while (idx < len2){
-    result[ result.length ] = set2[ idx ]
-    idx += 1
-  }
-
-  return result
-}

package/src/add.js

@@ -1,5 +0,0 @@
-export function add(a, b){
-  if (arguments.length === 1) return _b => add(a, _b)
-
-  return Number(a) + Number(b)
-}

package/src/addIndex.js

@@ -1,23 +0,0 @@
-import { _concat } from './_internals/utils.js'
-import { curryN } from './curryN.js'
-
-export function addIndex(
-  originalFunction,
-  initialIndexFn = () => 0,
-  loopIndexChange = x => x + 1
-){
-  return curryN(originalFunction.length, function (){
-    const origFn = arguments[ 0 ]
-    const list = arguments[ arguments.length - 1 ]
-    let idx = initialIndexFn(list.length)
-    const args = Array.prototype.slice.call(arguments, 0)
-    args[ 0 ] = function (){
-      const result = origFn.apply(this, _concat(arguments, [ idx, list ]))
-      idx = loopIndexChange(idx)
-
-      return result
-    }
-
-    return originalFunction.apply(this, args)
-  })
-}

package/src/addIndexRight.js

@@ -1,9 +0,0 @@
-import { addIndex } from './addIndex.js'
-
-export function addIndexRight(originalFunction){
-  return addIndex(
-    originalFunction,
-    listLength => listLength - 1,
-    x => x - 1
-  )
-}

package/src/adjust.js

@@ -1,16 +0,0 @@
-import { cloneList } from './_internals/cloneList.js'
-import { curry } from './curry.js'
-
-function adjustFn(
-  index, replaceFn, list
-){
-  const actualIndex = index < 0 ? list.length + index : index
-  if (index >= list.length || actualIndex < 0) return list
-
-  const clone = cloneList(list)
-  clone[ actualIndex ] = replaceFn(clone[ actualIndex ])
-
-  return clone
-}
-
-export const adjust = curry(adjustFn)

package/src/always.js

@@ -1,3 +0,0 @@
-export function always(x){
-  return _ => x
-}

package/src/and.js

@@ -1,5 +0,0 @@
-export function and(a, b){
-  if (arguments.length === 1) return _b => and(a, _b)
-
-  return a && b
-}

package/src/ap.js

@@ -1,7 +0,0 @@
-export function ap(functions, input){
-  if (arguments.length === 1){
-    return _inputs => ap(functions, _inputs)
-  }
-
-  return functions.reduce((acc, fn) => [ ...acc, ...input.map(fn) ], [])
-}

package/src/aperture.js

@@ -1,15 +0,0 @@
-export function aperture(step, list){
-  if (arguments.length === 1){
-    return _list => aperture(step, _list)
-  }
-  if (step > list.length) return []
-  let idx = 0
-  const limit = list.length - (step - 1)
-  const acc = new Array(limit)
-  while (idx < limit){
-    acc[ idx ] = list.slice(idx, idx + step)
-    idx += 1
-  }
-
-  return acc
-}

package/src/apply.js

@@ -1,7 +0,0 @@
-export function apply(fn, args){
-  if (arguments.length === 1){
-    return _args => apply(fn, _args)
-  }
-
-  return fn.apply(this, args)
-}

package/src/applySpec.js

@@ -1,132 +0,0 @@
-import { isArray } from './_internals/isArray.js'
-
-// recursively traverse the given spec object to find the highest arity function
-export function __findHighestArity(spec, max = 0){
-  for (const key in spec){
-    if (spec.hasOwnProperty(key) === false || key === 'constructor') continue
-
-    if (typeof spec[ key ] === 'object'){
-      max = Math.max(max, __findHighestArity(spec[ key ]))
-    }
-
-    if (typeof spec[ key ] === 'function'){
-      max = Math.max(max, spec[ key ].length)
-    }
-  }
-
-  return max
-}
-
-function __filterUndefined(){
-  const defined = []
-  let i = 0
-  const l = arguments.length
-  while (i < l){
-    if (typeof arguments[ i ] === 'undefined') break
-    defined[ i ] = arguments[ i ]
-    i++
-  }
-
-  return defined
-}
-
-function __applySpecWithArity(
-  spec, arity, cache
-){
-  const remaining = arity - cache.length
-
-  if (remaining === 1)
-    return x =>
-      __applySpecWithArity(
-        spec, arity, __filterUndefined(...cache, x)
-      )
-  if (remaining === 2)
-    return (x, y) =>
-      __applySpecWithArity(
-        spec, arity, __filterUndefined(
-          ...cache, x, y
-        )
-      )
-  if (remaining === 3)
-    return (
-      x, y, z
-    ) =>
-      __applySpecWithArity(
-        spec, arity, __filterUndefined(
-          ...cache, x, y, z
-        )
-      )
-  if (remaining === 4)
-    return (
-      x, y, z, a
-    ) =>
-      __applySpecWithArity(
-        spec,
-        arity,
-        __filterUndefined(
-          ...cache, x, y, z, a
-        )
-      )
-  if (remaining > 4)
-    return (...args) =>
-      __applySpecWithArity(
-        spec, arity, __filterUndefined(...cache, ...args)
-      )
-
-  // handle spec as Array
-  if (isArray(spec)){
-    const ret = []
-    let i = 0
-    const l = spec.length
-    for (; i < l; i++){
-      // handle recursive spec inside array
-      if (typeof spec[ i ] === 'object' || isArray(spec[ i ])){
-        ret[ i ] = __applySpecWithArity(
-          spec[ i ], arity, cache
-        )
-      }
-      // apply spec to the key
-      if (typeof spec[ i ] === 'function'){
-        ret[ i ] = spec[ i ](...cache)
-      }
-    }
-
-    return ret
-  }
-
-  // handle spec as Object
-  const ret = {}
-  // apply callbacks to each property in the spec object
-  for (const key in spec){
-    if (spec.hasOwnProperty(key) === false || key === 'constructor') continue
-
-    // apply the spec recursively
-    if (typeof spec[ key ] === 'object'){
-      ret[ key ] = __applySpecWithArity(
-        spec[ key ], arity, cache
-      )
-      continue
-    }
-
-    // apply spec to the key
-    if (typeof spec[ key ] === 'function'){
-      ret[ key ] = spec[ key ](...cache)
-    }
-  }
-
-  return ret
-}
-
-export function applySpec(spec, ...args){
-  // get the highest arity spec function, cache the result and pass to __applySpecWithArity
-  const arity = __findHighestArity(spec)
-
-  if (arity === 0){
-    return () => ({})
-  }
-  const toReturn = __applySpecWithArity(
-    spec, arity, args
-  )
-
-  return toReturn
-}

package/src/applyTo.js

@@ -1,7 +0,0 @@
-export function applyTo(input, fn){
-  if (arguments.length === 1){
-    return _fn => applyTo(input, _fn)
-  }
-
-  return fn(input)
-}

package/src/assoc.js

@@ -1,11 +0,0 @@
-import { curry } from './curry.js'
-
-export function assocFn(
-  prop, newValue, obj
-){
-  return Object.assign(
-    {}, obj, { [ prop ] : newValue }
-  )
-}
-
-export const assoc = curry(assocFn)

package/src/assocPath.js

@@ -1,46 +0,0 @@
-import { cloneList } from './_internals/cloneList.js'
-import { createPath } from './_internals/createPath.js'
-import { isArray } from './_internals/isArray.js'
-import { isIndexInteger } from './_internals/isInteger.js'
-import { assocFn } from './assoc.js'
-import { curry } from './curry.js'
-
-export function assocPathFn(
-  path, newValue, input
-){
-  const pathArrValue = createPath(path)
-  if (pathArrValue.length === 0) return newValue
-
-  const index = pathArrValue[ 0 ]
-  if (pathArrValue.length > 1){
-    const condition =
-      typeof input !== 'object' ||
-      input === null ||
-      !input.hasOwnProperty(index)
-
-    const nextInput = condition ?
-      isIndexInteger(pathArrValue[ 1 ]) ?
-        [] :
-        {} :
-      input[ index ]
-
-    newValue = assocPathFn(
-      Array.prototype.slice.call(pathArrValue, 1),
-      newValue,
-      nextInput
-    )
-  }
-
-  if (isIndexInteger(index) && isArray(input)){
-    const arr = cloneList(input)
-    arr[ index ] = newValue
-
-    return arr
-  }
-
-  return assocFn(
-    index, newValue, input
-  )
-}
-
-export const assocPath = curry(assocPathFn)

package/src/binary.js

@@ -1,5 +0,0 @@
-export function binary(fn){
-  if (fn.length <= 2) return fn
-
-  return (a, b) => fn(a, b)
-}

package/src/bind.js

@@ -1,9 +0,0 @@
-import { curryN } from './curryN.js'
-
-export function bind(fn, thisObj){
-  if (arguments.length === 1){
-    return _thisObj => bind(fn, _thisObj)
-  }
-
-  return curryN(fn.length, (...args) => fn.apply(thisObj, args))
-}

package/src/both.js

@@ -1,5 +0,0 @@
-export function both(f, g){
-  if (arguments.length === 1) return _g => both(f, _g)
-
-  return (...input) => f(...input) && g(...input)
-}

package/src/call.js

@@ -1 +0,0 @@
-export const call = (fn, ...inputs) => fn(...inputs)

package/src/chain.js

@@ -1,7 +0,0 @@
-export function chain(fn, list){
-  if (arguments.length === 1){
-    return _list => chain(fn, _list)
-  }
-
-  return [].concat(...list.map(fn))
-}

package/src/clamp.js

@@ -1,15 +0,0 @@
-import { curry } from './curry.js'
-
-function clampFn(
-  min, max, input
-){
-  if (min > max){
-    throw new Error('min must not be greater than max in clamp(min, max, value)')
-  }
-  if (input >= min && input <= max) return input
-
-  if (input > max) return max
-  if (input < min) return min
-}
-
-export const clamp = curry(clampFn)

package/src/clone.js

@@ -1,18 +0,0 @@
-import { isArray } from './_internals/isArray.js'
-
-export function clone(input){
-  const out = isArray(input) ? Array(input.length) : {}
-  if (input && input.getTime) return new Date(input.getTime())
-
-  for (const key in input){
-    const v = input[ key ]
-    out[ key ] =
-      typeof v === 'object' && v !== null ?
-        v.getTime ?
-          new Date(v.getTime()) :
-          clone(v) :
-        v
-  }
-
-  return out
-}

package/src/collectBy.js

@@ -1,27 +0,0 @@
-import { reduce } from './reduce.js'
-
-export function collectBy(fn, list){
-  if (arguments.length === 1){
-    return _list => collectBy(fn, _list)
-  }
-
-  const group = reduce(
-    (o, x) => {
-      const tag = fn(x)
-      if (o[ tag ] === undefined){
-        o[ tag ] = []
-      }
-      o[ tag ].push(x)
-
-      return o
-    },
-    {},
-    list
-  )
-  const newList = []
-  for (const tag in group){
-    newList.push(group[ tag ])
-  }
-
-  return newList
-}

package/src/comparator.js

@@ -1,5 +0,0 @@
-export function comparator(fn){
-  return function (a, b){
-    return fn(a, b) ? -1 : fn(b, a) ? 1 : 0
-  }
-}