aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Map-range/J/map-range-1.j Normal file
View file

@ -0,0 +1,6 @@
maprange=:2 :0
'a1 a2'=.m
'b1 b2'=.n
b1+((y-a1)*b2-b1)%a2-a1
)
NB. this version defers all calculations to runtime, but mirrors exactly the task formulation

6
Task/Map-range/J/map-range-2.j Normal file
View file

@ -0,0 +1,6 @@
maprange=:2 :0
'a1 a2'=.m
'b1 b2'=.n
b1 + ((b2-b1)%a2-a1) * -&a1
)
NB. this version precomputes the scaling ratio

2
Task/Map-range/J/map-range-3.j Normal file
View file

@ -0,0 +1,2 @@
2 4 maprange 5 11 (2.718282 3 3.141592)
7.15485 8 8.42478

3
Task/Map-range/J/map-range-4.j Normal file
View file

@ -0,0 +1,3 @@
adjust=:2 4 maprange 5 11 NB. save the derived function as a named entity
adjust 2.718282 3 3.141592
7.15485 8 8.42478

2
Task/Map-range/J/map-range-5.j Normal file
View file

@ -0,0 +1,2 @@
0 10 maprange _1 0 i.11
_1 _0.9 _0.8 _0.7 _0.6 _0.5 _0.4 _0.3 _0.2 _0.1 0