How to select pairs of numbers in function requirements?

Question

How can I get only those cases where the second column has only two decimal places or less?

ano=Range[2013,2100,1];
y=ano-1978; 
x=ano-2012;
anoRazao=Transpose[{ano,y/x}]//N

The figure below shows the results I want to get:

C. E. · Accepted Answer · 2016-08-03T21:53:00.317

1

You can use string patterns like this:

allowed[{_, number_}] := StringMatchQ[
  ToString[number],
  ___ ~~ "." ~~ Repeated[DigitCharacter, {0, 2}]
  ]

Select[anoRazao, allowed] // TableForm

Mathematica graphics

edited Aug 03 '16 at 21:53

answered Aug 03 '16 at 21:25

C. E.

70,533
6
140
264

You can improve because I need the whole numbers also... – LCarvalho Aug 03 '16 at 21:28
@LeandroMacieldeCarvalho like a number without a dot at the end? You can just add | DigitCharacter ... at the end of the pattern for that. – C. E. Aug 03 '16 at 21:56
I thought there was an option in Case to resolve the issue. – LCarvalho Aug 04 '16 at 02:01

score 1 · Answer 2 · edited Apr 13 '17 at 12:56

1

Using Mr. Wizard's modification of Stan Wagon's IntegerChop[] function, this can be done:

IntegerChop = # + Chop[#2 - #] &[Round@#, #] &;

Select[anoRazao,
       IntegerQ[IntegerChop[Apply[#1 10^(#2 + 2) &, MantissaExponent[Last[#]]]]] &]

edited Apr 13 '17 at 12:56

Community

1

answered Aug 03 '16 at 21:49

J. M.'s missing motivation

124,525
11
401
574

How to select pairs of numbers in function requirements?

2 Answers2