├── .gitignore
├── ApplicativeSwift.xcodeproj
    ├── project.pbxproj
    ├── project.xcworkspace
    │   └── contents.xcworkspacedata
    └── xcshareddata
    │   └── xcschemes
    │       └── ApplicativeSwift.xcscheme
├── ApplicativeSwift
    ├── Applicative.swift
    ├── ApplicativeSwift.h
    └── Info.plist
├── ApplicativeSwiftTests
    ├── ApplicativeSwiftTests.swift
    └── Info.plist
├── LICENSE
└── README.md


/.gitignore:
--------------------------------------------------------------------------------
 1 | # Xcode
 2 | #
 3 | build/
 4 | *.pbxuser
 5 | !default.pbxuser
 6 | *.mode1v3
 7 | !default.mode1v3
 8 | *.mode2v3
 9 | !default.mode2v3
10 | *.perspectivev3
11 | !default.perspectivev3
12 | xcuserdata
13 | *.xccheckout
14 | *.moved-aside
15 | DerivedData
16 | *.hmap
17 | *.ipa
18 | *.xcuserstate
19 | 
20 | # CocoaPods
21 | #
22 | # We recommend against adding the Pods directory to your .gitignore. However
23 | # you should judge for yourself, the pros and cons are mentioned at:
24 | # http://guides.cocoapods.org/using/using-cocoapods.html#should-i-ignore-the-pods-directory-in-source-control
25 | #
26 | # Pods/
27 | 
28 | # Carthage
29 | #
30 | # Add this line if you want to avoid checking in source code from Carthage dependencies.
31 | # Carthage/Checkouts
32 | 
33 | Carthage/Build
34 | 


--------------------------------------------------------------------------------
/ApplicativeSwift.xcodeproj/project.pbxproj:
--------------------------------------------------------------------------------
  1 | // !$*UTF8*$!
  2 | {
  3 | 	archiveVersion = 1;
  4 | 	classes = {
  5 | 	};
  6 | 	objectVersion = 46;
  7 | 	objects = {
  8 | 
  9 | /* Begin PBXBuildFile section */
 10 | 		D68F24D21B39CCB0008ADAC9 /* ApplicativeSwift.h in Headers */ = {isa = PBXBuildFile; fileRef = D68F24D11B39CCB0008ADAC9 /* ApplicativeSwift.h */; settings = {ATTRIBUTES = (Public, ); }; };
 11 | 		D68F24D91B39CCB0008ADAC9 /* ApplicativeSwift.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = D68F24CE1B39CCB0008ADAC9 /* ApplicativeSwift.framework */; };
 12 | 		D68F24DE1B39CCB0008ADAC9 /* ApplicativeSwiftTests.swift in Sources */ = {isa = PBXBuildFile; fileRef = D68F24DD1B39CCB0008ADAC9 /* ApplicativeSwiftTests.swift */; };
 13 | 		D68F24E91B39CCEF008ADAC9 /* Applicative.swift in Sources */ = {isa = PBXBuildFile; fileRef = D68F24E81B39CCEF008ADAC9 /* Applicative.swift */; };
 14 | /* End PBXBuildFile section */
 15 | 
 16 | /* Begin PBXContainerItemProxy section */
 17 | 		D68F24DA1B39CCB0008ADAC9 /* PBXContainerItemProxy */ = {
 18 | 			isa = PBXContainerItemProxy;
 19 | 			containerPortal = D68F24C51B39CCB0008ADAC9 /* Project object */;
 20 | 			proxyType = 1;
 21 | 			remoteGlobalIDString = D68F24CD1B39CCB0008ADAC9;
 22 | 			remoteInfo = ApplicativeSwift;
 23 | 		};
 24 | /* End PBXContainerItemProxy section */
 25 | 
 26 | /* Begin PBXFileReference section */
 27 | 		D68F24CE1B39CCB0008ADAC9 /* ApplicativeSwift.framework */ = {isa = PBXFileReference; explicitFileType = wrapper.framework; includeInIndex = 0; path = ApplicativeSwift.framework; sourceTree = BUILT_PRODUCTS_DIR; };
 28 | 		D68F24D11B39CCB0008ADAC9 /* ApplicativeSwift.h */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.h; path = ApplicativeSwift.h; sourceTree = "<group>"; };
 29 | 		D68F24D31B39CCB0008ADAC9 /* Info.plist */ = {isa = PBXFileReference; lastKnownFileType = text.plist.xml; path = Info.plist; sourceTree = "<group>"; };
 30 | 		D68F24D81B39CCB0008ADAC9 /* ApplicativeSwiftTests.xctest */ = {isa = PBXFileReference; explicitFileType = wrapper.cfbundle; includeInIndex = 0; path = ApplicativeSwiftTests.xctest; sourceTree = BUILT_PRODUCTS_DIR; };
 31 | 		D68F24DD1B39CCB0008ADAC9 /* ApplicativeSwiftTests.swift */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.swift; path = ApplicativeSwiftTests.swift; sourceTree = "<group>"; };
 32 | 		D68F24DF1B39CCB0008ADAC9 /* Info.plist */ = {isa = PBXFileReference; lastKnownFileType = text.plist.xml; path = Info.plist; sourceTree = "<group>"; };
 33 | 		D68F24E81B39CCEF008ADAC9 /* Applicative.swift */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.swift; path = Applicative.swift; sourceTree = "<group>"; };
 34 | /* End PBXFileReference section */
 35 | 
 36 | /* Begin PBXFrameworksBuildPhase section */
 37 | 		D68F24CA1B39CCB0008ADAC9 /* Frameworks */ = {
 38 | 			isa = PBXFrameworksBuildPhase;
 39 | 			buildActionMask = 2147483647;
 40 | 			files = (
 41 | 			);
 42 | 			runOnlyForDeploymentPostprocessing = 0;
 43 | 		};
 44 | 		D68F24D51B39CCB0008ADAC9 /* Frameworks */ = {
 45 | 			isa = PBXFrameworksBuildPhase;
 46 | 			buildActionMask = 2147483647;
 47 | 			files = (
 48 | 				D68F24D91B39CCB0008ADAC9 /* ApplicativeSwift.framework in Frameworks */,
 49 | 			);
 50 | 			runOnlyForDeploymentPostprocessing = 0;
 51 | 		};
 52 | /* End PBXFrameworksBuildPhase section */
 53 | 
 54 | /* Begin PBXGroup section */
 55 | 		D68F24C41B39CCB0008ADAC9 = {
 56 | 			isa = PBXGroup;
 57 | 			children = (
 58 | 				D68F24D01B39CCB0008ADAC9 /* ApplicativeSwift */,
 59 | 				D68F24DC1B39CCB0008ADAC9 /* ApplicativeSwiftTests */,
 60 | 				D68F24CF1B39CCB0008ADAC9 /* Products */,
 61 | 			);
 62 | 			sourceTree = "<group>";
 63 | 		};
 64 | 		D68F24CF1B39CCB0008ADAC9 /* Products */ = {
 65 | 			isa = PBXGroup;
 66 | 			children = (
 67 | 				D68F24CE1B39CCB0008ADAC9 /* ApplicativeSwift.framework */,
 68 | 				D68F24D81B39CCB0008ADAC9 /* ApplicativeSwiftTests.xctest */,
 69 | 			);
 70 | 			name = Products;
 71 | 			sourceTree = "<group>";
 72 | 		};
 73 | 		D68F24D01B39CCB0008ADAC9 /* ApplicativeSwift */ = {
 74 | 			isa = PBXGroup;
 75 | 			children = (
 76 | 				D68F24D11B39CCB0008ADAC9 /* ApplicativeSwift.h */,
 77 | 				D68F24E81B39CCEF008ADAC9 /* Applicative.swift */,
 78 | 				D68F24D31B39CCB0008ADAC9 /* Info.plist */,
 79 | 			);
 80 | 			path = ApplicativeSwift;
 81 | 			sourceTree = "<group>";
 82 | 		};
 83 | 		D68F24DC1B39CCB0008ADAC9 /* ApplicativeSwiftTests */ = {
 84 | 			isa = PBXGroup;
 85 | 			children = (
 86 | 				D68F24DD1B39CCB0008ADAC9 /* ApplicativeSwiftTests.swift */,
 87 | 				D68F24DF1B39CCB0008ADAC9 /* Info.plist */,
 88 | 			);
 89 | 			path = ApplicativeSwiftTests;
 90 | 			sourceTree = "<group>";
 91 | 		};
 92 | /* End PBXGroup section */
 93 | 
 94 | /* Begin PBXHeadersBuildPhase section */
 95 | 		D68F24CB1B39CCB0008ADAC9 /* Headers */ = {
 96 | 			isa = PBXHeadersBuildPhase;
 97 | 			buildActionMask = 2147483647;
 98 | 			files = (
 99 | 				D68F24D21B39CCB0008ADAC9 /* ApplicativeSwift.h in Headers */,
100 | 			);
101 | 			runOnlyForDeploymentPostprocessing = 0;
102 | 		};
103 | /* End PBXHeadersBuildPhase section */
104 | 
105 | /* Begin PBXNativeTarget section */
106 | 		D68F24CD1B39CCB0008ADAC9 /* ApplicativeSwift */ = {
107 | 			isa = PBXNativeTarget;
108 | 			buildConfigurationList = D68F24E21B39CCB0008ADAC9 /* Build configuration list for PBXNativeTarget "ApplicativeSwift" */;
109 | 			buildPhases = (
110 | 				D68F24C91B39CCB0008ADAC9 /* Sources */,
111 | 				D68F24CA1B39CCB0008ADAC9 /* Frameworks */,
112 | 				D68F24CB1B39CCB0008ADAC9 /* Headers */,
113 | 				D68F24CC1B39CCB0008ADAC9 /* Resources */,
114 | 			);
115 | 			buildRules = (
116 | 			);
117 | 			dependencies = (
118 | 			);
119 | 			name = ApplicativeSwift;
120 | 			productName = ApplicativeSwift;
121 | 			productReference = D68F24CE1B39CCB0008ADAC9 /* ApplicativeSwift.framework */;
122 | 			productType = "com.apple.product-type.framework";
123 | 		};
124 | 		D68F24D71B39CCB0008ADAC9 /* ApplicativeSwiftTests */ = {
125 | 			isa = PBXNativeTarget;
126 | 			buildConfigurationList = D68F24E51B39CCB0008ADAC9 /* Build configuration list for PBXNativeTarget "ApplicativeSwiftTests" */;
127 | 			buildPhases = (
128 | 				D68F24D41B39CCB0008ADAC9 /* Sources */,
129 | 				D68F24D51B39CCB0008ADAC9 /* Frameworks */,
130 | 				D68F24D61B39CCB0008ADAC9 /* Resources */,
131 | 			);
132 | 			buildRules = (
133 | 			);
134 | 			dependencies = (
135 | 				D68F24DB1B39CCB0008ADAC9 /* PBXTargetDependency */,
136 | 			);
137 | 			name = ApplicativeSwiftTests;
138 | 			productName = ApplicativeSwiftTests;
139 | 			productReference = D68F24D81B39CCB0008ADAC9 /* ApplicativeSwiftTests.xctest */;
140 | 			productType = "com.apple.product-type.bundle.unit-test";
141 | 		};
142 | /* End PBXNativeTarget section */
143 | 
144 | /* Begin PBXProject section */
145 | 		D68F24C51B39CCB0008ADAC9 /* Project object */ = {
146 | 			isa = PBXProject;
147 | 			attributes = {
148 | 				LastSwiftUpdateCheck = 0700;
149 | 				LastUpgradeCheck = 0700;
150 | 				ORGANIZATIONNAME = koherent.org;
151 | 				TargetAttributes = {
152 | 					D68F24CD1B39CCB0008ADAC9 = {
153 | 						CreatedOnToolsVersion = 7.0;
154 | 					};
155 | 					D68F24D71B39CCB0008ADAC9 = {
156 | 						CreatedOnToolsVersion = 7.0;
157 | 					};
158 | 				};
159 | 			};
160 | 			buildConfigurationList = D68F24C81B39CCB0008ADAC9 /* Build configuration list for PBXProject "ApplicativeSwift" */;
161 | 			compatibilityVersion = "Xcode 3.2";
162 | 			developmentRegion = English;
163 | 			hasScannedForEncodings = 0;
164 | 			knownRegions = (
165 | 				en,
166 | 			);
167 | 			mainGroup = D68F24C41B39CCB0008ADAC9;
168 | 			productRefGroup = D68F24CF1B39CCB0008ADAC9 /* Products */;
169 | 			projectDirPath = "";
170 | 			projectRoot = "";
171 | 			targets = (
172 | 				D68F24CD1B39CCB0008ADAC9 /* ApplicativeSwift */,
173 | 				D68F24D71B39CCB0008ADAC9 /* ApplicativeSwiftTests */,
174 | 			);
175 | 		};
176 | /* End PBXProject section */
177 | 
178 | /* Begin PBXResourcesBuildPhase section */
179 | 		D68F24CC1B39CCB0008ADAC9 /* Resources */ = {
180 | 			isa = PBXResourcesBuildPhase;
181 | 			buildActionMask = 2147483647;
182 | 			files = (
183 | 			);
184 | 			runOnlyForDeploymentPostprocessing = 0;
185 | 		};
186 | 		D68F24D61B39CCB0008ADAC9 /* Resources */ = {
187 | 			isa = PBXResourcesBuildPhase;
188 | 			buildActionMask = 2147483647;
189 | 			files = (
190 | 			);
191 | 			runOnlyForDeploymentPostprocessing = 0;
192 | 		};
193 | /* End PBXResourcesBuildPhase section */
194 | 
195 | /* Begin PBXSourcesBuildPhase section */
196 | 		D68F24C91B39CCB0008ADAC9 /* Sources */ = {
197 | 			isa = PBXSourcesBuildPhase;
198 | 			buildActionMask = 2147483647;
199 | 			files = (
200 | 				D68F24E91B39CCEF008ADAC9 /* Applicative.swift in Sources */,
201 | 			);
202 | 			runOnlyForDeploymentPostprocessing = 0;
203 | 		};
204 | 		D68F24D41B39CCB0008ADAC9 /* Sources */ = {
205 | 			isa = PBXSourcesBuildPhase;
206 | 			buildActionMask = 2147483647;
207 | 			files = (
208 | 				D68F24DE1B39CCB0008ADAC9 /* ApplicativeSwiftTests.swift in Sources */,
209 | 			);
210 | 			runOnlyForDeploymentPostprocessing = 0;
211 | 		};
212 | /* End PBXSourcesBuildPhase section */
213 | 
214 | /* Begin PBXTargetDependency section */
215 | 		D68F24DB1B39CCB0008ADAC9 /* PBXTargetDependency */ = {
216 | 			isa = PBXTargetDependency;
217 | 			target = D68F24CD1B39CCB0008ADAC9 /* ApplicativeSwift */;
218 | 			targetProxy = D68F24DA1B39CCB0008ADAC9 /* PBXContainerItemProxy */;
219 | 		};
220 | /* End PBXTargetDependency section */
221 | 
222 | /* Begin XCBuildConfiguration section */
223 | 		D68F24E01B39CCB0008ADAC9 /* Debug */ = {
224 | 			isa = XCBuildConfiguration;
225 | 			buildSettings = {
226 | 				ALWAYS_SEARCH_USER_PATHS = NO;
227 | 				CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x";
228 | 				CLANG_CXX_LIBRARY = "libc++";
229 | 				CLANG_ENABLE_MODULES = YES;
230 | 				CLANG_ENABLE_OBJC_ARC = YES;
231 | 				CLANG_WARN_BOOL_CONVERSION = YES;
232 | 				CLANG_WARN_CONSTANT_CONVERSION = YES;
233 | 				CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES_ERROR;
234 | 				CLANG_WARN_EMPTY_BODY = YES;
235 | 				CLANG_WARN_ENUM_CONVERSION = YES;
236 | 				CLANG_WARN_INT_CONVERSION = YES;
237 | 				CLANG_WARN_OBJC_ROOT_CLASS = YES_ERROR;
238 | 				CLANG_WARN_UNREACHABLE_CODE = YES;
239 | 				CLANG_WARN__DUPLICATE_METHOD_MATCH = YES;
240 | 				"CODE_SIGN_IDENTITY[sdk=iphoneos*]" = "iPhone Developer";
241 | 				COPY_PHASE_STRIP = NO;
242 | 				CURRENT_PROJECT_VERSION = 1;
243 | 				DEBUG_INFORMATION_FORMAT = dwarf;
244 | 				ENABLE_STRICT_OBJC_MSGSEND = YES;
245 | 				ENABLE_TESTABILITY = YES;
246 | 				GCC_C_LANGUAGE_STANDARD = gnu99;
247 | 				GCC_DYNAMIC_NO_PIC = NO;
248 | 				GCC_NO_COMMON_BLOCKS = YES;
249 | 				GCC_OPTIMIZATION_LEVEL = 0;
250 | 				GCC_PREPROCESSOR_DEFINITIONS = (
251 | 					"DEBUG=1",
252 | 					"$(inherited)",
253 | 				);
254 | 				GCC_WARN_64_TO_32_BIT_CONVERSION = YES;
255 | 				GCC_WARN_ABOUT_RETURN_TYPE = YES_ERROR;
256 | 				GCC_WARN_UNDECLARED_SELECTOR = YES;
257 | 				GCC_WARN_UNINITIALIZED_AUTOS = YES_AGGRESSIVE;
258 | 				GCC_WARN_UNUSED_FUNCTION = YES;
259 | 				GCC_WARN_UNUSED_VARIABLE = YES;
260 | 				IPHONEOS_DEPLOYMENT_TARGET = 9.0;
261 | 				MTL_ENABLE_DEBUG_INFO = YES;
262 | 				ONLY_ACTIVE_ARCH = YES;
263 | 				SDKROOT = iphoneos;
264 | 				SWIFT_OPTIMIZATION_LEVEL = "-Onone";
265 | 				TARGETED_DEVICE_FAMILY = "1,2";
266 | 				VERSIONING_SYSTEM = "apple-generic";
267 | 				VERSION_INFO_PREFIX = "";
268 | 			};
269 | 			name = Debug;
270 | 		};
271 | 		D68F24E11B39CCB0008ADAC9 /* Release */ = {
272 | 			isa = XCBuildConfiguration;
273 | 			buildSettings = {
274 | 				ALWAYS_SEARCH_USER_PATHS = NO;
275 | 				CLANG_CXX_LANGUAGE_STANDARD = "gnu++0x";
276 | 				CLANG_CXX_LIBRARY = "libc++";
277 | 				CLANG_ENABLE_MODULES = YES;
278 | 				CLANG_ENABLE_OBJC_ARC = YES;
279 | 				CLANG_WARN_BOOL_CONVERSION = YES;
280 | 				CLANG_WARN_CONSTANT_CONVERSION = YES;
281 | 				CLANG_WARN_DIRECT_OBJC_ISA_USAGE = YES_ERROR;
282 | 				CLANG_WARN_EMPTY_BODY = YES;
283 | 				CLANG_WARN_ENUM_CONVERSION = YES;
284 | 				CLANG_WARN_INT_CONVERSION = YES;
285 | 				CLANG_WARN_OBJC_ROOT_CLASS = YES_ERROR;
286 | 				CLANG_WARN_UNREACHABLE_CODE = YES;
287 | 				CLANG_WARN__DUPLICATE_METHOD_MATCH = YES;
288 | 				"CODE_SIGN_IDENTITY[sdk=iphoneos*]" = "iPhone Developer";
289 | 				COPY_PHASE_STRIP = NO;
290 | 				CURRENT_PROJECT_VERSION = 1;
291 | 				DEBUG_INFORMATION_FORMAT = "dwarf-with-dsym";
292 | 				ENABLE_NS_ASSERTIONS = NO;
293 | 				ENABLE_STRICT_OBJC_MSGSEND = YES;
294 | 				GCC_C_LANGUAGE_STANDARD = gnu99;
295 | 				GCC_NO_COMMON_BLOCKS = YES;
296 | 				GCC_WARN_64_TO_32_BIT_CONVERSION = YES;
297 | 				GCC_WARN_ABOUT_RETURN_TYPE = YES_ERROR;
298 | 				GCC_WARN_UNDECLARED_SELECTOR = YES;
299 | 				GCC_WARN_UNINITIALIZED_AUTOS = YES_AGGRESSIVE;
300 | 				GCC_WARN_UNUSED_FUNCTION = YES;
301 | 				GCC_WARN_UNUSED_VARIABLE = YES;
302 | 				IPHONEOS_DEPLOYMENT_TARGET = 9.0;
303 | 				MTL_ENABLE_DEBUG_INFO = NO;
304 | 				SDKROOT = iphoneos;
305 | 				TARGETED_DEVICE_FAMILY = "1,2";
306 | 				VALIDATE_PRODUCT = YES;
307 | 				VERSIONING_SYSTEM = "apple-generic";
308 | 				VERSION_INFO_PREFIX = "";
309 | 			};
310 | 			name = Release;
311 | 		};
312 | 		D68F24E31B39CCB0008ADAC9 /* Debug */ = {
313 | 			isa = XCBuildConfiguration;
314 | 			buildSettings = {
315 | 				CLANG_ENABLE_MODULES = YES;
316 | 				DEFINES_MODULE = YES;
317 | 				DYLIB_COMPATIBILITY_VERSION = 1;
318 | 				DYLIB_CURRENT_VERSION = 1;
319 | 				DYLIB_INSTALL_NAME_BASE = "@rpath";
320 | 				INFOPLIST_FILE = ApplicativeSwift/Info.plist;
321 | 				INSTALL_PATH = "$(LOCAL_LIBRARY_DIR)/Frameworks";
322 | 				IPHONEOS_DEPLOYMENT_TARGET = 7.0;
323 | 				LD_RUNPATH_SEARCH_PATHS = "$(inherited) @executable_path/Frameworks @loader_path/Frameworks";
324 | 				PRODUCT_BUNDLE_IDENTIFIER = org.koherent.ApplicativeSwift;
325 | 				PRODUCT_NAME = "$(TARGET_NAME)";
326 | 				SKIP_INSTALL = YES;
327 | 				SWIFT_OPTIMIZATION_LEVEL = "-Onone";
328 | 			};
329 | 			name = Debug;
330 | 		};
331 | 		D68F24E41B39CCB0008ADAC9 /* Release */ = {
332 | 			isa = XCBuildConfiguration;
333 | 			buildSettings = {
334 | 				CLANG_ENABLE_MODULES = YES;
335 | 				DEFINES_MODULE = YES;
336 | 				DYLIB_COMPATIBILITY_VERSION = 1;
337 | 				DYLIB_CURRENT_VERSION = 1;
338 | 				DYLIB_INSTALL_NAME_BASE = "@rpath";
339 | 				INFOPLIST_FILE = ApplicativeSwift/Info.plist;
340 | 				INSTALL_PATH = "$(LOCAL_LIBRARY_DIR)/Frameworks";
341 | 				IPHONEOS_DEPLOYMENT_TARGET = 7.0;
342 | 				LD_RUNPATH_SEARCH_PATHS = "$(inherited) @executable_path/Frameworks @loader_path/Frameworks";
343 | 				PRODUCT_BUNDLE_IDENTIFIER = org.koherent.ApplicativeSwift;
344 | 				PRODUCT_NAME = "$(TARGET_NAME)";
345 | 				SKIP_INSTALL = YES;
346 | 			};
347 | 			name = Release;
348 | 		};
349 | 		D68F24E61B39CCB0008ADAC9 /* Debug */ = {
350 | 			isa = XCBuildConfiguration;
351 | 			buildSettings = {
352 | 				INFOPLIST_FILE = ApplicativeSwiftTests/Info.plist;
353 | 				LD_RUNPATH_SEARCH_PATHS = "$(inherited) @executable_path/Frameworks @loader_path/Frameworks";
354 | 				PRODUCT_BUNDLE_IDENTIFIER = org.koherent.ApplicativeSwiftTests;
355 | 				PRODUCT_NAME = "$(TARGET_NAME)";
356 | 			};
357 | 			name = Debug;
358 | 		};
359 | 		D68F24E71B39CCB0008ADAC9 /* Release */ = {
360 | 			isa = XCBuildConfiguration;
361 | 			buildSettings = {
362 | 				INFOPLIST_FILE = ApplicativeSwiftTests/Info.plist;
363 | 				LD_RUNPATH_SEARCH_PATHS = "$(inherited) @executable_path/Frameworks @loader_path/Frameworks";
364 | 				PRODUCT_BUNDLE_IDENTIFIER = org.koherent.ApplicativeSwiftTests;
365 | 				PRODUCT_NAME = "$(TARGET_NAME)";
366 | 			};
367 | 			name = Release;
368 | 		};
369 | /* End XCBuildConfiguration section */
370 | 
371 | /* Begin XCConfigurationList section */
372 | 		D68F24C81B39CCB0008ADAC9 /* Build configuration list for PBXProject "ApplicativeSwift" */ = {
373 | 			isa = XCConfigurationList;
374 | 			buildConfigurations = (
375 | 				D68F24E01B39CCB0008ADAC9 /* Debug */,
376 | 				D68F24E11B39CCB0008ADAC9 /* Release */,
377 | 			);
378 | 			defaultConfigurationIsVisible = 0;
379 | 			defaultConfigurationName = Release;
380 | 		};
381 | 		D68F24E21B39CCB0008ADAC9 /* Build configuration list for PBXNativeTarget "ApplicativeSwift" */ = {
382 | 			isa = XCConfigurationList;
383 | 			buildConfigurations = (
384 | 				D68F24E31B39CCB0008ADAC9 /* Debug */,
385 | 				D68F24E41B39CCB0008ADAC9 /* Release */,
386 | 			);
387 | 			defaultConfigurationIsVisible = 0;
388 | 			defaultConfigurationName = Release;
389 | 		};
390 | 		D68F24E51B39CCB0008ADAC9 /* Build configuration list for PBXNativeTarget "ApplicativeSwiftTests" */ = {
391 | 			isa = XCConfigurationList;
392 | 			buildConfigurations = (
393 | 				D68F24E61B39CCB0008ADAC9 /* Debug */,
394 | 				D68F24E71B39CCB0008ADAC9 /* Release */,
395 | 			);
396 | 			defaultConfigurationIsVisible = 0;
397 | 			defaultConfigurationName = Release;
398 | 		};
399 | /* End XCConfigurationList section */
400 | 	};
401 | 	rootObject = D68F24C51B39CCB0008ADAC9 /* Project object */;
402 | }
403 | 


--------------------------------------------------------------------------------
/ApplicativeSwift.xcodeproj/project.xcworkspace/contents.xcworkspacedata:
--------------------------------------------------------------------------------
1 | <?xml version="1.0" encoding="UTF-8"?>
2 | <Workspace
3 |    version = "1.0">
4 |    <FileRef
5 |       location = "self:ApplicativeSwift.xcodeproj">
6 |    </FileRef>
7 | </Workspace>
8 | 


--------------------------------------------------------------------------------
/ApplicativeSwift.xcodeproj/xcshareddata/xcschemes/ApplicativeSwift.xcscheme:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <Scheme
  3 |    LastUpgradeVersion = "0700"
  4 |    version = "1.3">
  5 |    <BuildAction
  6 |       parallelizeBuildables = "YES"
  7 |       buildImplicitDependencies = "YES">
  8 |       <BuildActionEntries>
  9 |          <BuildActionEntry
 10 |             buildForTesting = "YES"
 11 |             buildForRunning = "YES"
 12 |             buildForProfiling = "YES"
 13 |             buildForArchiving = "YES"
 14 |             buildForAnalyzing = "YES">
 15 |             <BuildableReference
 16 |                BuildableIdentifier = "primary"
 17 |                BlueprintIdentifier = "D68F24CD1B39CCB0008ADAC9"
 18 |                BuildableName = "ApplicativeSwift.framework"
 19 |                BlueprintName = "ApplicativeSwift"
 20 |                ReferencedContainer = "container:ApplicativeSwift.xcodeproj">
 21 |             </BuildableReference>
 22 |          </BuildActionEntry>
 23 |       </BuildActionEntries>
 24 |    </BuildAction>
 25 |    <TestAction
 26 |       selectedDebuggerIdentifier = "Xcode.DebuggerFoundation.Debugger.LLDB"
 27 |       selectedLauncherIdentifier = "Xcode.DebuggerFoundation.Launcher.LLDB"
 28 |       shouldUseLaunchSchemeArgsEnv = "YES"
 29 |       buildConfiguration = "Debug">
 30 |       <Testables>
 31 |          <TestableReference
 32 |             skipped = "NO">
 33 |             <BuildableReference
 34 |                BuildableIdentifier = "primary"
 35 |                BlueprintIdentifier = "D68F24D71B39CCB0008ADAC9"
 36 |                BuildableName = "ApplicativeSwiftTests.xctest"
 37 |                BlueprintName = "ApplicativeSwiftTests"
 38 |                ReferencedContainer = "container:ApplicativeSwift.xcodeproj">
 39 |             </BuildableReference>
 40 |          </TestableReference>
 41 |       </Testables>
 42 |       <MacroExpansion>
 43 |          <BuildableReference
 44 |             BuildableIdentifier = "primary"
 45 |             BlueprintIdentifier = "D68F24CD1B39CCB0008ADAC9"
 46 |             BuildableName = "ApplicativeSwift.framework"
 47 |             BlueprintName = "ApplicativeSwift"
 48 |             ReferencedContainer = "container:ApplicativeSwift.xcodeproj">
 49 |          </BuildableReference>
 50 |       </MacroExpansion>
 51 |       <AdditionalOptions>
 52 |       </AdditionalOptions>
 53 |    </TestAction>
 54 |    <LaunchAction
 55 |       selectedDebuggerIdentifier = "Xcode.DebuggerFoundation.Debugger.LLDB"
 56 |       selectedLauncherIdentifier = "Xcode.DebuggerFoundation.Launcher.LLDB"
 57 |       launchStyle = "0"
 58 |       useCustomWorkingDirectory = "NO"
 59 |       buildConfiguration = "Debug"
 60 |       ignoresPersistentStateOnLaunch = "NO"
 61 |       debugDocumentVersioning = "YES"
 62 |       debugServiceExtension = "internal"
 63 |       allowLocationSimulation = "YES">
 64 |       <MacroExpansion>
 65 |          <BuildableReference
 66 |             BuildableIdentifier = "primary"
 67 |             BlueprintIdentifier = "D68F24CD1B39CCB0008ADAC9"
 68 |             BuildableName = "ApplicativeSwift.framework"
 69 |             BlueprintName = "ApplicativeSwift"
 70 |             ReferencedContainer = "container:ApplicativeSwift.xcodeproj">
 71 |          </BuildableReference>
 72 |       </MacroExpansion>
 73 |       <AdditionalOptions>
 74 |       </AdditionalOptions>
 75 |    </LaunchAction>
 76 |    <ProfileAction
 77 |       shouldUseLaunchSchemeArgsEnv = "YES"
 78 |       savedToolIdentifier = ""
 79 |       useCustomWorkingDirectory = "NO"
 80 |       buildConfiguration = "Release"
 81 |       debugDocumentVersioning = "YES">
 82 |       <MacroExpansion>
 83 |          <BuildableReference
 84 |             BuildableIdentifier = "primary"
 85 |             BlueprintIdentifier = "D68F24CD1B39CCB0008ADAC9"
 86 |             BuildableName = "ApplicativeSwift.framework"
 87 |             BlueprintName = "ApplicativeSwift"
 88 |             ReferencedContainer = "container:ApplicativeSwift.xcodeproj">
 89 |          </BuildableReference>
 90 |       </MacroExpansion>
 91 |    </ProfileAction>
 92 |    <AnalyzeAction
 93 |       buildConfiguration = "Debug">
 94 |    </AnalyzeAction>
 95 |    <ArchiveAction
 96 |       buildConfiguration = "Release"
 97 |       revealArchiveInOrganizer = "YES">
 98 |    </ArchiveAction>
 99 | </Scheme>
100 | 


--------------------------------------------------------------------------------
/ApplicativeSwift/Applicative.swift:
--------------------------------------------------------------------------------
  1 | infix operator <*> {
  2 |     precedence 130
  3 |     associativity left
  4 | }
  5 | infix operator <^> {
  6 |     precedence 130
  7 |     associativity left
  8 | }
  9 | 
 10 | public func curry<T0, T1, R>(f: (T0, T1) -> R) -> T0 -> T1 -> R {
 11 |     return { t0 in { t1 in f(t0, t1) } }
 12 | }
 13 | 
 14 | public func curry<T0, T1, T2, R>(f: (T0, T1, T2) -> R) -> T0 -> T1 -> T2 -> R {
 15 |     return { t0 in { t1 in { t2 in f(t0, t1, t2) } } }
 16 | }
 17 | 
 18 | public func curry<T0, T1, T2, T3, R>(f: (T0, T1, T2, T3) -> R) -> T0 -> T1 -> T2 -> T3 -> R {
 19 |     return { t0 in { t1 in { t2 in { t3 in f(t0, t1, t2, t3) } } } }
 20 | }
 21 | 
 22 | public func curry<T0, T1, T2, T3, T4, R>(f: (T0, T1, T2, T3, T4) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> R {
 23 |     return { t0 in { t1 in { t2 in { t3 in { t4 in f(t0, t1, t2, t3, t4) } } } } }
 24 | }
 25 | 
 26 | public func curry<T0, T1, T2, T3, T4, T5, R>(f: (T0, T1, T2, T3, T4, T5) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> R {
 27 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in f(t0, t1, t2, t3, t4, t5) } } } } } }
 28 | }
 29 | 
 30 | public func curry<T0, T1, T2, T3, T4, T5, T6, R>(f: (T0, T1, T2, T3, T4, T5, T6) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> R {
 31 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in f(t0, t1, t2, t3, t4, t5, t6) } } } } } } }
 32 | }
 33 | 
 34 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> R {
 35 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in f(t0, t1, t2, t3, t4, t5, t6, t7) } } } } } } } }
 36 | }
 37 | 
 38 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> R {
 39 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8) } } } } } } } } }
 40 | }
 41 | 
 42 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> R {
 43 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9) } } } } } } } } } }
 44 | }
 45 | 
 46 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> R {
 47 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) } } } } } } } } } } }
 48 | }
 49 | 
 50 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> R {
 51 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in { t11 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) } } } } } } } } } } } }
 52 | }
 53 | 
 54 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> R {
 55 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in { t11 in { t12 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) } } } } } } } } } } } } }
 56 | }
 57 | 
 58 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> R {
 59 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in { t11 in { t12 in { t13 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) } } } } } } } } } } } } } }
 60 | }
 61 | 
 62 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> R {
 63 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in { t11 in { t12 in { t13 in { t14 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) } } } } } } } } } } } } } } }
 64 | }
 65 | 
 66 | public func curry<T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, R>(f: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15) -> R) -> T0 -> T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> T15 -> R {
 67 |     return { t0 in { t1 in { t2 in { t3 in { t4 in { t5 in { t6 in { t7 in { t8 in { t9 in { t10 in { t11 in { t12 in { t13 in { t14 in { t15 in f(t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) } } } } } } } } } } } } } } } }
 68 | }
 69 | 
 70 | // Optional
 71 | 
 72 | public func <*><T0, T1>(lhs: (T0 -> T1)?, rhs: T0?) -> T1? {
 73 |     switch lhs {
 74 |     case .None:
 75 |         return nil
 76 |     case .Some(let transform):
 77 |         return rhs.map(transform)
 78 |     }
 79 | }
 80 | 
 81 | public func <^><T0, R>(lhs: T0 -> R, rhs: T0?) -> R? {
 82 |     return rhs.map { lhs($0) }
 83 | }
 84 | 
 85 | public func <^><T0, T1, R>(lhs: (T0, T1) -> R, rhs: T0?) -> (T1 -> R)? {
 86 |     return curry(lhs) <^> rhs
 87 | }
 88 | 
 89 | public func <^><T0, T1, T2, R>(lhs: (T0, T1, T2) -> R, rhs: T0?) -> (T1 -> T2 -> R)? {
 90 |     return curry(lhs) <^> rhs
 91 | }
 92 | 
 93 | public func <^><T0, T1, T2, T3, R>(lhs: (T0, T1, T2, T3) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> R)? {
 94 |     return curry(lhs) <^> rhs
 95 | }
 96 | 
 97 | public func <^><T0, T1, T2, T3, T4, R>(lhs: (T0, T1, T2, T3, T4) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> R)? {
 98 |     return curry(lhs) <^> rhs
 99 | }
100 | 
101 | public func <^><T0, T1, T2, T3, T4, T5, R>(lhs: (T0, T1, T2, T3, T4, T5) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> R)? {
102 |     return curry(lhs) <^> rhs
103 | }
104 | 
105 | public func <^><T0, T1, T2, T3, T4, T5, T6, R>(lhs: (T0, T1, T2, T3, T4, T5, T6) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> R)? {
106 |     return curry(lhs) <^> rhs
107 | }
108 | 
109 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> R)? {
110 |     return curry(lhs) <^> rhs
111 | }
112 | 
113 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> R)? {
114 |     return curry(lhs) <^> rhs
115 | }
116 | 
117 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> R)? {
118 |     return curry(lhs) <^> rhs
119 | }
120 | 
121 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> R)? {
122 |     return curry(lhs) <^> rhs
123 | }
124 | 
125 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> R)? {
126 |     return curry(lhs) <^> rhs
127 | }
128 | 
129 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> R)? {
130 |     return curry(lhs) <^> rhs
131 | }
132 | 
133 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> R)? {
134 |     return curry(lhs) <^> rhs
135 | }
136 | 
137 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> R)? {
138 |     return curry(lhs) <^> rhs
139 | }
140 | 
141 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15) -> R, rhs: T0?) -> (T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> T15 -> R)? {
142 |     return curry(lhs) <^> rhs
143 | }
144 | 
145 | // Array
146 | 
147 | public func <*><T0, T1>(lhs: [T0 -> T1], rhs: [T0]) -> [T1] {
148 |     return lhs.flatMap { f in rhs.map { t0 in f(t0) } }
149 | }
150 | 
151 | public func <^><T0, R>(lhs: T0 -> R, rhs: [T0]) -> [R] {
152 |     return rhs.map { lhs($0) }
153 | }
154 | 
155 | public func <^><T0, T1, R>(lhs: (T0, T1) -> R, rhs: [T0]) -> [T1 -> R] {
156 |     return rhs.map { curry(lhs)($0) }
157 | }
158 | 
159 | public func <^><T0, T1, T2, R>(lhs: (T0, T1, T2) -> R, rhs: [T0]) -> [T1 -> T2 -> R] {
160 |     return rhs.map { curry(lhs)($0) }
161 | }
162 | 
163 | public func <^><T0, T1, T2, T3, R>(lhs: (T0, T1, T2, T3) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> R] {
164 |     return rhs.map { curry(lhs)($0) }
165 | }
166 | 
167 | public func <^><T0, T1, T2, T3, T4, R>(lhs: (T0, T1, T2, T3, T4) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> R] {
168 |     return rhs.map { curry(lhs)($0) }
169 | }
170 | 
171 | public func <^><T0, T1, T2, T3, T4, T5, R>(lhs: (T0, T1, T2, T3, T4, T5) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> R] {
172 |     return rhs.map { curry(lhs)($0) }
173 | }
174 | 
175 | public func <^><T0, T1, T2, T3, T4, T5, T6, R>(lhs: (T0, T1, T2, T3, T4, T5, T6) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> R] {
176 |     return rhs.map { curry(lhs)($0) }
177 | }
178 | 
179 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> R] {
180 |     return rhs.map { curry(lhs)($0) }
181 | }
182 | 
183 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> R] {
184 |     return rhs.map { curry(lhs)($0) }
185 | }
186 | 
187 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> R] {
188 |     return rhs.map { curry(lhs)($0) }
189 | }
190 | 
191 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> R] {
192 |     return rhs.map { curry(lhs)($0) }
193 | }
194 | 
195 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> R] {
196 |     return rhs.map { curry(lhs)($0) }
197 | }
198 | 
199 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> R] {
200 |     return rhs.map { curry(lhs)($0) }
201 | }
202 | 
203 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> R] {
204 |     return rhs.map { curry(lhs)($0) }
205 | }
206 | 
207 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> R] {
208 |     return rhs.map { curry(lhs)($0) }
209 | }
210 | 
211 | public func <^><T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, R>(lhs: (T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15) -> R, rhs: [T0]) -> [T1 -> T2 -> T3 -> T4 -> T5 -> T6 -> T7 -> T8 -> T9 -> T10 -> T11 -> T12 -> T13 -> T14 -> T15 -> R] {
212 |     return rhs.map { curry(lhs)($0) }
213 | }
214 | 


--------------------------------------------------------------------------------
/ApplicativeSwift/ApplicativeSwift.h:
--------------------------------------------------------------------------------
 1 | #import <UIKit/UIKit.h>
 2 | 
 3 | //! Project version number for ApplicativeSwift.
 4 | FOUNDATION_EXPORT double ApplicativeSwiftVersionNumber;
 5 | 
 6 | //! Project version string for ApplicativeSwift.
 7 | FOUNDATION_EXPORT const unsigned char ApplicativeSwiftVersionString[];
 8 | 
 9 | // In this header, you should import all the public headers of your framework using statements like #import <ApplicativeSwift/PublicHeader.h>
10 | 
11 | 
12 | 


--------------------------------------------------------------------------------
/ApplicativeSwift/Info.plist:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 3 | <plist version="1.0">
 4 | <dict>
 5 | 	<key>CFBundleDevelopmentRegion</key>
 6 | 	<string>en</string>
 7 | 	<key>CFBundleExecutable</key>
 8 | 	<string>$(EXECUTABLE_NAME)</string>
 9 | 	<key>CFBundleIdentifier</key>
10 | 	<string>$(PRODUCT_BUNDLE_IDENTIFIER)</string>
11 | 	<key>CFBundleInfoDictionaryVersion</key>
12 | 	<string>6.0</string>
13 | 	<key>CFBundleName</key>
14 | 	<string>$(PRODUCT_NAME)</string>
15 | 	<key>CFBundlePackageType</key>
16 | 	<string>FMWK</string>
17 | 	<key>CFBundleShortVersionString</key>
18 | 	<string>1.0</string>
19 | 	<key>CFBundleSignature</key>
20 | 	<string>????</string>
21 | 	<key>CFBundleVersion</key>
22 | 	<string>$(CURRENT_PROJECT_VERSION)</string>
23 | 	<key>NSPrincipalClass</key>
24 | 	<string></string>
25 | </dict>
26 | </plist>
27 | 


--------------------------------------------------------------------------------
/ApplicativeSwiftTests/ApplicativeSwiftTests.swift:
--------------------------------------------------------------------------------
 1 | import UIKit
 2 | import XCTest
 3 | import ApplicativeSwift
 4 | 
 5 | class ApplicativeSwiftTests: XCTestCase {
 6 |     func testOptional() {
 7 |         let a: Int? = 1
 8 |         let b: Int? = 2
 9 |         let c: Int? = 4
10 |         let d: Int? = 8
11 |         let e: Int? = 16
12 |         let f: Int? = 32
13 |         let g: Int? = 64
14 |         
15 |         XCTAssert(((+) <^> a <*> b) == .Some(3))
16 |         XCTAssert((add3 <^> a <*> b <*> c) == .Some(7))
17 |         XCTAssert((add4 <^> a <*> b <*> c <*> d) == .Some(15))
18 |         XCTAssert((add5 <^> a <*> b <*> c <*> d <*> e) == .Some(31))
19 |         XCTAssert((add6 <^> a <*> b <*> c <*> d <*> e <*> f) == .Some(63))
20 |         XCTAssert((add7 <^> a <*> b <*> c <*> d <*> e <*> f <*> g) == .Some(127))
21 |         
22 |         XCTAssert(((+) <^> nil <*> b) == nil)
23 |         XCTAssert((add3 <^> a <*> nil <*> c) == nil)
24 |         XCTAssert((add4 <^> a <*> b <*> nil <*> d) == nil)
25 |         XCTAssert((add5 <^> a <*> b <*> c <*> nil <*> e) == nil)
26 |         XCTAssert((add6 <^> a <*> b <*> c <*> d <*> nil <*> f) == nil)
27 |         XCTAssert((add7 <^> a <*> b <*> c <*> d <*> e <*> nil <*> g) == nil)
28 |         
29 |         XCTAssert((.Some(curry(+)) <*> a <*> b) == .Some(3)) // in Haskell: pure (+) <$> a <*> b
30 |     }
31 |     
32 |     func testArray() {
33 |         let a: [Int] = [1, 2]
34 |         let b: [Int] = [3, 4]
35 |         
36 |         XCTAssertEqual((*) <^> a <*> b, [3, 4, 6, 8])
37 |         XCTAssertEqual([curry(+), curry(*)] <*> a <*> b, [4, 5, 5, 6, 3, 4, 6, 8]) // in Haskell: [(+), (*)] <*> a <*> b
38 |     }
39 |     
40 |     func testOptionalInitializer() {
41 |         let bar: Int = 2
42 |         let baz: Float = 3.0
43 |         let qux: String = "5"
44 |         
45 |         guard let foo = Foo.init <^> bar <*> baz <*> qux else {
46 |             XCTFail()
47 |             return
48 |         }
49 |         
50 |         XCTAssertEqual(foo.bar, 2)
51 |         XCTAssertEqual(foo.baz, 3.0)
52 |         XCTAssertEqual(foo.qux, "5")
53 |     }
54 | }
55 | 
56 | func add3(a: Int, b: Int, c: Int) -> Int {
57 |     return a + b + c
58 | }
59 | 
60 | func add4(a: Int, b: Int, c: Int, d: Int) -> Int {
61 |     return a + b + c + d
62 | }
63 | 
64 | func add5(a: Int, b: Int, c: Int, d: Int, e: Int) -> Int {
65 |     return a + b + c + d + e
66 | }
67 | 
68 | func add6(a: Int, b: Int, c: Int, d: Int, e: Int, f: Int) -> Int {
69 |     return a + b + c + d + e + f
70 | }
71 | 
72 | func add7(a: Int, b: Int, c: Int, d: Int, e: Int, f: Int, g: Int) -> Int {
73 |     return a + b + c + d + e + f + g
74 | }
75 | 
76 | struct Foo {
77 |     let bar: Int
78 |     let baz: Float
79 |     let qux: String
80 | }


--------------------------------------------------------------------------------
/ApplicativeSwiftTests/Info.plist:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 3 | <plist version="1.0">
 4 | <dict>
 5 | 	<key>CFBundleDevelopmentRegion</key>
 6 | 	<string>en</string>
 7 | 	<key>CFBundleExecutable</key>
 8 | 	<string>$(EXECUTABLE_NAME)</string>
 9 | 	<key>CFBundleIdentifier</key>
10 | 	<string>$(PRODUCT_BUNDLE_IDENTIFIER)</string>
11 | 	<key>CFBundleInfoDictionaryVersion</key>
12 | 	<string>6.0</string>
13 | 	<key>CFBundleName</key>
14 | 	<string>$(PRODUCT_NAME)</string>
15 | 	<key>CFBundlePackageType</key>
16 | 	<string>BNDL</string>
17 | 	<key>CFBundleShortVersionString</key>
18 | 	<string>1.0</string>
19 | 	<key>CFBundleSignature</key>
20 | 	<string>????</string>
21 | 	<key>CFBundleVersion</key>
22 | 	<string>1</string>
23 | </dict>
24 | </plist>
25 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | The MIT License (MIT)
 2 | 
 3 | Copyright (c) 2015 koher
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
  1 | ApplicativeSwift
  2 | =========================
  3 | 
  4 | _ApplicativeSwift_ provides the operators to realize the __applicative style__ for Swift, which is used in Haskell.
  5 | 
  6 | ```swift
  7 | let a: Int? = 2
  8 | let b: Int? = 3
  9 | 
 10 | let result: Int? = (+) <^> a <*> b // Optional(5)
 11 | ```
 12 | 
 13 | Purpose
 14 | -------------------------
 15 | 
 16 | We use a lot of `Optional` values in Swift. Sometimes we want to apply operators or functions to 2 or more optional values. But it is too complicated.
 17 | 
 18 | ```swift
 19 | let a: Int? = 2
 20 | let b: Int? = 3
 21 | 
 22 | // How to calculate a + b? (wants nil if a or b is nil)
 23 | 
 24 | // Too complicated
 25 | let result: Int? = {
 26 |     if let a0 = a {
 27 |         if let b0 = b {
 28 |             return a0 + b0
 29 |         }
 30 |     }
 31 |     return nil
 32 | }()
 33 | ```
 34 | 
 35 | In Haskell, it can be done easily in the applicative style.
 36 | 
 37 | ```haskell
 38 | -- Haskell
 39 | (+) <$> a <*> b
 40 | ```
 41 | 
 42 | _ApplicativeSwift_ provides such operators for Swift. Because the letter `$` cannot be used for operators in Swift, _ApplicativeSwift_ provides `<^>` instead of `<$>`. Therefore `a + b` can be calculated in the following way.
 43 | 
 44 | ```swift
 45 | // Swift
 46 | (+) <^> a <*> b
 47 | ```
 48 | 
 49 | Usage
 50 | -------------------------
 51 | 
 52 | ```swift
 53 | // Optional
 54 | let a: Int? = 2
 55 | let b: Int? = 3
 56 | let c: Int? = 5
 57 | let d: Int? = 7
 58 | let e: Int? = 11
 59 | let f: Int? = 13
 60 | let g: Int? = 17
 61 | 
 62 | (+) <^> a <*> b
 63 | sum3 <^> a <*> b <*> c
 64 | sum4 <^> a <*> b <*> c <*> d
 65 | sum5 <^> a <*> b <*> c <*> d <*> e
 66 | sum6 <^> a <*> b <*> c <*> d <*> e <*> f
 67 | sum7 <^> a <*> b <*> c <*> d <*> e <*> f <*> g
 68 | 
 69 | // Array
 70 | (*) <^> [1, 2] <*> [3, 4]
 71 | 
 72 | // Currying
 73 | curry(+)(2) <*> .Some(3)
 74 | [curry(+), curry(*)] <*> [1, 2] <*> [3, 4]
 75 | ```
 76 | 
 77 | Installation
 78 | -------------------------
 79 | 
 80 | ### Carthage
 81 | 
 82 | [_Carthage_](https://github.com/Carthage/Carthage) is available to install _ApplicativeSwift_. Add it to your _Cartfile_:
 83 | 
 84 | ```
 85 | github "koher/ApplicativeSwift" ~> 2.0.0
 86 | ```
 87 | 
 88 | ### Manually
 89 | 
 90 | #### Embedded Framework
 91 | 
 92 | For iOS 8 or later,
 93 | 
 94 | 1. Put [ApplicativeSwift.xcodeproj](ApplicativeSwift.xcodeproj) into your project in Xcode.
 95 | 2. Click the project icon and select the "General" tab.
 96 | 3. Add ApplicativeSwift.framework to "Embedded Binaries".
 97 | 4. `import ApplicativeSwift` in your swift files.
 98 | 
 99 | #### Source
100 | 
101 | For iOS 7, put [Applicative.swift](ApplicativeSwift/Applicative.swift) into your project.
102 | 
103 | License
104 | -------------------------
105 | 
106 | [The MIT License](LICENSE)
107 | 
108 | References
109 | -------------------------
110 | 
111 | 1. [Applicative functors - Learn You a Haskell for Great Good!](http://learnyouahaskell.com/functors-applicative-functors-and-monoids#applicative-functors)
112 | 2. [Advanced Operators - The Swift Programming Language](https://developer.apple.com/library/ios/documentation/Swift/Conceptual/Swift_Programming_Language/AdvancedOperators.html)
113 | 


--------------------------------------------------------------------------------