RETRO Quick Reference

Displaying Things

Numbers

=> =====

#100 n:put

Characters

=> ========

$a c:put

Strings

=> =====

'hello,_world s:put

Mixed

=> ===

#1 #2 #3  '%n_-_%n_=_%n\n s:format s:put

'Charles' 'Hello_%s\n     s:format s:put

Conditionals

Equality

=> ======

#2 #3 eq?

Inequality

=> ========

#3 #4 -eq?

Greather Than

=> ===========

#3 #4 gt?

Less Than

=> =======

#3 #4 lt?

Greater Than or Equal To

=> ======================

#3 #4 gteq?

Less Than or Equal To

=> ===================

#3 #4 lteq?

String Equality

=> =============

'hello  'world  s:eq?

String Inequality

=> ===============

'hello  'world  s:eq? not

If / Then

=> =======

#1 #2 eq? [ 'true  ] [ 'false ] choose

#1 #2 eq? [ 'true  ] if

#1 #2 eq? [ 'false ] -if

Multiple Comparisons

=> ==================

[ @Base

   #8  [ 'octal       ] case

  #10  [ 'decimal     ] case

  #16  [ 'hexadecimal ] case

  drop (default_case)

] call

Function Defintions

Quotes (Anonymous)

=> ================

[  (code)  ]

Quotes can be nested.

Named

=> ===

:name  (stack_comment)

  (code) ;

Quotes can be nested inside a named function.

Loops

Unconditional

=> ===========

repeat (code) again

Conditional loops are generally preferable.

Counted

=> =====

(simple,_no_index_on_stack)

#10 [ $a c:put ] times

Conditional

=> =========

#10 [ n:dec dup n:put dup n:-zero? ] while

Math

Addition

=> ======

#100 #200 +

Subtraction

=> =========

#400 #32 -

Multiplication

=> ============

#98 #12 *

Division

=> ======

#200 #4 /

Remainder

=> =======

#203 #4 mod

Power

=> ===

Raise 3 to the second power.

#3 #2 n:pow

Absolute Value

=> ============

#-76 n:abs

Minimum and Maximum Value

=> =======================

#34 #8 n:min

#34 #8 n:max