Rosetta Code

First class environments: Difference between revisions

Page Discussion

First class environments (view source)

Revision as of 08:06, 3 April 2012

22,049 bytes removed ,  12 years ago
m
→‎{{header|REXX}}: Tidy up / shorten by removing unnecessary output
(→‎{{header|REXX}}: added the REXX language. -- ~~~~)
m (→‎{{header|REXX}}: Tidy up / shorten by removing unnecessary output)
Line 431:
 
=={{header|REXX}}==
<lang rexx>/*REXX program illustrates first-class environments (using hailstone #s)*/
<lang rexx>
/*REXX program illustrates first-class environments (using hailstone #s)*/
 
parse arg #envs .; env_.=; if #envs=='' then #envs=12
Line 469 ⟶ 468:
/*─────────────────────────────────────HAILSTONE (Collatz) subroutine───*/
hailstone: procedure expose env_.; arg n;_=word(env_.n,words(env_.n))
if _==1 then return ''; env_.0=0; if _//2==0 then return _%2; return _*3+1</lang>
{{out}}
</lang>
<pre>
Output when using the default input (<tt> 12 </tt>):
<pre style="height:65ex;overflow:scroll">
1 2 3 4 5 6 7 8 9 10 11 12
--- --- --- --- --- --- --- --- --- --- --- ---
Line 497 ⟶ 495:
=== === === === === === === === === === === ===
0 1 7 2 5 8 16 3 19 6 14 9
</pre>
Output when the input is <tt> 50 </tt>:
<pre style="height:20ex;overflow:scroll">
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
--- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
1 10 2 16 3 22 4 28 5 34 6 40 7 46 8 52 9 58 10 64 11 70 12 76 13 82 14 88 15 94 16 100 17 106 18 112 19 118 20 124 21 130 22 136 23 142 24 148 25
5 1 8 10 11 2 14 16 17 3 20 22 23 4 26 28 29 5 32 34 35 6 38 40 41 7 44 46 47 8 50 52 53 9 56 58 59 10 62 64 65 11 68 70 71 12 74 76
16 4 5 34 1 7 8 52 10 10 11 70 2 13 14 88 16 16 17 106 3 19 20 124 22 22 23 142 4 25 26 160 28 28 29 178 5 31 32 196 34 34 35 214 6 37 38
8 2 16 17 22 4 26 5 5 34 35 1 40 7 44 8 8 52 53 10 58 10 62 11 11 70 71 2 76 13 80 14 14 88 89 16 94 16 98 17 17 106 107 3 112 19
4 1 8 52 11 2 13 16 16 17 106 20 22 22 4 4 26 160 5 29 5 31 34 34 35 214 1 38 40 40 7 7 44 268 8 47 8 49 52 52 53 322 10 56 58
2 4 26 34 1 40 8 8 52 53 10 11 11 2 2 13 80 16 88 16 94 17 17 106 107 19 20 20 22 22 22 134 4 142 4 148 26 26 160 161 5 28 29
1 2 13 17 20 4 4 26 160 5 34 34 1 1 40 40 8 44 8 47 52 52 53 322 58 10 10 11 11 11 67 2 71 2 74 13 13 80 484 16 14 88
1 40 52 10 2 2 13 80 16 17 17 20 20 4 22 4 142 26 26 160 161 29 5 5 34 34 34 202 1 214 1 37 40 40 40 242 8 7 44
20 26 5 1 1 40 40 8 52 52 10 10 2 11 2 71 13 13 80 484 88 16 16 17 17 17 101 107 112 20 20 20 121 4 22 22
10 13 16 20 20 4 26 26 5 5 1 34 1 214 40 40 40 242 44 8 8 52 52 52 304 322 56 10 10 10 364 2 11 11
5 40 8 10 10 2 13 13 16 16 17 107 20 20 20 121 22 4 4 26 26 26 152 161 28 5 5 5 182 1 34 34
16 20 4 5 5 1 40 40 8 8 52 322 10 10 10 364 11 2 2 13 13 13 76 484 14 16 16 16 91 17 17
8 10 2 16 16 20 20 4 4 26 161 5 5 5 182 34 1 1 40 40 40 38 242 7 8 8 8 274 52 52
4 5 1 8 8 10 10 2 2 13 484 16 16 16 91 17 20 20 20 19 121 22 4 4 4 137 26 26
2 16 4 4 5 5 1 1 40 242 8 8 8 274 52 10 10 10 58 364 11 2 2 2 412 13 13
1 8 2 2 16 16 20 121 4 4 4 137 26 5 5 5 29 182 34 1 1 1 206 40 40
4 1 1 8 8 10 364 2 2 2 412 13 16 16 16 88 91 17 103 20 20
2 4 4 5 182 1 1 1 206 40 8 8 8 44 274 52 310 10 10
1 2 2 16 91 103 20 4 4 4 22 137 26 155 5 5
1 1 8 274 310 10 2 2 2 11 412 13 466 16 16
4 137 155 5 1 1 1 34 206 40 233 8 8
2 412 466 16 17 103 20 700 4 4
1 206 233 8 52 310 10 350 2 2
103 700 4 26 155 5 175 1 1
310 350 2 13 466 16 526
155 175 1 40 233 8 263
466 526 20 700 4 790
233 263 10 350 2 395
700 790 5 175 1 186
350 395 16 526 593
175 186 8 263 780
526 593 4 790 890
263 780 2 395 445
790 890 1 186 336
395 445 593 668
186 336 780 334
593 668 890 167
780 334 445 502
890 167 336 251
445 502 668 754
336 251 334 377
668 754 167 132
334 377 502 566
167 132 251 283
502 566 754 850
251 283 377 425
754 850 132 276
377 425 566 638
132 276 283 319
566 638 850 958
283 319 425 479
850 958 276 438
425 479 638 719
276 438 319 158
638 719 958 079
319 158 479 238
958 079 438 619
479 238 719 858
438 619 158 429
719 858 079 288
158 429 238 644
079 288 619 822
238 644 858 911
619 822 429 734
858 911 288 367
429 734 644 102
288 367 822 051
644 102 911 154
822 051 734 077
911 154 367 232
734 077 102 616
367 232 051 308
102 616 154 154
051 308 077 577
154 154 232 732
077 577 616 866
232 732 308 433
616 866 154 300
308 433 577 650
154 300 732 325
577 650 866 976
732 325 433 488
866 976 300 244
433 488 650 122
300 244 325 61
650 122 976 184
325 61 488 92
976 184 244 46
488 92 122 23
244 46 61 70
122 23 184 35
61 70 92 106
184 35 46 53
92 106 23 160
46 53 70 80
23 160 35 40
70 80 106 20
35 40 53 10
106 20 160 5
53 10 80 16
160 5 40 8
80 16 20 4
40 8 10 2
20 4 5 1
10 2 16
5 1 8
16 4
8 2
4 1
2
1
=== === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === === ===
0 1 7 2 5 8 16 3 19 6 14 9 9 17 17 4 12 20 20 7 7 15 15 10 23 10 111 18 18 18 106 5 26 13 13 21 21 21 34 8 109 8 29 16 16 16 104 11 24 24
</pre>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/190924"