Changeset 39381 in project
- Timestamp:
- 11/25/20 19:21:19 (8 weeks ago)
- Location:
- release/5/fx-utils/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/fx-utils/trunk/fx-utils.egg
r38959 r39381 3 3 4 4 ((synopsis "fx utilities") 5 (version "4.0. 0")6 (category m isc)5 (version "4.0.1") 6 (category math) 7 7 (author "[[kon lovett]]") 8 8 (license "BSD") -
release/5/fx-utils/trunk/fx-utils.scm
r38796 r39381 143 143 (: fx% (fixnum fixnum --> fixnum)) 144 144 ; 145 (define (fx% n p) 146 (fx/ (fx* p n) 100) ) 145 (define (fx% n p) (fx/ (fx* p n) 100)) 147 146 148 147 ;; … … 155 154 ((fx= 1 n) 1) 156 155 ((fx= 2 n) 1) 157 (else 158 (fx+ (fx! (fx- n 1)) (fx! (fx- n 2))) ) ) ) 156 (else (fx+ (fx! (fx- n 1)) (fx! (fx- n 2)))) ) ) 159 157 |# 160 158
Note: See TracChangeset
for help on using the changeset viewer.