From the list of 3-tuples, how can I select tuples which contain one for more nines?Find positions of items...
How do photons get into the eyes?
Quickest way to find characteristic polynomial from a given matrix
Question about JavaScript Math.random() and basic logic
Traffic law UK, pedestrians
How hard would it be to convert a glider into an powered electric aircraft?
Required to check-in in person at international layover airport
Last survivors from different time periods living together
How can drunken, homicidal elves successfully conduct a wild hunt?
Does an ice chest packed full of frozen food need ice?
siunitx error: Invalid numerical input
What is this solid state starting relay component?
How many pairs of subsets can be formed?
After the loss of Challenger, why weren’t Galileo and Ulysses launched by Centaurs on expendable boosters?
How many times can you cast a card exiled by Release to the Wind?
SF novella separating the dumb majority from the intelligent part of mankind
My coworkers think I had a long honeymoon. Actually I was diagnosed with cancer. How do I talk about it?
Smooth switching between 12v batteries, with toggle switch
What can cause the front wheel to lock up when going over a small bump?
Should I "tell" my exposition or give it through dialogue?
Do the English have an ancient (obsolete) verb for the action of the book opening?
Can a user sell my software (MIT license) without modification?
Average spam confidence
Is it possible to express disjunction through conjunction and implication?
How would a aircraft visually signal in distress?
From the list of 3-tuples, how can I select tuples which contain one for more nines?
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
$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
New contributor
$endgroup$
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
New contributor
$endgroup$
2
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is toSelect
...
$endgroup$
– Daniel Lichtblau
17 hours ago
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
New contributor
$endgroup$
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
list-manipulation
New contributor
New contributor
edited 1 hour ago
m_goldberg
90.4k873203
90.4k873203
New contributor
asked 22 hours ago
CarbajoCarbajo
703
703
New contributor
New contributor
2
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is toSelect
...
$endgroup$
– Daniel Lichtblau
17 hours ago
add a comment |
2
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is toSelect
...
$endgroup$
– Daniel Lichtblau
17 hours ago
2
2
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is to
Select
...$endgroup$
– Daniel Lichtblau
17 hours ago
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is to
Select
...$endgroup$
– Daniel Lichtblau
17 hours ago
add a comment |
4 Answers
4
active
oldest
votes
$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}}
$endgroup$
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}}
$endgroup$
$begingroup$
This can even be shortened toSelect[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.
$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
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]
$endgroup$
add a comment |
$begingroup$
lst // Pick[#, Times@@@(# /. 9-> 0), 0] &
and
Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]
$endgroup$
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Carbajo is a new contributor. Be nice, and check out our Code of Conduct.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f199571%2ffrom-the-list-of-3-tuples-how-can-i-select-tuples-which-contain-one-for-more-ni%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
4 Answers
4
active
oldest
votes
4 Answers
4
active
oldest
votes
active
oldest
votes
active
oldest
votes
$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}}
$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}}
$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}}
$endgroup$
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}}
answered 22 hours ago
kglrkglr
196k10216439
196k10216439
add a comment |
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}}
$endgroup$
$begingroup$
This can even be shortened toSelect[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.
$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
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}}
$endgroup$
$begingroup$
This can even be shortened toSelect[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.
$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
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}}
$endgroup$
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}}
edited 19 hours ago
answered 22 hours ago
J42161217J42161217
5,400525
5,400525
$begingroup$
This can even be shortened toSelect[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.
$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
add a comment |
$begingroup$
This can even be shortened toSelect[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.
$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
$begingroup$
This can even be shortened to
Select[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
This can even be shortened to
Select[Tuples[{1,2,3,4,9},3], MemberQ[9]]
.$endgroup$
– Henrik Schumacher
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
$begingroup$
@HenrikSchumacher nice!
$endgroup$
– J42161217
19 hours ago
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]
$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]
$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]
$endgroup$
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]
answered 18 hours ago
Okkes DulgerciOkkes Dulgerci
5,6661920
5,6661920
add a comment |
add a comment |
$begingroup$
lst // Pick[#, Times@@@(# /. 9-> 0), 0] &
and
Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]
$endgroup$
add a comment |
$begingroup$
lst // Pick[#, Times@@@(# /. 9-> 0), 0] &
and
Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]
$endgroup$
add a comment |
$begingroup$
lst // Pick[#, Times@@@(# /. 9-> 0), 0] &
and
Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]
$endgroup$
lst // Pick[#, Times@@@(# /. 9-> 0), 0] &
and
Pick[lst,Times@@@(lst/. 9-> 0),0]==
Pick[lst, MemberQ[#,9]&/@lst]
answered 21 hours ago
user1066user1066
6,27822033
6,27822033
add a comment |
add a comment |
Carbajo is a new contributor. Be nice, and check out our Code of Conduct.
Carbajo is a new contributor. Be nice, and check out our Code of Conduct.
Carbajo is a new contributor. Be nice, and check out our Code of Conduct.
Carbajo is a new contributor. Be nice, and check out our Code of Conduct.
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f199571%2ffrom-the-list-of-3-tuples-how-can-i-select-tuples-which-contain-one-for-more-ni%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
2
$begingroup$
Help > Wolfram Docuentation, enter "select" (with or without quotes). First hit is to
Select
...$endgroup$
– Daniel Lichtblau
17 hours ago