N G C D ( N A , N B ) I A = N A I B = N B 1 I F ( I B . N E . 0 ) T H E N I T E M P = I A I A = I B I B = M O D ( I T E M P , I B ) G O T O 1 E N D I F N G C D = I A R E T U R N E N D
b o n a c c i ( N ) ( i f ( o r ( z e r o p N ) ( = N 1 ) ) 1 ( l e t ( ( F 1 ( f i b o n a c c i ( N 1 ) ) ) ( F 2 ( f i b o n a c c i ( N 2 ) ) ) ) ( + F 1 F 2 ) ) ) ) < a s i d e c l a s s = " n o t e s " > c l o j u r e : m o d e r n d a y < / a s i d e >
t e p 1 u n t i l m d o i f a b s ( a [ p , q ] ) > y t h e n b e g i n y : = a b s ( a [ p , q ] ) ; i : = p ; k : = q e n d Structure in the language: Nested block structure Lexical scoping