Basic Examples (1) 

Write something in Morse code:

In[1]:=

Out[1]=

Scope (17) 

Say Hello World:

In[2]:=

$Username"Peter"$Username

Out[2]=

Join a string with its reversal:

In[3]:=

Out[3]=

In[4]:=

Out[4]=

In[5]:=

Out[5]=

In[6]:=

Out[6]=

Join a hello string with its reversal:

In[7]:=

SayHello["world"]"Hello world!"SayHello["world"]

Out[7]=

Find the maximum length of any roman numeral up to 3000:

In[8]:=

Out[8]=

Stack successively longer lists of integers on top of each other:

In[9]:=

Out[9]=

Replace multiples of 3 with fizz and multiples of 5 with buzz and multiples of 3 and 5 with fizz-buzz:

In[10]:=

Out[10]=

Find the number of multiples of 3 and 5 up to ⌈ⅇ¹²⌉:

In[11]:=

Ceiling[ⅇ¹²]162755Ceiling[ⅇ¹²]

Out[11]=

Find all words that begin and end with a given letter in WordList:

In[12]:=

Out[12]=

WordListLookup is to DictionaryLookup as WordList[] is to DictionaryLookup[]:

In[13]:=

Out[13]=

Test if an integer is a palindrome:

In[14]:=

Out[14]=

Test if 2015 is a palindrome in base 2, binary:

In[15]:=

Out[15]=

Write the first sentence of the Genesis KJV in Morse code:

In[16]:=

Out[16]=

In[17]:=

Out[17]=

Iteratively sum and square all integers from 1 to 10:

In[18]:=

Out[18]=

Test if input is a positive integer:

In[19]:=

Out[19]=

In[20]:=

Out[20]=

In[21]:=

Out[21]=

Find all ways to score 21 points with two pointers and three pointers in basketball:

In[22]:=

Out[22]=

Rearrange a list of integers so all odd integers appear before all even integers, without changing the order otherwise:

In[23]:=

Array[Fibonacci,20]{1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765}Array[Fibonacci,20]

Out[23]=

Find all distinct pairs that sum to 100 in a list of integers:

In[24]:=

Out[24]=