8 lines
185 B
Factor
8 lines
185 B
Factor
|
USING: assocs formatting kernel math namespaces ;
|
||
|
|
|
||
|
|
0 0
|
||
|
|
global [
|
||
|
|
nip dup integer? [ + [ 1 + ] dip ] [ drop ] if
|
||
|
|
] assoc-each
|
||
|
|
"There are %d integer variables, the sum is %d\n" printf
|