Submission #3458033

---

Source Code Expand

var
	a,b:int64;
function f(n:int64):int64;
var
	i,j,k,c,l:Longint;
	dp:array[1..20,1..2]of int64;
	s:array[1..20]of Longint;
begin
	for i:=20 downto 1 do begin
		s[i]:=n mod 10;
		n:=n div 10;
		dp[i,1]:=0;
		dp[i,2]:=0;
	end;
	dp[1,1]:=1;
	for i:=1 to 19 do begin
		for j:=1 to 2 do begin
			l:=s[i+1];
			if j=2 then l:=9;
			for k:=0 to l do begin
				if(k=4)or(k=9)then continue;
				c:=1;
				if(j=2)or(k<s[i+1])then c:=2;
				inc(dp[i+1,c],dp[i,j]);
			end;
		end;
	end;
	f:=dp[20,1]+dp[20,2];
end;
begin
	read(a,b);
	writeln(b-a+1-f(b)+f(a-1));
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result