repl.it
@anonymous/

SolidFirmDarklingbeetle

Forth

No description

fork
loading
main.fth
1
2
3
4
5
6
7
8
9
10
11
12
13
\ (n*n-1<<n-1)+1
: f dup dup * 1- over 1- << 1+ ;

1 f .
2 f .
3 f .
4 f .
5 f .
6 f .
7 f .
8 f .
9 f .
10 f .
JS-Forth 0.5200804171342 http://www.forthfreak.net/jsforth.html This program is published under the GPL.
?