Bsrgvty

What is the difference between an adjective and a noun modifier?

What happens if we run out of terrain tiles?

How might people try to stop the world becoming a rogue planet?

Right way to say I disagree with the design but ok I will do

Falcon Heavy Stage 1 Recovery

Where do overtones in a 555 generated square wave come from?

18 month old kicked out of church nursery

What order of magnitude incoming asteroid could we, in fact, deflect?

Replacing triangulated categories with something better

Does the FIDE 75-move rule apply after checkmate or resignation?

Meaning of "in arms"

How to deal with non-stop callers in the service desk

Modeling the Choose function

What is a GPU year?

where does black come from in CMYK color mode?

What could a technologically advanced but outnumbered alien race do to destroy humanity?

Why does the SR-71 Blackbird sometimes have dents in the nose?

Iterator for traversing a tree [v2]

What game(s) does Michael play in Mind Field S2E4?

What happens to a Bladesinger reincarnated as a Human?

Did Bercow say the would have sent the EU extension-request letter himself had Johnson not done so?

Surjection from one string to two strings

Will there be a vote in the Commons to decide the fate of Johnson's deal?

Travel with Expired Greek Passport from UK to Greece and Return

From the list of 3-tuples, how can I select tuples which contain one for more nines? [closed]

how can one select elements from a list that are satisfied a criteria which need to compare with other elements in the list?Finding the most common n-tuples of a list of lists where order does not matterHow can I select the new maximums in a list?Selecting from a list returned by TuplesSelect elements in a list of tuples of quaternions that satisfy a conditionDeleting duplicates only if they are a certain kind of duplicateSelect data from a list

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty
margin-bottom:0;

.everyonelovesstackoverflowposition:absolute;height:1px;width:1px;opacity:0;top:0;left:0;pointer-events:none;

7

1

$begingroup$

From the list

Tuples[1, 2, 3, 4, 9, 3]

how can I select exactly those 3-tuples that contain one for more nines?

This is the result I want:

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1 ... 9, 9, 4, 9, 9, 9

list-manipulation

share|improve this question

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

$endgroup$

closed as off-topic by Daniel Lichtblau, Henrik Schumacher, ciao, user42582, AccidentalFourierTransform Jun 3 at 14:23

This question appears to be off-topic. The users who voted to close gave this specific reason:

• "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Daniel Lichtblau, Henrik Schumacher, ciao, user42582, AccidentalFourierTransform

If this question can be reworded to fit the rules in the help center, please edit the question.

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is to Select...
  $endgroup$
  – Daniel Lichtblau
  Jun 2 at 11:59
  

  
  
  
  

add a comment
 | 

7

1

$begingroup$

From the list

Tuples[1, 2, 3, 4, 9, 3]

how can I select exactly those 3-tuples that contain one for more nines?

This is the result I want:

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1 ... 9, 9, 4, 9, 9, 9

list-manipulation

share|improve this question

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

$endgroup$

closed as off-topic by Daniel Lichtblau, Henrik Schumacher, ciao, user42582, AccidentalFourierTransform Jun 3 at 14:23

This question appears to be off-topic. The users who voted to close gave this specific reason:

• "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Daniel Lichtblau, Henrik Schumacher, ciao, user42582, AccidentalFourierTransform

If this question can be reworded to fit the rules in the help center, please edit the question.

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is to Select...
  $endgroup$
  – Daniel Lichtblau
  Jun 2 at 11:59
  

  
  
  
  

add a comment
 | 

$begingroup$

From the list

Tuples[1, 2, 3, 4, 9, 3]

how can I select exactly those 3-tuples that contain one for more nines?

This is the result I want:

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1 ... 9, 9, 4, 9, 9, 9

list-manipulation

share|improve this question

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

$endgroup$

Tuples[1, 2, 3, 4, 9, 3]

share|improve this question

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

share|improve this question

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

edited Jun 3 at 4:23

m_goldberg

92.1k88 gold badges7676 silver badges211211 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

asked Jun 2 at 7:25

CarbajoCarbajo

11555 bronze badges

4 Answers
4

active

oldest

votes

8

$begingroup$

list=Tuples[1, 2, 3, 4, 9, 3] ;
Cases[___,9,___]@list

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1, 1, 9, 2, 1,
9, 3, 1, 9, 4, 1, 9, 9,

2, 1, 9, 2, 2, 9, 2, 3, 9, 2,
4, 9, 2, 9, 1, 2, 9, 2, 2, 9, 3, 2, 9, 4, 2, 9, 9,

3, 1,
9, 3, 2, 9, 3, 3, 9, 3, 4, 9, 3, 9, 1, 3, 9, 2, 3, 9,
3, 3, 9, 4, 3, 9, 9,

4, 1, 9, 4, 2, 9, 4, 3, 9, 4, 4, 9, 4, 9, 1, 4, 9, 2, 4, 9, 3, 4, 9, 4, 4, 9, 9,

9, 1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 9, 2, 1, 9, 2,
2, 9, 2, 3, 9, 2, 4, 9, 2, 9,

9, 3, 1, 9, 3, 2, 9, 3,
3, 9, 3, 4, 9, 3, 9, 9, 4, 1, 9, 4, 2, 9, 4, 3, 9, 4,
4, 9, 4, 9,

9, 9, 1, 9, 9, 2, 9, 9, 3, 9, 9, 4, 9, 9,
9

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

$endgroup$

add a comment
 | 

6

$begingroup$

try

Select[Tuples[1,2,3,4,9,3],MemberQ@9] 

1,1,9,1,2,9,1,3,9,1,4,9,1,9,1,1,9,2,1,9,3,1,9,4,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,1,2,9,2,2,9,3,2,9,4,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,1,3,9,2,3,9,3,3,9,4,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,1,4,9,2,4,9,3,4,9,4,4,9,9,9,1,1,9,1,2,9,1,3,9,1,4,9,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,9,9,1,9,9,2,9,9,3,9,9,4,9,9,9

share|improve this answer

edited Jun 2 at 9:58

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  This can even be shortened to Select[Tuples[1,2,3,4,9,3], MemberQ[9]].
  $endgroup$
  – Henrik Schumacher
  Jun 2 at 9:36
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @HenrikSchumacher nice!
  $endgroup$
  – J42161217
  Jun 2 at 9:58
  

  
  
  
  

add a comment
 | 

2

$begingroup$

L = Tuples[1, 2, 3, 4, 9, 3];

Pick[L, Total /@ UnitBox[L - 9], 1 | 2 | 3]

Or

Pick[L, Total /@ UnitStep[L - 8], 1 | 2 | 3]

share|improve this answer

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

$endgroup$

add a comment
 | 

1

$begingroup$

lst // Pick[#, Times@@@(# /. 9-> 0), 0] &

and

Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]

share|improve this answer

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

$endgroup$

add a comment
 | 

8

$begingroup$

list=Tuples[1, 2, 3, 4, 9, 3] ;
Cases[___,9,___]@list

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1, 1, 9, 2, 1,
9, 3, 1, 9, 4, 1, 9, 9,

2, 1, 9, 2, 2, 9, 2, 3, 9, 2,
4, 9, 2, 9, 1, 2, 9, 2, 2, 9, 3, 2, 9, 4, 2, 9, 9,

3, 1,
9, 3, 2, 9, 3, 3, 9, 3, 4, 9, 3, 9, 1, 3, 9, 2, 3, 9,
3, 3, 9, 4, 3, 9, 9,

4, 1, 9, 4, 2, 9, 4, 3, 9, 4, 4, 9, 4, 9, 1, 4, 9, 2, 4, 9, 3, 4, 9, 4, 4, 9, 9,

9, 1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 9, 2, 1, 9, 2,
2, 9, 2, 3, 9, 2, 4, 9, 2, 9,

9, 3, 1, 9, 3, 2, 9, 3,
3, 9, 3, 4, 9, 3, 9, 9, 4, 1, 9, 4, 2, 9, 4, 3, 9, 4,
4, 9, 4, 9,

9, 9, 1, 9, 9, 2, 9, 9, 3, 9, 9, 4, 9, 9,
9

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

$endgroup$

add a comment
 | 

8

$begingroup$

list=Tuples[1, 2, 3, 4, 9, 3] ;
Cases[___,9,___]@list

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1, 1, 9, 2, 1,
9, 3, 1, 9, 4, 1, 9, 9,

2, 1, 9, 2, 2, 9, 2, 3, 9, 2,
4, 9, 2, 9, 1, 2, 9, 2, 2, 9, 3, 2, 9, 4, 2, 9, 9,

3, 1,
9, 3, 2, 9, 3, 3, 9, 3, 4, 9, 3, 9, 1, 3, 9, 2, 3, 9,
3, 3, 9, 4, 3, 9, 9,

4, 1, 9, 4, 2, 9, 4, 3, 9, 4, 4, 9, 4, 9, 1, 4, 9, 2, 4, 9, 3, 4, 9, 4, 4, 9, 9,

9, 1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 9, 2, 1, 9, 2,
2, 9, 2, 3, 9, 2, 4, 9, 2, 9,

9, 3, 1, 9, 3, 2, 9, 3,
3, 9, 3, 4, 9, 3, 9, 9, 4, 1, 9, 4, 2, 9, 4, 3, 9, 4,
4, 9, 4, 9,

9, 9, 1, 9, 9, 2, 9, 9, 3, 9, 9, 4, 9, 9,
9

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

list=Tuples[1, 2, 3, 4, 9, 3] ;
Cases[___,9,___]@list

1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 1, 1, 9, 2, 1,
9, 3, 1, 9, 4, 1, 9, 9,

2, 1, 9, 2, 2, 9, 2, 3, 9, 2,
4, 9, 2, 9, 1, 2, 9, 2, 2, 9, 3, 2, 9, 4, 2, 9, 9,

3, 1,
9, 3, 2, 9, 3, 3, 9, 3, 4, 9, 3, 9, 1, 3, 9, 2, 3, 9,
3, 3, 9, 4, 3, 9, 9,

4, 1, 9, 4, 2, 9, 4, 3, 9, 4, 4, 9, 4, 9, 1, 4, 9, 2, 4, 9, 3, 4, 9, 4, 4, 9, 9,

9, 1, 1, 9, 1, 2, 9, 1, 3, 9, 1, 4, 9, 1, 9, 9, 2, 1, 9, 2,
2, 9, 2, 3, 9, 2, 4, 9, 2, 9,

9, 3, 1, 9, 3, 2, 9, 3,
3, 9, 3, 4, 9, 3, 9, 9, 4, 1, 9, 4, 2, 9, 4, 3, 9, 4,
4, 9, 4, 9,

9, 9, 1, 9, 9, 2, 9, 9, 3, 9, 9, 4, 9, 9,
9

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

$endgroup$

list=Tuples[1, 2, 3, 4, 9, 3] ;
Cases[___,9,___]@list

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

answered Jun 2 at 7:33

kglrkglr

222k1010 gold badges253253 silver badges511511 bronze badges

6

$begingroup$

try

Select[Tuples[1,2,3,4,9,3],MemberQ@9] 

1,1,9,1,2,9,1,3,9,1,4,9,1,9,1,1,9,2,1,9,3,1,9,4,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,1,2,9,2,2,9,3,2,9,4,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,1,3,9,2,3,9,3,3,9,4,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,1,4,9,2,4,9,3,4,9,4,4,9,9,9,1,1,9,1,2,9,1,3,9,1,4,9,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,9,9,1,9,9,2,9,9,3,9,9,4,9,9,9

share|improve this answer

edited Jun 2 at 9:58

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  This can even be shortened to Select[Tuples[1,2,3,4,9,3], MemberQ[9]].
  $endgroup$
  – Henrik Schumacher
  Jun 2 at 9:36
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @HenrikSchumacher nice!
  $endgroup$
  – J42161217
  Jun 2 at 9:58
  

  
  
  
  

add a comment
 | 

6

$begingroup$

try

Select[Tuples[1,2,3,4,9,3],MemberQ@9] 

1,1,9,1,2,9,1,3,9,1,4,9,1,9,1,1,9,2,1,9,3,1,9,4,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,1,2,9,2,2,9,3,2,9,4,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,1,3,9,2,3,9,3,3,9,4,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,1,4,9,2,4,9,3,4,9,4,4,9,9,9,1,1,9,1,2,9,1,3,9,1,4,9,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,9,9,1,9,9,2,9,9,3,9,9,4,9,9,9

share|improve this answer

edited Jun 2 at 9:58

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  This can even be shortened to Select[Tuples[1,2,3,4,9,3], MemberQ[9]].
  $endgroup$
  – Henrik Schumacher
  Jun 2 at 9:36
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @HenrikSchumacher nice!
  $endgroup$
  – J42161217
  Jun 2 at 9:58
  

  
  
  
  

add a comment
 | 

$begingroup$

try

Select[Tuples[1,2,3,4,9,3],MemberQ@9] 

1,1,9,1,2,9,1,3,9,1,4,9,1,9,1,1,9,2,1,9,3,1,9,4,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,1,2,9,2,2,9,3,2,9,4,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,1,3,9,2,3,9,3,3,9,4,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,1,4,9,2,4,9,3,4,9,4,4,9,9,9,1,1,9,1,2,9,1,3,9,1,4,9,1,9,9,2,1,9,2,2,9,2,3,9,2,4,9,2,9,9,3,1,9,3,2,9,3,3,9,3,4,9,3,9,9,4,1,9,4,2,9,4,3,9,4,4,9,4,9,9,9,1,9,9,2,9,9,3,9,9,4,9,9,9

share|improve this answer

edited Jun 2 at 9:58

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

$endgroup$

Select[Tuples[1,2,3,4,9,3],MemberQ@9] 

share|improve this answer

edited Jun 2 at 9:58

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

answered Jun 2 at 7:33

J42161217J42161217

5,51055 silver badges2727 bronze badges

2

$begingroup$

L = Tuples[1, 2, 3, 4, 9, 3];

Pick[L, Total /@ UnitBox[L - 9], 1 | 2 | 3]

Or

Pick[L, Total /@ UnitStep[L - 8], 1 | 2 | 3]

share|improve this answer

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

$endgroup$

add a comment
 | 

2

$begingroup$

L = Tuples[1, 2, 3, 4, 9, 3];

Pick[L, Total /@ UnitBox[L - 9], 1 | 2 | 3]

Or

Pick[L, Total /@ UnitStep[L - 8], 1 | 2 | 3]

share|improve this answer

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

L = Tuples[1, 2, 3, 4, 9, 3];

Pick[L, Total /@ UnitBox[L - 9], 1 | 2 | 3]

Or

Pick[L, Total /@ UnitStep[L - 8], 1 | 2 | 3]

share|improve this answer

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

$endgroup$

L = Tuples[1, 2, 3, 4, 9, 3];

Pick[L, Total /@ UnitBox[L - 9], 1 | 2 | 3]

Pick[L, Total /@ UnitStep[L - 8], 1 | 2 | 3]

share|improve this answer

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

answered Jun 2 at 11:03

OkkesDulgerciOkkesDulgerci

6,34511 gold badge1111 silver badges2323 bronze badges

1

$begingroup$

lst // Pick[#, Times@@@(# /. 9-> 0), 0] &

and

Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]

share|improve this answer

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

$endgroup$

add a comment
 | 

1

$begingroup$

lst // Pick[#, Times@@@(# /. 9-> 0), 0] &

and

Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]

share|improve this answer

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

lst // Pick[#, Times@@@(# /. 9-> 0), 0] &

and

Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]

share|improve this answer

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

$endgroup$

lst // Pick[#, Times@@@(# /. 9-> 0), 0] &

Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]

share|improve this answer

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges

answered Jun 2 at 8:01

user1066user1066

6,57822 gold badges2020 silver badges3333 bronze badges