Flatten an arrayEfficiently extracting an array subset given a separate arrayQuickly pruning elements in one structured array that exist in a separate unordered arrayHow to display the indices/element positions of a ragged array?Listing all values in an arrayHow to specify positions in a matrix by an array?Tabulating a function slowing downGiven an ordered set S, find the points in S corresponding to another listHow to list ArrayFilter?Sorting of a list with different lengthsSelecting elements of a list based on frequency
Complete the Pointer Set
Function to calculate "Nd6 take highest 2, sort descending" probabilities in AnyDice
Difference between topologically complete space and complete metric space
The correct capital G and J in cursive
What is the difference between the Ancient Greek religion and the Ancient Roman religion?
Max of the reversed of two numbers
Why do most flyback converters / LED drivers operate under 100 kHz?
Why are reference frames able to see themselves moving through time but not through space?
Ethics questions concerning a referee assignment
How to wire for AC mains voltage relay, when printer board is connected to AC-charging laptop computer?
Can I use Clonezilla for backup without destroing what's already on the destination drive?
Brute-Force algorithm in C++
What is Trump's position on the whistle blower allegations? What does he mean by "witch hunt"?
Did Catherine the Great really call for the abolition of serfdom?
I have just 4 hours a month to security check a cloud based application - How to use my time?
FIDE Laws of Chess pre-2017
1 kHz clock over long wire
Why is weak Kőnig's lemma weaker than Kőnig's lemma?
CircuiTikZ: How to change the node options of labels and annotations?
Feasibility of keeping an Electrical Bike in poor (wet) storage conditions
How to draw a 3D point moving along a helical path?
Does Amoxicillin (as trihydrate) degrade in stomach acid?
Why don't the crew of Moya know the location of their homeworlds?
How is suite pronunced in native English speaking countries?
Flatten an array
Efficiently extracting an array subset given a separate arrayQuickly pruning elements in one structured array that exist in a separate unordered arrayHow to display the indices/element positions of a ragged array?Listing all values in an arrayHow to specify positions in a matrix by an array?Tabulating a function slowing downGiven an ordered set S, find the points in S corresponding to another listHow to list ArrayFilter?Sorting of a list with different lengthsSelecting elements of a list based on frequency
.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;
$begingroup$
I have obtained an array of results as follows
w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
I want to extract numbers only as an ordered list namely
0.25, 0.05, 0.190065,0.0182686, ...
when I use Flatten command I get first number of each inner list, How can extract all numbers as sorted list?
list-manipulation
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
$endgroup$
add a comment
|
$begingroup$
I have obtained an array of results as follows
w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
I want to extract numbers only as an ordered list namely
0.25, 0.05, 0.190065,0.0182686, ...
when I use Flatten command I get first number of each inner list, How can extract all numbers as sorted list?
list-manipulation
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
$endgroup$
2
$begingroup$
Values@list // FlattenorFlatten@list // ValuesorValues@Flatten@listorFlatten@Values@list
$endgroup$
– OkkesDulgerci
Oct 14 at 15:11
add a comment
|
$begingroup$
I have obtained an array of results as follows
w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
I want to extract numbers only as an ordered list namely
0.25, 0.05, 0.190065,0.0182686, ...
when I use Flatten command I get first number of each inner list, How can extract all numbers as sorted list?
list-manipulation
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
$endgroup$
I have obtained an array of results as follows
w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
I want to extract numbers only as an ordered list namely
0.25, 0.05, 0.190065,0.0182686, ...
when I use Flatten command I get first number of each inner list, How can extract all numbers as sorted list?
list-manipulation
list-manipulation
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
asked Oct 14 at 12:53
WisdomWisdom
948 bronze badges
948 bronze badges
2
$begingroup$
Values@list // FlattenorFlatten@list // ValuesorValues@Flatten@listorFlatten@Values@list
$endgroup$
– OkkesDulgerci
Oct 14 at 15:11
add a comment
|
2
$begingroup$
Values@list // FlattenorFlatten@list // ValuesorValues@Flatten@listorFlatten@Values@list
$endgroup$
– OkkesDulgerci
Oct 14 at 15:11
2
2
$begingroup$
Values@list // Flatten or Flatten@list // Values or Values@Flatten@list or Flatten@Values@list$endgroup$
– OkkesDulgerci
Oct 14 at 15:11
$begingroup$
Values@list // Flatten or Flatten@list // Values or Values@Flatten@list or Flatten@Values@list$endgroup$
– OkkesDulgerci
Oct 14 at 15:11
add a comment
|
4 Answers
4
active
oldest
votes
$begingroup$
a = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
w /. a // Flatten
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
$endgroup$
add a comment
|
$begingroup$
Flatten[lst][[All, -1]]
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
Also
Values @ Flatten @ lst
same result
Flatten @ Values @ lst
same result
Cases[lst, _Real, All]
same result
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
$endgroup$
add a comment
|
$begingroup$
For the general case where you only want rules with the left-hand-side 'w':
Cases[w->0.25,w->0.05,w->0.190065,w->0.0182686,w->0.0404842,w->0.0086731,w->0.156634,w->0.015429,w->0.00478921,w->0.0344873,w->0.00753932,w->0.00292085,w->0.134788,w->0.0134812,w->0.00424987,w->0.00191167,w->0.0302949,w->0.00671401,w->0.0026321,w->0.00131905,w->0.119177,w->0.012046,w->0.00383985,w->0.0017433,w->0.000948279,
(w->x_):>x,
[Infinity]
]
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
$endgroup$
add a comment
|
$begingroup$
Another few ways centered around Level.
data = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279;
elems = Level[data, -1]
elems[[2 ;; ;; 2]]
Select[elems, NumericQ] == %
DeleteCases[elems, w] == %%
w, 0.25, w, 0.05, w, 0.190065, w, 0.0182686, w, 0.0404842, w,
0.0086731, w, 0.156634, w, 0.015429, w, 0.00478921, w, 0.0344873, w,
0.00753932, w, 0.00292085, w, 0.134788, w, 0.0134812, w, 0.00424987,
w, 0.00191167, w, 0.0302949, w, 0.00671401, w, 0.0026321, w,
0.00131905, w, 0.119177, w, 0.012046, w, 0.00383985, w, 0.0017433, w,
0.000948279
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
True
True
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
$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/4.0/"u003ecc by-sa 4.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
);
);
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%2f207847%2fflatten-an-array%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$
a = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
w /. a // Flatten
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
$endgroup$
add a comment
|
$begingroup$
a = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
w /. a // Flatten
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
$endgroup$
add a comment
|
$begingroup$
a = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
w /. a // Flatten
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
$endgroup$
a = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279
w /. a // Flatten
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
answered Oct 14 at 13:00
Jean-Claude ArbautJean-Claude Arbaut
2936 bronze badges
2936 bronze badges
add a comment
|
add a comment
|
$begingroup$
Flatten[lst][[All, -1]]
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
Also
Values @ Flatten @ lst
same result
Flatten @ Values @ lst
same result
Cases[lst, _Real, All]
same result
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
$endgroup$
add a comment
|
$begingroup$
Flatten[lst][[All, -1]]
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
Also
Values @ Flatten @ lst
same result
Flatten @ Values @ lst
same result
Cases[lst, _Real, All]
same result
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
$endgroup$
add a comment
|
$begingroup$
Flatten[lst][[All, -1]]
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
Also
Values @ Flatten @ lst
same result
Flatten @ Values @ lst
same result
Cases[lst, _Real, All]
same result
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
$endgroup$
Flatten[lst][[All, -1]]
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
Also
Values @ Flatten @ lst
same result
Flatten @ Values @ lst
same result
Cases[lst, _Real, All]
same result
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
edited Oct 14 at 18:37
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
answered Oct 14 at 13:01
kglrkglr
225k10 gold badges254 silver badges511 bronze badges
225k10 gold badges254 silver badges511 bronze badges
add a comment
|
add a comment
|
$begingroup$
For the general case where you only want rules with the left-hand-side 'w':
Cases[w->0.25,w->0.05,w->0.190065,w->0.0182686,w->0.0404842,w->0.0086731,w->0.156634,w->0.015429,w->0.00478921,w->0.0344873,w->0.00753932,w->0.00292085,w->0.134788,w->0.0134812,w->0.00424987,w->0.00191167,w->0.0302949,w->0.00671401,w->0.0026321,w->0.00131905,w->0.119177,w->0.012046,w->0.00383985,w->0.0017433,w->0.000948279,
(w->x_):>x,
[Infinity]
]
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
$endgroup$
add a comment
|
$begingroup$
For the general case where you only want rules with the left-hand-side 'w':
Cases[w->0.25,w->0.05,w->0.190065,w->0.0182686,w->0.0404842,w->0.0086731,w->0.156634,w->0.015429,w->0.00478921,w->0.0344873,w->0.00753932,w->0.00292085,w->0.134788,w->0.0134812,w->0.00424987,w->0.00191167,w->0.0302949,w->0.00671401,w->0.0026321,w->0.00131905,w->0.119177,w->0.012046,w->0.00383985,w->0.0017433,w->0.000948279,
(w->x_):>x,
[Infinity]
]
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
$endgroup$
add a comment
|
$begingroup$
For the general case where you only want rules with the left-hand-side 'w':
Cases[w->0.25,w->0.05,w->0.190065,w->0.0182686,w->0.0404842,w->0.0086731,w->0.156634,w->0.015429,w->0.00478921,w->0.0344873,w->0.00753932,w->0.00292085,w->0.134788,w->0.0134812,w->0.00424987,w->0.00191167,w->0.0302949,w->0.00671401,w->0.0026321,w->0.00131905,w->0.119177,w->0.012046,w->0.00383985,w->0.0017433,w->0.000948279,
(w->x_):>x,
[Infinity]
]
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
$endgroup$
For the general case where you only want rules with the left-hand-side 'w':
Cases[w->0.25,w->0.05,w->0.190065,w->0.0182686,w->0.0404842,w->0.0086731,w->0.156634,w->0.015429,w->0.00478921,w->0.0344873,w->0.00753932,w->0.00292085,w->0.134788,w->0.0134812,w->0.00424987,w->0.00191167,w->0.0302949,w->0.00671401,w->0.0026321,w->0.00131905,w->0.119177,w->0.012046,w->0.00383985,w->0.0017433,w->0.000948279,
(w->x_):>x,
[Infinity]
]
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
answered Oct 14 at 13:09
SHuismanSHuisman
6251 silver badge7 bronze badges
6251 silver badge7 bronze badges
add a comment
|
add a comment
|
$begingroup$
Another few ways centered around Level.
data = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279;
elems = Level[data, -1]
elems[[2 ;; ;; 2]]
Select[elems, NumericQ] == %
DeleteCases[elems, w] == %%
w, 0.25, w, 0.05, w, 0.190065, w, 0.0182686, w, 0.0404842, w,
0.0086731, w, 0.156634, w, 0.015429, w, 0.00478921, w, 0.0344873, w,
0.00753932, w, 0.00292085, w, 0.134788, w, 0.0134812, w, 0.00424987,
w, 0.00191167, w, 0.0302949, w, 0.00671401, w, 0.0026321, w,
0.00131905, w, 0.119177, w, 0.012046, w, 0.00383985, w, 0.0017433, w,
0.000948279
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
True
True
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
$endgroup$
add a comment
|
$begingroup$
Another few ways centered around Level.
data = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279;
elems = Level[data, -1]
elems[[2 ;; ;; 2]]
Select[elems, NumericQ] == %
DeleteCases[elems, w] == %%
w, 0.25, w, 0.05, w, 0.190065, w, 0.0182686, w, 0.0404842, w,
0.0086731, w, 0.156634, w, 0.015429, w, 0.00478921, w, 0.0344873, w,
0.00753932, w, 0.00292085, w, 0.134788, w, 0.0134812, w, 0.00424987,
w, 0.00191167, w, 0.0302949, w, 0.00671401, w, 0.0026321, w,
0.00131905, w, 0.119177, w, 0.012046, w, 0.00383985, w, 0.0017433, w,
0.000948279
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
True
True
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
$endgroup$
add a comment
|
$begingroup$
Another few ways centered around Level.
data = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279;
elems = Level[data, -1]
elems[[2 ;; ;; 2]]
Select[elems, NumericQ] == %
DeleteCases[elems, w] == %%
w, 0.25, w, 0.05, w, 0.190065, w, 0.0182686, w, 0.0404842, w,
0.0086731, w, 0.156634, w, 0.015429, w, 0.00478921, w, 0.0344873, w,
0.00753932, w, 0.00292085, w, 0.134788, w, 0.0134812, w, 0.00424987,
w, 0.00191167, w, 0.0302949, w, 0.00671401, w, 0.0026321, w,
0.00131905, w, 0.119177, w, 0.012046, w, 0.00383985, w, 0.0017433, w,
0.000948279
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
True
True
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
$endgroup$
Another few ways centered around Level.
data = w -> 0.25, w -> 0.05, w -> 0.190065, w ->
0.0182686, w -> 0.0404842, w -> 0.0086731, w ->
0.156634, w -> 0.015429, w -> 0.00478921, w ->
0.0344873, w -> 0.00753932, w -> 0.00292085, w ->
0.134788, w -> 0.0134812, w -> 0.00424987, w ->
0.00191167, w -> 0.0302949, w -> 0.00671401, w ->
0.0026321, w -> 0.00131905, w -> 0.119177, w ->
0.012046, w -> 0.00383985, w -> 0.0017433, w ->
0.000948279;
elems = Level[data, -1]
elems[[2 ;; ;; 2]]
Select[elems, NumericQ] == %
DeleteCases[elems, w] == %%
w, 0.25, w, 0.05, w, 0.190065, w, 0.0182686, w, 0.0404842, w,
0.0086731, w, 0.156634, w, 0.015429, w, 0.00478921, w, 0.0344873, w,
0.00753932, w, 0.00292085, w, 0.134788, w, 0.0134812, w, 0.00424987,
w, 0.00191167, w, 0.0302949, w, 0.00671401, w, 0.0026321, w,
0.00131905, w, 0.119177, w, 0.012046, w, 0.00383985, w, 0.0017433, w,
0.000948279
0.25, 0.05, 0.190065, 0.0182686, 0.0404842, 0.0086731, 0.156634,
0.015429, 0.00478921, 0.0344873, 0.00753932, 0.00292085, 0.134788,
0.0134812, 0.00424987, 0.00191167, 0.0302949, 0.00671401, 0.0026321,
0.00131905, 0.119177, 0.012046, 0.00383985, 0.0017433, 0.000948279
True
True
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
answered Oct 14 at 17:38
That Gravity GuyThat Gravity Guy
3,0411 gold badge6 silver badges17 bronze badges
3,0411 gold badge6 silver badges17 bronze badges
add a comment
|
add a comment
|
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%2f207847%2fflatten-an-array%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$
Values@list // FlattenorFlatten@list // ValuesorValues@Flatten@listorFlatten@Values@list$endgroup$
– OkkesDulgerci
Oct 14 at 15:11