Reputation
2,633
Top tag
Next privilege 3,000 Rep.
Cast close & reopen votes
Badges
1 9 29
Impact
~38k people reached

  • 0 posts edited
  • 0 helpful flags
  • 259 votes cast
May
7
awarded  Popular Question
Mar
22
awarded  Famous Question
Mar
17
awarded  Nice Question
Jan
18
awarded  Yearling
Oct
28
awarded  Popular Question
Sep
24
awarded  Autobiographer
Jul
21
awarded  Notable Question
Jul
2
awarded  Inquisitive
Jul
2
awarded  Curious
Apr
15
awarded  Good Question
Jan
22
accepted Has Mathematica a function to compute the Smith Normal Form?
Jan
22
comment Has Mathematica a function to compute the Smith Normal Form?
Coded in 1994 and it still works in Mathematica 9, that's how it should be.
Jan
22
asked Has Mathematica a function to compute the Smith Normal Form?
Jan
18
awarded  Yearling
Jan
13
awarded  Favorite Question
Nov
23
comment How to insert / merge a list into another list?
It is much faster than my previous ( but more beautiful ) choice: insertSeqA[x_, y_, n_] := FlattenAt[Insert[x, y, n], n]; insertSeqB[x_, y_, n_] := Join[x[[1 ;; n - 1]], y, x[[n ;; -1]]] Timing[insertSeqA[Flatten[Array[{#1, #2} &, {1000, 1000}], 1], Flatten[Array[{#1, #2} &, {100, 100}], 1], 1000];] Timing[insertSeqB[Flatten[Array[{#1, #2} &, {1000, 1000}], 1], Flatten[Array[{#1, #2} &, {100, 100}], 1], 1000];]
Nov
23
comment How to insert / merge a list into another list?
I did not know about the function FlattenAt, I like the third option. ( Imagine I hadn't asked the question. )
Nov
23
comment How to insert / merge a list into another list?
I made an error, but have edited it, sorry.
Nov
23
asked How to insert / merge a list into another list?
Nov
23
accepted How to find the longest matching sublists in a list