Search Results

I have started setting up a solver in Mathematica to find an optimal solution. …

Accessing named arguments (new in V10) One of the major new language features in Mathematica 10 is Associations, which are basically key-value maps with arbitrary key types, written like <| x -> 1, "abc … In fact, the shortest Mathematica quine (I know of) is ToString[#0][] & [] What's slightly annoying is that it won't give you the exact characters you entered. …

For those with a little linear algebra background, the challenge is as simple as this: determine the eigenvalues and eigenvectors of a given complex 2x2 matrix. You may skip ahead to The Challenge for …

After writing a reference implementation in Mathematica, I thought this is a fun exercise to do as a separate challenge though, so here we go. Let's build a numeric fission reactor! …

The reason this works is that , introduces two arguments to the list, but omitted arguments (anywhere in Mathematica) are implicit Nulls. …

Mathematica, 23 bytes QemordnilaP;PalindromeQ Not very interesting, but for the sake of completeness... …

So instead I wrote a solver in Mathematica which actually knows about the Pada data structures and operators to find an optimal solution. … Here is the full Mathematica if anyone ever wants to metagolf a different string in Pada: string = "Hello, World!" …

Homebrewing History of Science and Math Islam Italian Language Stack Overflow in Japanese Japanese Language Joomla Mi Yodeya Linguistics Magento Martial Arts Mathematics Mathematics Educators Mathematica …

Mathematica, 33 28 bytes f:=Input[]/._?FileExistsQ:>f This assumes Mathematica's notebook environment where we can query input from the user with Input[]. … The upside is that the input can be an arbitrary Mathematica expression that computes the input string. …

Wolfram Language (Mathematica), 30 bytes And@@#/@#2~IntegerDigits~1000& Try it online! …

Wolfram Language (Mathematica), 54 bytes Max@SequenceCases[#,{a_,b___,a_}:>2a+b,Overlaps->All]& Try it online! …

Wolfram Language (Mathematica), 45 bytes CompositeQ@#&&Binomial~Array~{#-1,#}~FreeQ~#& Try it online! Every composite number n appears exactly twice on row n and cannot appear afterwards. …

Wolfram Language (Mathematica), 35 bytes Or@@Array[x~Mod~#==1<x/#^2<#&,x=#]& Try it online! Explicitly checks whether n % i = 1 and i2 < n < i3 for any possible base i. …

Wolfram Language (Mathematica), 52 45 bytes ToExpression@*StringReplace[{"["->"Prime[1"}] Try it online! Input uses brackets. … Transforms the input into a Mathematica expression that computes the result. We do this simply by replacing [ with Prime[1. This works because concatenation is multiplication in Mathematica. …

Wolfram Language (Mathematica), 55 bytes ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Try it online!  is the transpose operator (and displays as a superscript T in Mathematica). …