Minkowski question-mark function: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added some comments.) |
m (→{{header|REXX}}: changed use of INT to FLOOR.) |
||
| Line 379: | Line 379: | ||
else do; $= $ count; count= 1; curr= 0 |
else do; $= $ count; count= 1; curr= 0 |
||
end |
end |
||
if x=x |
if x==floor(x) then do; $= $ count |
||
leave |
leave |
||
end |
end |
||
end /*until*/ |
end /*until*/ |
||