Problem 242. Make a function that returns its own character count

Solution 63358

Submitted on 20 Mar 2012 by Alfonso Nieto-Castanon

Size: 49
Leading solution size is 8.

This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Solve This Problem View on Solution Map

1 Comment

1 Comment

Alfonso Nieto-Castanon on 20 Mar 2012

sorry for cheating, David's entry made me do it :)

Test Suite

Test	Status	Code Input and Output
1	Pass	fname = 'omphaloskeptic.m'; fid = fopen(fname); file = textscan(fid,'%c', ... 'CommentStyle','%', ... 'Whitespace',''); fclose(fid); ha = histc(file{1},1:128); hp = omphaloskeptic; assert(~any(ismember(33:41,find(ha))),'Used an illegal character'); assert(isequal(ha,hp),'Actual characters did not match prediction'); ans = 'function x=omphaloskeptic' 'x=0;a=[];' 'for i=1:128,a=[a;i];end' 'importdata omphaloskeptic.m' 'for i=[ans{:}],x=x+[i==a];end' 'end'

Test

Status

Code Input and Output

Pass

fname = 'omphaloskeptic.m'; fid = fopen(fname); file = textscan(fid,'%c', ... 'CommentStyle','%', ... 'Whitespace',''); fclose(fid); ha = histc(file{1},1:128); hp = omphaloskeptic; assert(~any(ismember(33:41,find(ha))),'Used an illegal character'); assert(isequal(ha,hp),'Actual characters did not match prediction');

ans = 'function x=omphaloskeptic' 'x=0;a=[];' 'for i=1:128,a=[a;i];end' 'importdata omphaloskeptic.m' 'for i=[ans{:}],x=x+[i==a];end' 'end'

Problem 242. Make a function that returns its own character count

Test Suite

Suggested Problems

More from this Author49

Problem 242. Make a function that returns its own character count

Test Suite

Suggested Problems

More from this Author49

Players