<commit_before>// leisp
// Copyright 2016 <NAME> <<EMAIL>>. All rights reserved.
// Under the MIT License

package interpreter

import (
	"leisp/parser"
	"leisp/types"
)

var initLeispPrograms = `

;; type assertion
(defn null? [a] (equal? (typeof a) "null"))
(defn integer? [a] (equal? (typeof a) "integer"))
(defn float? [a] (equal? (typeof a) "float"))
(defn number? [a] (or (equal? (typeof a) "float") (equal? (typeof a) "integer")))
(defn boolean? [a] (equal? (typeof a) "boolean"))
(defn any? [a] (equal? (typeof a) "any"))
(defn array? [a] (equal? (typeof a) "array"))
(defn expression? [a] (equal? (typeof a) "expression"))
(defn function? [a] (equal? (typeof a) "function"))<commit_msg>lambda?<commit_after>// leisp
// Copyright 2016 <NAME> <<EMAIL>>. All rights reserved.
// Under the MIT License

package interpreter

import (
	"leisp/parser"
	"leisp/types"
)

var initLeispPrograms = `

;; type assertion
(defn null? [a] (equal? (typeof a) "null"))
(defn integer? [a] (equal? (typeof a) "integer"))
(defn float? [a] (equal? (typeof a) "float"))
(defn number? [a] (or (equal? (typeof a) "float") (equal? (typeof a) "integer")))
(defn boolean? [a] (equal? (typeof a) "boolean"))
(defn any? [a] (equal? (typeof a) "any"))
(defn array? [a] (equal? (typeof a) "array"))
(defn expression? [a] (equal? (typeof a) "expression"))
(defn function? [a] (equal? (typeof a) "function"))
(defn lambda? [a] (equal? (typeof a) "lambda"))
{'fraction_non_alphanumeric': 0.21298882681564246, 'fraction_numerical': 0.00558659217877095, 'mean_word_length': 5.176724137931035, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2870063', 'n_tokens_mistral': 549, 'n_tokens_neox': 536, 'n_words': 186}