Ttdfjt

Ability To Change Root User Password (Vulnerability?)

First sign that you should look for another job?

How can one's career as a reviewer be ended?

Should I refuse being named as co-author of a bad quality paper?

60s or 70s novel about Empire of Man making 1st contact with 1st discovered alien race

Will Roalesk, Apex Hybrid, trigger Sharktocrab twice?

Generate basis elements of the Steenrod algebra

Why was this person allowed to become Grand Maester?

A word that means "blending into a community too much"

Is using 'echo' to display attacker-controlled data on the terminal dangerous?

Which is the better way to call a method that is only available to one class that implements an interface but not the other one?

Single-key teletype?

Advantages of the Exponential Family: why should we study it and use it?

Scientist couple raises alien baby

Why am I getting a strange double quote (“) in Open Office instead of the ordinary one (")?

Live action TV show where High school Kids go into the virtual world and have to clear levels

How to communicate to my GM that not being allowed to use stealth isn't fun for me?

What is this airplane?

What would be the way to say "just saying" in German? (Not the literal translation)

Are polynomials with the same roots identical?

Fermat's statement about the ancients: How serious was he?

Teaching a class likely meant to inflate the GPA of student athletes

What differences exist between adamantine and adamantite in all editions of D&D?

Can a human be transformed into a Mind Flayer?

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

Find positions of items in a list based on neighboursHow to delete list items that contain a non-numeric PartSelect out of nested listSelecting list elements depending if they contain sub-list elementsEliminating items from list by ruleSelect UPPER CASE list items with spaces and punctuationSelect sublists that contain $n$ odd numbersDeleting items from a list when they meet certain criteriaSelect data from a listSelect items in a list that contain criteria #2

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

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

put on hold 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

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

put on hold 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

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

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

share|improve this question

edited Jun 3 at 4:23

m_goldberg

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

edited Jun 3 at 4:23

m_goldberg

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

edited Jun 3 at 4:23

m_goldberg

90.5k873203

edited Jun 3 at 4:23

m_goldberg

90.5k873203

asked Jun 2 at 7:25

CarbajoCarbajo

683

New contributor

Carbajo is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked Jun 2 at 7:25

CarbajoCarbajo

683

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

197k10220442

$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,400525

$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

Okkes DulgerciOkkes Dulgerci

5,6931920

$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,27822033

$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

197k10220442

$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

197k10220442

$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

197k10220442

$endgroup$

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

share|improve this answer

answered Jun 2 at 7:33

kglrkglr

197k10220442

answered Jun 2 at 7:33

kglrkglr

197k10220442

answered Jun 2 at 7:33

kglrkglr

197k10220442

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,400525

$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,400525

$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,400525

$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,400525

answered Jun 2 at 7:33

J42161217J42161217

5,400525

answered Jun 2 at 7:33

J42161217J42161217

5,400525

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

Okkes DulgerciOkkes Dulgerci

5,6931920

$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

Okkes DulgerciOkkes Dulgerci

5,6931920

$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

Okkes DulgerciOkkes Dulgerci

5,6931920

$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

Okkes DulgerciOkkes Dulgerci

5,6931920

answered Jun 2 at 11:03

Okkes DulgerciOkkes Dulgerci

5,6931920

answered Jun 2 at 11:03

Okkes DulgerciOkkes Dulgerci

5,6931920

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,27822033

$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,27822033

$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,27822033

$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,27822033

answered Jun 2 at 8:01

user1066user1066

6,27822033

answered Jun 2 at 8:01

user1066user1066

6,27822033