#include <stdio.h>

#define MAX_TERMS 10
#define MAX_LEN   10

//#define SHOWALL

int noterms,mat[MAX_TERMS+1][MAX_LEN],nolen[MAX_TERMS+1],c[MAX_TERMS+1];
int noch=0,ch[10],dig[10],zeroflag[10];
int solcnt=0,ex[MAX_TERMS+1];

int lookup(char c)
{
	int i;

	for(i=0;i<noch;i++)
		if (c==ch[i])
			return i;
	if (noch==10) {
		printf("Too many different letters!\n");
		exit(-1);
	}
	ch[noch]=c;
	return noch++;
}

void show(int *w)
{
	int i,j;
	printf("\n");
	for(i=0;i<=noterms;i++) {
		printf("%c%*d\n",(i==noterms-1)?'+':' ',nolen[noterms],w[i]);
		if (i==noterms-1) {
			for(j=0;j<=nolen[noterms];j++)
				printf("-");
			printf("\n");
		}
	}
}

void verify(void)
{
	int i,j,v,mul,tot=0,w[MAX_TERMS+1];
	for(i=0;i<=noterms;i++) {
		v=c[i];
		for(j=0,mul=1;j<nolen[i];j++,mul*=10)
			if (mat[i][j]>=0)
				v+=mul*dig[mat[i][j]];
		w[i]=v;
		tot+=v*((i<noterms)?1:-1);
	}
	if (!tot) {
#ifdef SHOWALL		
		show(w);
#endif
		memcpy(ex,w,sizeof(w));
		solcnt++;
	}
}

void permute(int cur, int mask)
{
	int i;
	if (cur==noch) {
		verify();
		return;
	}
	for(i=zeroflag[cur];i<10;i++)
		if (!(mask&(1<<i))) {
			dig[cur]=i;
			permute(cur+1,mask|(1<<i));
		}
}

int main(void)
{
	int i,j,k,len,mul;
	char s[15];
	
	noch=0;
	memset(mat,-1,sizeof(mat));
	memset(c,0,sizeof(c));
	memset(zeroflag,0,sizeof(zeroflag));
	
	printf("Antal termer: ");
	scanf("%d",&noterms);
	for(i=0;i<=noterms;i++) {
		if (i<noterms)
			printf("Term %d: ",i+1);
		else
			printf("Summa : ");
		scanf("%s",s);
		len=strlen(s);
		nolen[i]=len;
		mul=1;
		if ((s[0]<'0') || (s[0]>'9'))
			zeroflag[lookup(s[0])]=1;
		for(j=len-1;j>=0;j--,mul*=10) {
			if ((s[j]>='0') && (s[j]<='9'))
				c[i]+=mul*(s[j]-'0');
			else
				mat[i][len-1-j]=lookup(s[j]);			
		}
	}	
	printf("\n");
	permute(0,0);
	if (!solcnt)
		printf("Olöslig!\n");
	else {
		printf("Det finns %d
lösning%s.\n",solcnt,(solcnt>1)?"ar":"");
#ifndef SHOWALL		
		show(ex);
#endif		
	}
	
	return 0;
}