repo.or.cz
/
shapes.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix Makefile whitespace errors
[shapes.git]
/
examples
/
doc
/
structure-text.shape
blob
da9d8e9a9325a01cf4332280504660a3481fd73d
1
##lookin ..Shapes
2
3
factorial: \ n → [if ( n = '0 ) '1 ( n * [factorial n-'1] )]
4
IO..•stdout << [factorial '5] << "{n}
5
6
Graphics..@spot /** Avoid empty-output error in graphics mode. **/