Cody

# Problem 1826. Find vampire numbers

Solution 305722

Submitted on 17 Aug 2013 by Alfonso Nieto-Castanon
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

### Test Suite

Test Status Code Input and Output
1   Pass
%% x = 1000:2000; v = find_vampire(x); v_correct = [1260 1395 1435 1530 1827]; assert(isequal(v,v_correct))

``` ```

2   Pass
%% x = 1:999; v = find_vampire(x); assert(isempty(v))

``` ```

3   Pass
%% x = reshape(2000:2999,100,[]); v = find_vampire(x); v_correct = 2187; assert(isequal(v,v_correct))

``` ```

4   Pass
%% x = []; v = find_vampire(x); assert(isempty(v))

``` ```

5   Pass
%% x = -2000:-1000; v = find_vampire(x); assert(isempty(v))

```[Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at 231 In verifyCode at 40 In fevalJSON at 14] [Warning: Colon operands must be real scalars.] [> In find_vampire>@(a)any(arrayfun(@(i)~rem(a,i)&&(rem(a,100)|rem(i,10))&&isequal(sort(num2str(a)),sort(sprintf('%d',i,a/i))),10^floor(log10(a)/2):sqrt(a))) at 2 In find_vampire at 2 In verifyCode>evaluateCode at ...```

6   Pass
%% x = 125000:125501; v = find_vampire(x); v_correct = [125248 125433 125460 125500]; assert(isequal(v,v_correct))

``` ```