dizzarg

import Data.List


minfree xs = minform 0 (length xs, xs)

minform a (n, xs) | n==0 = a
                  | m == b-a = minform b (n-m, vs)
                  | otherwise = minform a (m, us)
                  where (us,vs) = partition (<b) xs
                        b = a+1+n `div` 2

dizzarg

Manifest-Version: 1.0
Class-Path: jcommon-1.0.17.jar jfreechart-1.0.15.jar
Main-Class: candle.stick.app.Program

dizzarg

<?xml version="1.0" encoding="UTF-8"?>
<module type="JAVA_MODULE" version="4">
  <component name="NewModuleRootManager" inherit-compiler-output="true">
    <exclude-output />
    <content url="file://$MODULE_DIR$">
      <sourceFolder url="file://$MODULE_DIR$/java" isTestSource="false" />
    </content>
    <orderEntry type="jdk" jdkName="1.7" jdkType="JavaSDK" />
    <orderEntry type="sourceFolder" forTests="false" />
  </component>