Bin given limits: Difference between revisions
added RPL
(Added Easylang) |
(added RPL) |
||
Line 2,399:
>= 634 and < 720 := 16
>= 720 := 59
</pre>
=={{header|RPL}}==
{{works with|HP|49}}
« → limits data
« { } limits SIZE 1 + + 0 CON
1 data SIZE '''FOR''' j
limits data j GET OVER SIZE NDUPN →LIST - SIGN
'''CASE'''
DUP 0 POS '''THEN''' LASTARG 1 + NIP '''END'''
1 POS '''THEN''' LASTARG '''END'''
DUP SIZE
'''END'''
DUP2 GET 1 + PUT
'''NEXT'''
» » '<span style="color:blue">VBINS</span>' STO
« → limits bins
« 1 bins SIZE 1 GET '''FOR''' j
'''IFERR''' limits j 1 - GET '''THEN''' DROP2 "" '''ELSE''' "≤" + '''END'''
'''IFERR''' limits j GET '''THEN''' DROP2 "x" '''ELSE''' "x<" SWAP + '''END'''
+ ": " b j GET +
'''NEXT'''
» » '<span style="color:blue">SHOWBINS</span>' STO
{23, 37, 43, 53, 67, 83} DUP
{95,21,94,12,99,4,70,75,83,93,52,80,57,5,53,86,65,17,92,83,71,61,54,58,47,16,8,9,32,84,7,87,46,19,30,37,96,6,98,40,79,97,45,64,60,29,49,36,43,55} <span style="color:blue">VBINS SHOWBINS</span>
CLEAR {14,18,249,312,389,392,513,591,634,720} DUP
{445,814,519,697,700,130,255,889,481,122,932,77,323,525,570,219,367,523,442,933,416,589,930,373,202,253,775,47,731,685,293,126,133,450,545,100,741,583,763,306,655,267,248,477,549,238,62,678,98,534,622,907,406,714,184,391,913,42,560,247,346,860,56,138,546,38,985,948,58,213,799,319,390,634,458,945,733,507,916,123,345,110,720,917,313,845,426,9,457,628,410,723,354,895,881,953,677,137,397,97,854,740,83,216,421,94,517,479,292,963,376,981,480,39,257,272,157,5,316,395,787,942,456,242,759,898,576,67,298,425,894,435,831,241,989,614,987,770,384,692,698,765,331,487,251,600,879,342,982,527,736,795,585,40,54,901,408,359,577,237,605,847,353,968,832,205,838,427,876,959,686,646,835,127,621,892,443,198,988,791,466,23,707,467,33,670,921,180,991,396,160,436,717,918,8,374,101,684,727,749} <span style="color:blue">VBINS SHOWBINS</span>
{{out}}
<pre>
7: "x<23: 11"
6: "23≤x<37: 4"
5: "37≤x<43: 2"
4: "43≤x<53: 6"
3: "53≤x<67: 9"
2: "67≤x<83: 5"
1: "83≤x: 13"
11: "x<14: 3"
10: "14≤x<18: 0"
9: "18≤x<249: 44"
8: "249≤x<312: 10"
7: "312≤x<389: 16"
6: "389≤x<392: 2"
5: "392≤x<513: 28"
4: "513≤x<591: 16"
3: "591≤x<634: 6"
2: "634≤x<720: 16"
1: "720≤x: 59"
</pre>
=={{header|Ruby}}==
Line 2,453 ⟶ 2,503:
720... 59
</pre>
=={{header|Rust}}==
{{works with|rustc|1.49.0}}
| |||