WOLFRAM

Announcing the Winners of the 2023 One-Liner and Get Visual Competitions

Announcing the Winners of the 2023 One-Liner and Get Visual Competitions

With another Wolfram Technology Conference comes the latest round of the annual One-Liner Competition. Participants are challenged to show off their Wolfram Language skills in this contest of brevity and creativity by using only 140 or fewer characters to share the most incredible and original output.

This year also featured the second-ever Get Visual Competition, where users flex their artistic flair to create a piece of computational art without a character restriction.

In both competitions, entries from conference participants were judged anonymously by Wolfram staff. Judging criteria were based on aesthetics, understanding of the output and original use of Wolfram Language.

One-Liner Competition

The One-Liner Competition tests a user’s ability to create a unique and exciting output in 140 or fewer characters without using 2D typesetting constructs or pulling in linked data.

Third Place

Oliver Knill: Graph Counter (133 characters)

Oliver Knill, also a winner of this year’s Innovator Awards, submitted a function that counts the number of complete subgraphs within a graph and returns it in a polynomial function form. Knill submitted his 133-character line as a function and included an example of the function in use. The judges appreciated his originality and use of recursive function definition as well as the challenge of deciphering the short code:

Engage with the code in this post by downloading the Wolfram Notebook
f[s_,x_]

WheelGraph, Graph

f, Plus

Second Place

Dashel Myers: Animating a Contour Plot (137 characters)

Dashel Myers created a stunning visual in just 137 characters with his animated contour plot. Judges enjoyed the kaleidoscope-like output and found the boxy visual to be amusing:

Animate[ContourPlot

First Place

Catalin Popescu: LLM Zoo (140 characters)

Catalin Popescu, who received an honorable mention in 2020’s One-Liner Competition, was this year’s first-place winner with LLM Zoo. At exactly 140 characters, this one-liner utilizes one of the new LLM functions to select six random animals and combine them two at a time. Judges found this submission extremely amusing and had a lot of fun running it over and over to see the wacky combinations it produced:

ImageSynthesize

Get Visual Competition

Guenther Gsaller: Atrium

Guenther Gsaller is no stranger to uniting Wolfram Language and the visual arts. Gsaller’s submission to the Get Visual Competition featured his hand at architecture with an atrium developed in Wolfram and then rendered in Blender, a 3D graphics software. He has been recognized as a featured contributor on Wolfram Community many times for his series of posts on animating Wolfram surfaces with Blender and on the Wolfram Blog.

Atrium

Share Your Own Creations

Congratulations to the winners and all who participated in this year’s competitions! We look forward to seeing next year’s submissions. Until then, we encourage you to share your own one-liners and computational art at Wolfram Community.

Visit Wolfram Community or the Wolfram Function Repository to embark on your own computational adventures!

Comments

Join the discussion

!Please enter your comment (at least 5 characters).

!Please enter your name.

!Please enter a valid email address.

1 comment

  1. Even within the 140 character restriction the Knill function should name t as module variable, because it is given down the recursion:

    f[s_, x_] := Module[{v=VertexList[s], t}, …]

    This gives a slight Timing[] advantage over the original. Without the 140 character restriction I would shelf it as

    f[s_?GraphQ, x_Symbol] := Module[{v = VertexList[s], t},
    1 + Integrate[Sum[f[VertexDelete[NeighborhoodGraph[s, v[[k]]], v[[k]]], t], {k, Length[v]}], {t, 0, x}]
    ]

    In[6]:= (* first the modification *)
    Timing[f[GraphJoin[WheelGraph[4], WheelGraph[5]], x]]
    Out[6]= {20.7656, 1 + 9 x + 34 x^2 + 70 x^3 + 85 x^4 + 61 x^5 + 24 x^6 + 4 x^7}

    In[7]:= (* then the original,called f2 *)
    Timing[f2[GraphJoin[WheelGraph[4], WheelGraph[5]], x]]
    Out[7]= {21.2656, 1 + 9 x + 34 x^2 + 70 x^3 + 85 x^4 + 61 x^5 + 24 x^6 + 4 x^7}

    In[8]:= $Version
    Out[8]= “13.3.1 for Microsoft Windows (64-bit) (July 24, 2023)”

    Reply