Code Golf -- Roman Numeral Line Segments

[makka]

Code Golf Link[codegolf.stackexchange.com]

Write a program or function that accepts an integer in the range 1..3999 as input and returns the number of line segments required to express that integer in standard Roman numerals.

Discuss and leave solutions in the thread.

[makka]

C, 129 chars

d,x,n[]={1000,900,500,400,100,90,50,40,10,9,5,4,1,4,5,2,3,1,3,2,4,2,3,2,3,1};f(c){while(d+=(c/n[x])*n[x+13],c%=n[x++]);return d;}

C is clearly the best golfing language