#!/usr/bin/ruby

func increment(n,a) { n+a }

assert_eq(
    [100, 10000, 1000000] |X> (:sqrt, [increment, 2]),
    [10, 102, 100, 10002, 1000, 1000002]
)

assert_eq([1,2,3] |X> { _*2 } , [2, 4, 6])
assert_eq([1,2,3] |X> [:mul, 2], [2, 4, 6])

assert_eq([3,4] |X> (:ipow2, :ipow10), [8, 1000, 16, 10000])

say "** Test passed!"