Simple Examples

Hello World

"Hello World" run

Factorial

5 range-from-1 (multiply) reduce run

Fibonacci

1 1 30 (*non-restoring dup arg-b add) call-n-times run

Less Simple Examples

Primes

100 range-from-1 rest (gcd 1 neq) uniq-by run

Subsequences

naturals prefixes (suffixes) map flatten uniq 100 take run

Sort (long form)

"hgbfaecd" permutations (string-to-list dup rest zip (*exploding lte) map all) filter first run

Not Simple Examples

Find Non-Lychrel Numbers

1186060307891929990 (dup int-to-str-base-10 reverse str-to-int-base-10 dup-top-two neq (*non-restoring add) if) fixpoint run

Eight Queens

8 range permutations (with-index (sum) map uniq arg-a with-index (*exploding subtract) map uniq concatenate length) keep-maxes-by run