prog

frontpage - thread list - new thread - preferences - ?
The Forced Indentation Of Code

26 2022-02-02 21:44
scheme@(guile-user)> ((λ (a) (let ((A (λ (n) (modulo n a))) (B (λ (n) (floor (/ n a)))) (M (floor (/ a 2)))) (for-each (λ (n) (display (if (or (= (A n) M) (= (B n) M) (and (= (A n) 0) (<= (B n) M)) (and (= (A n) (- a 1)) (> (B n) M)) (and (= (B n) 0) (>= (A n) M)) (and (= (B n) (- a 1)) (< (A n) M))) "lol" "   ")) (if (= (modulo n a) (- a 1)) (newline) (display " "))) (iota (* a a))))) 15)
lol                         lol lol lol lol lol lol lol lol
lol                         lol                            
lol                         lol                            
lol                         lol                            
lol                         lol                            
lol                         lol                            
lol                         lol                            
lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol
                            lol                         lol
                            lol                         lol
                            lol                         lol
                            lol                         lol
                            lol                         lol
                            lol                         lol
lol lol lol lol lol lol lol lol                         lol
267