3

I have a list with some values and I want to replace a value which is greater than 1 with 1 otherwise keep the value. In this case 10562:

   list[[1]]= {0.61975, 10562., 0.43274, 0.15068, 0.13703, 0.057564}

I tried this approach: 

Table[If[list[[1, x]] > 1, list[[1, x]] = 1, list[[1, x]]], {x,
   1, Length[list[[1]]]}]

It works, but I'm wondering if there is a much simpler solution with mathematica. Can anybody help me out?

Mike Honeychurch
  • 37,541
  • 3
  • 85
  • 158
holistic
  • 2,975
  • 15
  • 37

2 Answers2

13

Use Clip:

Clip[{0.61975, 10562., 0.43274, 0.15068, 0.13703, 0.057564}, {-Infinity, 1}]

{0.61975, 1, 0.43274, 0.15068, 0.13703, 0.057564}

kirma
  • 19,056
  • 1
  • 51
  • 93
  • 1
    @kirma A nice solution. Interesting that it does not work with Nothing. Say, if the task would be to remove all items exceeding 1 I am tempted to use the following: Clip[{0.61975, 10562., 0.43274, 0.15068, 0.13703, 0.057564}, {-Infinity, 1}, {Nothing, Nothing}]. This dowes not work though. – Alexei Boulbitch Mar 31 '17 at 06:40
2
{0.61975, 10562., 0.43274, 0.15068, 0.13703, 0.057564} /.x_ /; x >= 1 -> 1
(*  {0.61975, 1, 0.43274, 0.15068, 0.13703, 0.057564}  *)
Alexei Boulbitch
  • 39,397
  • 2
  • 47
  • 96
  • There's definitely more than one way to do it in Mathematica. :-| – kirma Jan 31 '14 at 15:46
  • 1
    @kirma Clip will perform much better than this replacement rule; you chose the best one I know of. – Mr.Wizard Jan 31 '14 at 15:48
  • 1
    @krima Clip is, of course, better, since it is a function specially designed for purposes of such a sort. I believe, however, that it is useful to have several solutions, even if they are not as good. Further, what is better and what is worse depends upon the point of view. People usually think that the good==fast. However, we often deal with problems in which the timing of application one approach imperceptibly differs from another. – Alexei Boulbitch Feb 03 '14 at 08:54
  • @krima, continuation: In this case the best solution is the first coming to mind, provided it gives an answer in the matter of a second, since in this case it is the looking for solution that is the time-limiting step. Anyway, I like your solution more than mine. – Alexei Boulbitch Feb 03 '14 at 08:55