RosettaCodeData/Task/Map-range/Factor/map-range-3.factor

2 lines
103 B
Factor

10 iota [| x | 0 10 -1 0 x map-range ] map . ! { -1 -9/10 -4/5 -7/10 -3/5 -1/2 -2/5 -3/10 -1/5 -1/10 }