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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 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

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

@ -0,0 +1 @@
maprange=:{{ ({.n) + (n%&(-/)m) * -&({.m) }}

2
Task/Map-range/J/map-range-4.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-5.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-6.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