• 題目五：九九乘法 （困難度：****)
• 「九九乘法」大概是每一個學程式設計，第一個會去練習的題目
• 程式：
•  to 9x9make "m 2make "n 1repeat 8[repeat 9[ print (list :m "X :n "= :m*:n)make "n :n+1if :n>9 [make "n 1]]make "m :m+1]end
• 你還有不同解法嗎？
• 如運用「while」來做！
• 如何調整，可以不用if :n>9 [make "n 1]那行！

• 題目六：算出「質數」 （困難度：*****)
• 「質數」是除了1與本身外，沒有其他的因數，如：2、3、5、7、11、13...
• 程式：
•  to prime :aprint 2make "b 3make "c :a-:b+1 repeat :c[make "d 2make "e :b-:dmake "f 0 repeat :e[make "g remainder :b :difelse :g=0 [make "e -1][make "d :d+1 make "f :f+1]]if :e=:f [print :b]make "b :b+1]end

• 題目七：猜數字遊戲 （困難度：******)
• 構想中：也就是電腦會亂數出一個四位數的數值，然後我們輸入一個猜測的數值，電腦會告知「幾A幾B」，一直到完全答對為止！

• 題目八：時鐘 （困難度：**********)
• 本程式取自http://lp95monica.live.com.tw/
•  TO AAACLOCKEND TO CLOCKCSHTDRAWFACEMAKE "SEC 0MAKE "MIN 0MAKE "HOUR 0PLOTTIMEHOUR :HOURPLOTTIMEMIN :MINPLOTTIMESEC :SECSETTIMER 1 1000 [UPDATE]END TO DRAWFACESETHEADING 30PUREPEAT 12 ~[~FD 120 ~SETX XCOR-12 ~SETY YCOR+12 ~MAKE "SH HEADINGSETHEADING 90LABEL REPCOUNT ~SETHEADING :SHSETX XCOR+12 ~SETY YCOR-12 ~BK 120 ~RT 30 ~]END TO GETTIMEMAKE "THETIME TIMEMAKE "THETIME BUTFIRST :THETIMEMAKE "THETIME BUTFIRST :THETIMEMAKE "THETIME BUTFIRST :THETIMEMAKE "THETIME FIRST :THETIMEMAKE "THETIME PARSE MAP "OO :THETIMEOUTPUT :THETIMEEND TO OO :AIFELSE EQUALP ": :A [OUTPUT CHAR 32] [OUTPUT :A]END TO PLOTTIMEHOUR :HOURPENREVERSESETPENSIZE [5 5]SETHEADING :HOUR*30PDFD 50PUBK 50END TO PLOTTIMEMIN :MINPENREVERSESETPENSIZE [2 2]SETHEADING :MIN*6PDFD 100PUBK 100END TO PLOTTIMESEC :SECPENREVERSESETPENSIZE [1 1]SETHEADING :SEC*6PDFD 100PUBK 100END TO UPDATEMAKE "THETIME GETTIMEMAKE "NHOUR FIRST :THETIMEMAKE "THETIME BUTFIRST :THETIMEMAKE "NMIN FIRST :THETIMEMAKE "THETIME BUTFIRST :THETIMEMAKE "NSEC FIRST :THETIMEPLOTTIMESEC :SECIF NOT EQUALP :MIN :NMIN~[~PLOTTIMEMIN :MIN ~IF NOT EQUALP :HOUR :NHOUR~[~PLOTTIMEHOUR :HOUR ~PLOTTIMEHOUR :NHOUR ~]~PLOTTIMEMIN :NMIN ~]PLOTTIMESEC :NSECMAKE "HOUR :NHOURMAKE "MIN :NMINMAKE "SEC :NSECEND TO ZZZIFELSE YESNOBOX [WELCOME] [CHOOSE YES TO RUN EXAMPLE NOW, CHOOSE NO STUDY IT NOW.] [AAA] [EDALL]END MAKE "STARTUP [ZZZ]