Melody D'Amour
Ames Brs #5 hit 1957 - nice sweet song
lord@rabbit-3 ~ % fala
a,d,e,f,i,l,m,o,r,s
6 5 4 8 0 9 7 2 3 1
Program
program fala
implicit none
integer a,d,e,f,i,l,m,o,r,s,do,re,
1 fa,si,sol,mi,fa1,sol1,mi1
do a = 0,9
do 1 d = 0,9
if(d.eq.a)go to 1
do 2 e = 0,9
if(e.eq.d.or.e.eq.a)go to 2
do 3 f = 0,9
if(f.eq.e.or.f.eq.d.or.f.eq.a)go to 3
do 4 i = 0,9
if(i.eq.f.or.i.eq.e.or.i.eq.d.or.
1 i.eq.a)go to 4
do 5 l = 0,9
if(l.eq.i.or.l.eq.f.or.l.eq.e.or.
1 l.eq.d.or.l.eq.a)go to 5
do 6 m = 0,9
if(m.eq.l.or.m.eq.i.or.m.eq.f.or.
1 m.eq.e.or.m.eq.d.or.m.eq.a)go to 6
do 7 o = 0,9
if(o.eq.m.or.o.eq.l.or.o.eq.i.or.
1 o.eq.f.or.o.eq.e.or.o.eq.d.or.
1 o.eq.a)go to 7
do 8 r = 0,9
if(r.eq.o.or.r.eq.m.or.r.eq.l.or.
1 r.eq.i.or.r.eq.f.or.r.eq.e.or.
1 r.eq.d.or.r.eq.a)go to 8
do 9 s = 0,9
if(s.eq.r.or.s.eq.o.or.s.eq.m.or.
1 s.eq.l.or.s.eq.i.or.s.eq.f.or.
1 s.eq.e.or.s.eq.d.or.s.eq.a)go to 9
do=10*d+o
re=10*r+e
fa=10*f+a
sol=100*s+10*o+l
mi=10*m+i
si=10*s+i
fa1=do+re
sol1=fa+re+si-1
mi1=7*si
if(fa.eq.fa1.and.sol.eq.sol1.and.mi.eq.mi1)
1 print 10,a,d,e,f,i,l,m,o,r,s
10 format('a,d,e,f,i,l,m,o,r,s',/,10(i2))
9 enddo
8 enddo
7 enddo
6 enddo
5 enddo
4 enddo
3 enddo
2 enddo
1 enddo
enddo
end
Edited on June 6, 2020, 10:26 pm
soln (spoiler)
