Evaluate
Evaluate Cell
Cut
Copy
Copy as
Plain Text
Input Text
Image
Paste
Convert to
InputForm
StandardForm
TraditionalForm
Image
Clear Formatting
Formatting...
Divide Cell
Merge Cells
Publish/Share Cell
Embed...
Email Cell to
Me
Others...
Email Cell...
Deploy Cell as
Instant API
Instant Web Computation
Instant Web Form
Embeddable Code
Advanced
Show Cell Expression...
Cell Update History...

    How to Teach Computational Thinking

    Try It Yourself

    This document is a live “notebook” that mixes text and code. You can run any piece of code by clicking inside the code, then pressing +.

    ​​See

    here
     for a basic introduction.

    ​

    Compute 2+2:

    2+2
    ​

    Raise 12 to the power 123:

    12^123
    ​

    Make a list of numbers from 1 to 10:

    Range[10]
    ​

    Make a list of numbers from 1 to 1000:

    Range[1000]
    ​

    Plot the list of numbers:

    ListPlot[Range[10]]
    ​

    Make a table of the first 20 primes:

    Table[Prime[n],{n,20}]
    ​

    Plot the table of primes:

    ListPlot[Table[Prime[n],{n,20}]]
    ​

    A list of colors:

    {Red,Green,Blue}
    ​

    Blend red and blue:

    Blend[{Red,Blue}]
    ​

    Capture the current image from your computer:

    CurrentImage[]
    ​

    Detect edges in the current image:

    EdgeDetect[CurrentImage[]]
    ​

    Make a table of colors with different hues:

    Table[Hue[n],{n,0,1,1/20}]
    ​

    Get a list of common words in English:

    WordList[]
    ​

    Pick out 10 random words:

    RandomWord[10]
    ​

    Take the first letter of all words:

    StringTake[WordList[],1]
    ​

    Make a word cloud of the frequencies of first letters:

    WordCloud[StringTake[WordList[],1]]
    ​

    Make a word cloud of the frequencies of up to 2 letters at the beginning of words:

    WordCloud[StringTake[WordList[],UpTo[2]]]
    ​

    Translate the word “hello” into hundreds of languages:

    WordTranslation["hello",All]
    ​

    Visualize the populations of countries in Europe using flag sizes:

    ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]
    ​

    Show where in color space the flags lie:

    ChromaticityPlot[ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]]
    ​

    Draw a 100-mile disk around the Eiffel Tower:

    GeoGraphicsGeoDisk
    Eiffel Tower
    (building)
    ,
    100mi
    
    ​

    Show disks with sizes going up by factors of 10 around the Eiffel Tower:

    TableGeoGraphicsGeoDisk
    Eiffel Tower
    (building)
    ,10
    n
    0.1mi
    ,{n,0,4}
    ​

    Show the relative frequencies of “horse” and “car” in books over time:

    DateListPlot[WordFrequencyData[{"horse","car"},"TimeSeries"]]
    ​

    Make 3D graphics of a sphere:

    Graphics3D[Sphere[]]
    ​

    Make 3D graphics of 100 randomly placed spheres:

    Graphics3D[Table[Style[Sphere[RandomReal[10,3]],RandomColor[]],100]]
    ​

    Make an interactive “Cyclops eye”:

    Manipulate[Graphics[{Style[Disk[{0,0},1],Yellow],Style[Disk[{0,0},r],Black]}],{r,0,1}]
    ​

    Make sound from 20 random musical notes:

    Sound[Table[SoundNote[RandomInteger[20],0.1],{n,20}]]
    ​

    Make a 3D-rotatable anatomical picture of a left hand:

    AnatomyPlot3D
    left hand
    (anatomical structure)
    
    ​

    Learn to code with the in-product version of Stephen Wolfram’s book ​
    An Elementary Introduction to the Wolfram Language. Get started by clicking the “Introductory Book” icon at the top of the page.