Commit 3824f63b authored by Arian Stolwijk's avatar Arian Stolwijk

Fun with kotlin

parents
Pipeline #27690 failed with stages
in 1 minute and 55 seconds
*.iml
.idea
.gradle
build/
# Avoid ignoring Gradle wrapper jar file (.jar files are usually ignored)
!gradle-wrapper.jar
gradle.properties
plugins {
kotlin("jvm")
kotlin("kapt")
}
dependencies {
val arrow = "0.10.3"
implementation(project(":data-types"))
implementation(kotlin("stdlib"))
implementation(kotlin("reflect"))
implementation("io.arrow-kt:arrow-core:$arrow")
implementation("io.arrow-kt:arrow-syntax:$arrow")
kapt("io.arrow-kt:arrow-meta:$arrow")
}
import Currency.Euro
import Currency.Dollar
import kotlin.reflect.KClass
sealed class Currency {
object Euro : Currency()
object Dollar : Currency()
object Yen : Currency()
}
data class Money<C : Currency>(
internal val amount: Double,
internal val currency: KClass<C>
) {
override fun toString() = "Money($amount ${currency.simpleName})"
companion object {
inline fun <reified T : Currency> of(amount: Double) = Money(amount, T::class)
}
}
fun <C : Currency> Money<C>.map(f: (Double) -> Double) = Money(f(amount), currency)
operator fun <C: Currency> Money<C>.plus(other: Money<C>) =
map { it + other.amount }
operator fun <C: Currency> Money<C>.minus(other: Money<C>) =
map { it - other.amount }
operator fun <C: Currency> Money<C>.times(other: Double) =
map { it * other }
operator fun <C: Currency> Money<C>.div(other: Double) =
map { it / other }
operator fun <C: Currency> Money<C>.div(other: Money<C>) =
amount / other.amount
operator fun <C: Currency> Money<C>.compareTo(other: Money<C>) =
amount.compareTo(other.amount)
fun main() {
val euro5 = Money.of<Euro>(5.0)
assert(euro5 == Money.of<Euro>(5.0))
val euro10 = Money.of<Euro>(5.0) + Money.of(5.0)
assert(euro10 > euro5)
val dol5 = Money.of<Dollar>(5.0)
println(euro5)
println(euro10)
println(dol5)
// println(euro5 + dol5)
}
\ No newline at end of file
import arrow.core.Option
import arrow.core.extensions.fx
import arrow.core.some
fun main() {
val a = 3.some()
val b = 2.some()
val c = a.flatMap { x ->
b.map {
x + it
}
}
val d = Option.fx {
val (a1) = a
val (b1) = b
a1 + b1
}
println(a)
println(b)
println(c)
println(d)
}
\ No newline at end of file
package sym
import arrow.Kind
import arrow.extension
import arrow.typeclasses.Applicative
import arrow.typeclasses.Functor
@extension
interface DataAp : Applicative<ForData> {
override fun <A> just(a: A): Kind<ForData, A> = Data(a)
override fun <A, B> Kind<ForData, A>.ap(ff: Kind<ForData, (A) -> B>): Kind<ForData, B>
= fix().ap(ff)
}
@extension
interface DataFunctor : Functor<ForData> {
override fun <A, B> Kind<ForData, A>.map(f: (A) -> B) = fix().map(f)
}
package sym
import arrow.Kind
import arrow.core.ForOption
import arrow.core.Id
import arrow.core.Option
import arrow.core.fix
import arrow.extension
import arrow.typeclasses.Eq
import arrow.typeclasses.Show
import sym.data.eq.eq
import sym.data.applicative.just
import sym.data.functor.functor
import sym.data.show.show
@extension
interface DataEq<T> : Eq<Data<T>> {
override fun Data<T>.eqv(b: Data<T>): Boolean = this.value == b.value
}
@extension
interface DataShow<T> : Show<Data<T>> {
override fun Data<T>.show() = "Data(${value})"
}
fun main() {
val a: Kind<ForOption, Int> = Option(1)
val fixedA: Option<Int> = a.fix()
println(fixedA)
val just5 = Id.just(5)
println(just5)
val data1 = Data(4)
val data2 = Data(4)
println(Data.eq<Int>().run { data1.eqv(data2) })
println(Data.show<Int>().run { data1.show() })
val showData = Show<Data<Int>> { "hello: $value" }
println(showData.run { data1.show() })
println(data1.map { it + 1 }.map { it + 2 })
println(Data.functor().lift { n: Int -> n + 1 }(Data(2)))
println(Data.functor().run { (Data(2).map { it + 3 }) })
println(5.just().flatMap { Data(it + 3) })
}
\ No newline at end of file
import org.jetbrains.kotlin.gradle.tasks.KotlinCompile
plugins {
kotlin("jvm")
kotlin("kapt")
}
allprojects {
repositories {
mavenCentral()
}
}
\ No newline at end of file
plugins {
kotlin("jvm")
kotlin("kapt")
}
dependencies {
val arrow = "0.10.3"
implementation(kotlin("stdlib"))
implementation(kotlin("reflect"))
implementation("io.arrow-kt:arrow-core:$arrow")
implementation("io.arrow-kt:arrow-syntax:$arrow")
kapt("io.arrow-kt:arrow-meta:$arrow")
}
package sym
import arrow.higherkind
@higherkind
data class Data<T>(val value: T) : DataOf<T> {
fun <B> ap(ff: DataOf<(T) -> B>): Data<B> =
ff.fix().flatMap { f -> map(f) }.fix()
fun <B> map(f: (T) -> B) = Data(f(value))
fun <B> flatMap(f: (T) -> DataOf<B>) = f(value).fix()
companion object
}
\ No newline at end of file
distributionBase=GRADLE_USER_HOME
distributionPath=wrapper/dists
distributionUrl=https\://services.gradle.org/distributions/gradle-6.0.1-bin.zip
zipStoreBase=GRADLE_USER_HOME
zipStorePath=wrapper/dists
#!/usr/bin/env sh
#
# Copyright 2015 the original author or authors.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# https://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
##############################################################################
##
## Gradle start up script for UN*X
##
##############################################################################
# Attempt to set APP_HOME
# Resolve links: $0 may be a link
PRG="$0"
# Need this for relative symlinks.
while [ -h "$PRG" ] ; do
ls=`ls -ld "$PRG"`
link=`expr "$ls" : '.*-> \(.*\)$'`
if expr "$link" : '/.*' > /dev/null; then
PRG="$link"
else
PRG=`dirname "$PRG"`"/$link"
fi
done
SAVED="`pwd`"
cd "`dirname \"$PRG\"`/" >/dev/null
APP_HOME="`pwd -P`"
cd "$SAVED" >/dev/null
APP_NAME="Gradle"
APP_BASE_NAME=`basename "$0"`
# Add default JVM options here. You can also use JAVA_OPTS and GRADLE_OPTS to pass JVM options to this script.
DEFAULT_JVM_OPTS='"-Xmx64m" "-Xms64m"'
# Use the maximum available, or set MAX_FD != -1 to use that value.
MAX_FD="maximum"
warn () {
echo "$*"
}
die () {
echo
echo "$*"
echo
exit 1
}
# OS specific support (must be 'true' or 'false').
cygwin=false
msys=false
darwin=false
nonstop=false
case "`uname`" in
CYGWIN* )
cygwin=true
;;
Darwin* )
darwin=true
;;
MINGW* )
msys=true
;;
NONSTOP* )
nonstop=true
;;
esac
CLASSPATH=$APP_HOME/gradle/wrapper/gradle-wrapper.jar
# Determine the Java command to use to start the JVM.
if [ -n "$JAVA_HOME" ] ; then
if [ -x "$JAVA_HOME/jre/sh/java" ] ; then
# IBM's JDK on AIX uses strange locations for the executables
JAVACMD="$JAVA_HOME/jre/sh/java"
else
JAVACMD="$JAVA_HOME/bin/java"
fi
if [ ! -x "$JAVACMD" ] ; then
die "ERROR: JAVA_HOME is set to an invalid directory: $JAVA_HOME
Please set the JAVA_HOME variable in your environment to match the
location of your Java installation."
fi
else
JAVACMD="java"
which java >/dev/null 2>&1 || die "ERROR: JAVA_HOME is not set and no 'java' command could be found in your PATH.
Please set the JAVA_HOME variable in your environment to match the
location of your Java installation."
fi
# Increase the maximum file descriptors if we can.
if [ "$cygwin" = "false" -a "$darwin" = "false" -a "$nonstop" = "false" ] ; then
MAX_FD_LIMIT=`ulimit -H -n`
if [ $? -eq 0 ] ; then
if [ "$MAX_FD" = "maximum" -o "$MAX_FD" = "max" ] ; then
MAX_FD="$MAX_FD_LIMIT"
fi
ulimit -n $MAX_FD
if [ $? -ne 0 ] ; then
warn "Could not set maximum file descriptor limit: $MAX_FD"
fi
else
warn "Could not query maximum file descriptor limit: $MAX_FD_LIMIT"
fi
fi
# For Darwin, add options to specify how the application appears in the dock
if $darwin; then
GRADLE_OPTS="$GRADLE_OPTS \"-Xdock:name=$APP_NAME\" \"-Xdock:icon=$APP_HOME/media/gradle.icns\""
fi
# For Cygwin or MSYS, switch paths to Windows format before running java
if [ "$cygwin" = "true" -o "$msys" = "true" ] ; then
APP_HOME=`cygpath --path --mixed "$APP_HOME"`
CLASSPATH=`cygpath --path --mixed "$CLASSPATH"`
JAVACMD=`cygpath --unix "$JAVACMD"`
# We build the pattern for arguments to be converted via cygpath
ROOTDIRSRAW=`find -L / -maxdepth 1 -mindepth 1 -type d 2>/dev/null`
SEP=""
for dir in $ROOTDIRSRAW ; do
ROOTDIRS="$ROOTDIRS$SEP$dir"
SEP="|"
done
OURCYGPATTERN="(^($ROOTDIRS))"
# Add a user-defined pattern to the cygpath arguments
if [ "$GRADLE_CYGPATTERN" != "" ] ; then
OURCYGPATTERN="$OURCYGPATTERN|($GRADLE_CYGPATTERN)"
fi
# Now convert the arguments - kludge to limit ourselves to /bin/sh
i=0
for arg in "$@" ; do
CHECK=`echo "$arg"|egrep -c "$OURCYGPATTERN" -`
CHECK2=`echo "$arg"|egrep -c "^-"` ### Determine if an option
if [ $CHECK -ne 0 ] && [ $CHECK2 -eq 0 ] ; then ### Added a condition
eval `echo args$i`=`cygpath --path --ignore --mixed "$arg"`
else
eval `echo args$i`="\"$arg\""
fi
i=`expr $i + 1`
done
case $i in
0) set -- ;;
1) set -- "$args0" ;;
2) set -- "$args0" "$args1" ;;
3) set -- "$args0" "$args1" "$args2" ;;
4) set -- "$args0" "$args1" "$args2" "$args3" ;;
5) set -- "$args0" "$args1" "$args2" "$args3" "$args4" ;;
6) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" ;;
7) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" ;;
8) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" "$args7" ;;
9) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" "$args7" "$args8" ;;
esac
fi
# Escape application args
save () {
for i do printf %s\\n "$i" | sed "s/'/'\\\\''/g;1s/^/'/;\$s/\$/' \\\\/" ; done
echo " "
}
APP_ARGS=`save "$@"`
# Collect all arguments for the java command, following the shell quoting and substitution rules
eval set -- $DEFAULT_JVM_OPTS $JAVA_OPTS $GRADLE_OPTS "\"-Dorg.gradle.appname=$APP_BASE_NAME\"" -classpath "\"$CLASSPATH\"" org.gradle.wrapper.GradleWrapperMain "$APP_ARGS"
exec "$JAVACMD" "$@"
@rem
@rem Copyright 2015 the original author or authors.
@rem
@rem Licensed under the Apache License, Version 2.0 (the "License");
@rem you may not use this file except in compliance with the License.
@rem You may obtain a copy of the License at
@rem
@rem https://www.apache.org/licenses/LICENSE-2.0
@rem
@rem Unless required by applicable law or agreed to in writing, software
@rem distributed under the License is distributed on an "AS IS" BASIS,
@rem WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
@rem See the License for the specific language governing permissions and
@rem limitations under the License.
@rem
@if "%DEBUG%" == "" @echo off
@rem ##########################################################################
@rem
@rem Gradle startup script for Windows
@rem
@rem ##########################################################################
@rem Set local scope for the variables with windows NT shell
if "%OS%"=="Windows_NT" setlocal
set DIRNAME=%~dp0
if "%DIRNAME%" == "" set DIRNAME=.
set APP_BASE_NAME=%~n0
set APP_HOME=%DIRNAME%
@rem Add default JVM options here. You can also use JAVA_OPTS and GRADLE_OPTS to pass JVM options to this script.
set DEFAULT_JVM_OPTS="-Xmx64m" "-Xms64m"
@rem Find java.exe
if defined JAVA_HOME goto findJavaFromJavaHome
set JAVA_EXE=java.exe
%JAVA_EXE% -version >NUL 2>&1
if "%ERRORLEVEL%" == "0" goto init
echo.
echo ERROR: JAVA_HOME is not set and no 'java' command could be found in your PATH.
echo.
echo Please set the JAVA_HOME variable in your environment to match the
echo location of your Java installation.
goto fail
:findJavaFromJavaHome
set JAVA_HOME=%JAVA_HOME:"=%
set JAVA_EXE=%JAVA_HOME%/bin/java.exe
if exist "%JAVA_EXE%" goto init
echo.
echo ERROR: JAVA_HOME is set to an invalid directory: %JAVA_HOME%
echo.
echo Please set the JAVA_HOME variable in your environment to match the
echo location of your Java installation.
goto fail
:init
@rem Get command-line arguments, handling Windows variants
if not "%OS%" == "Windows_NT" goto win9xME_args
:win9xME_args
@rem Slurp the command line arguments.
set CMD_LINE_ARGS=
set _SKIP=2
:win9xME_args_slurp
if "x%~1" == "x" goto execute
set CMD_LINE_ARGS=%*
:execute
@rem Setup the command line
set CLASSPATH=%APP_HOME%\gradle\wrapper\gradle-wrapper.jar
@rem Execute Gradle
"%JAVA_EXE%" %DEFAULT_JVM_OPTS% %JAVA_OPTS% %GRADLE_OPTS% "-Dorg.gradle.appname=%APP_BASE_NAME%" -classpath "%CLASSPATH%" org.gradle.wrapper.GradleWrapperMain %CMD_LINE_ARGS%
:end
@rem End local scope for the variables with windows NT shell
if "%ERRORLEVEL%"=="0" goto mainEnd
:fail
rem Set variable GRADLE_EXIT_CONSOLE if you need the _script_ return code instead of
rem the _cmd.exe /c_ return code!
if not "" == "%GRADLE_EXIT_CONSOLE%" exit 1
exit /b 1
:mainEnd
if "%OS%"=="Windows_NT" endlocal
:omega
pluginManagement {
plugins {
kotlin("jvm") version "1.3.61"
kotlin("kapt") version "1.3.61"
}
}
rootProject.name = "kotlin-fun"
include(":data-types")
include(":app")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment