Rosetta Code

Wasteful, equidigital and frugal numbers: Difference between revisions

Page Discussion

Wasteful, equidigital and frugal numbers (view source)

Revision as of 11:55, 17 July 2022

40 bytes removed ,  1 year ago
J: reclassify 1 as equidigital even though D1 is 0
(→‎{{header|J}}: omit off-by-one issue for 10000th)
(J: reclassify 1 as equidigital even though D1 is 0)
Line 52:
 
Brute force implementation:<lang J>I=: #@(#.inv)"0
D=: [ +/@:I __ (#~-.&1<])@,@q: ]
typ=: ~:&1@] * *@(I-D)"0 NB. _1: wasteful, 0: equidigital, 1: frugal</lang>
 
Task examples (base 10):<lang J> b10=: 10 typ(9999&{, 50&{.)1+iI.3e6_1=b10 NB. wasteful
(9999&{, 50&{.)1+I._1=b10 NB. wasteful
14346 4 6 8 9 12 18 20 22 24 26 28 30 33 34 36 38 39 40 42 44 45 46 48 50 51 52 54 55 56 57 58 60 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 84 85 86
(9999&{, 50&{.)1+I. 0=b10 NB. equidigital
3377333769 1 2 3 5 7 10 11 13 14 15 16 17 19 21 23 25 27 29 31 32 35 37 41 43 47 49 53 59 61 64 67 71 73 79 81 83 89 97 101 103 105 106 107 109 111 112 113 115 118 119 121
(9999&{, 50&{.)1+I. 1=b10 NB. frugal
1953031 11953125 125 128 243 256 343 512 625 729 1024 1029 1215 1250 1280 1331 1369 1458 1536 1681 1701 1715 1792 1849 1875 2048 2187 2197 2209 2401 2560 2809 3125 3481 3584 3645 3721 4096 4374 4375 4489 4802 4913 5041 5103 5329 6241 6250 6561 6859 6889 7203
+/1e6>1+I._1=b10 NB. wasteful
831231
+/1e6>1+I. 0=b10 NB. equidigital
165645
165644
+/1e6>1+I. 1=b10 NB. frugal
31243123</lang>
 
Task examples (base 11):<lang J> b11=: 11 typ(9999&{, 50&{.)1+iI.3e6_1=b11 NB. wasteful
(9999&{, 50&{.)1+I._1=b11 NB. wasteful
12890 4 6 8 9 10 12 18 20 22 24 26 28 30 33 34 36 38 39 40 42 44 45 46 48 50 51 52 54 55 56 57 58 60 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 84 85
(9999&{, 50&{.)1+I. 0=b11 NB. equidigital
3320733203 1 2 3 5 7 11 13 14 15 16 17 19 21 23 25 27 29 31 32 35 37 41 43 47 49 53 59 61 64 67 71 73 79 81 83 89 97 101 103 107 109 113 121 122 123 127 129 131 133 134 135
(9999&{, 50&{.)1+I. 1=b11 NB. frugal
2658818 12659171 125 128 243 256 343 512 625 729 1024 1331 1369 1458 1536 1681 1701 1715 1792 1849 1875 2048 2187 2197 2209 2401 2560 2809 3072 3125 3481 3584 3645 3721 4096 4374 4375 4489 4802 4913 5041 5103 5120 5329 6241 6250 6561 6859 6889 7168 7203 7921
+/1e6>1+I._1=b11 NB. wasteful
795861
+/1e6>1+I. 0=b11 NB. equidigital
200710
200709
+/1e6>1+I. 1=b11 NB. frugal
34293428</lang>
 
=={{header|Julia}}==
Rdm
6,951

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/321871"