pasberth / Atelier

Ruby×Haskell

Atelier

How to try Atelier?

$ RUBYLIB=$PWD/lib pry

Examples

require 'atelier'

Atelier::Data::Maybe.product(1, 2, 3) { |x, y, z| p [x, y, z] }
# [1, 2, 3]
Atelier::Data::Maybe.product(1, nil, 3) { |x, y, z| p [x, y, z] }
# nil

Atelier::Data::List.product([1,2,3], [4,5,6]) { |x, y| p [x, y] }
# [1, 4]
# [1, 5]
# [1, 6]
# [2, 4]
# [2, 5]
# [2, 6]
# [3, 4]
# [3, 5]
# [3, 6]

include Atelier::Data::Maybe[:product => :maybe].only(:maybe)
include Atelier::Data::List[:product => :foreach].only(:foreach)

maybe 1, 2, 3 do |x, y, z|
  p [x, y, z]
end

foreach [1, 2, 3], [4, 5, 6] do |x, y|
  p [x, y]
end

Importable

require 'atelier'

module Functions; extend Atelier::Environment::Importable

  def max(a, b)
    [a, b].max
  end

  def min(a, b)
    [a, b].min
  end
end

module A; extend Functions.only(:max)
  p max(1, 2) # => 2
  p min(1, 2) # NoMethodError
end

module B; extend Functions.hiding(:max)
  p min(1, 2) # => 1
  p max(1, 2) # NoMethodError
end

module C; extend Functions[:max => :f_max]
  p f_max(1, 2) # => 2
  p max(1, 2) # NoMethodError
end

require 'atelier'
require 'json'

p JSON.parse '{"x":42}', +:symbolize_names
# => {:x=>42}